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OJOGO A RAPOSA 
E OS GANSOS (2) 


FUNCIONAMENTO DO PROGRAMA 
— INICIALIZAÇÃO 
” COMECE O JOGO 
MAPEAMENTO DAS JOGADAS 


_ MAIS UMA VEZ? 








Examinamos, no artigo anterior, 

os princípios que fundamentam o jogo 
A Raposa e os Gansos. Começaremos 
agora a montar o programa, 

digitando suas primeiras rotinas — 
entre elas, a que mapeia os movimentos 































Apresentamos aqui as rotinas de ini- 
cialização e de mapeamento dos movi- 
mentos. Além delas, você deverá digi- 
tar a rotina que oferece ao jogador mais 
uma partida. Nesse ponto, porém, a exe- 
cução do programa não resultará em na- 
da, pois ainda faltam rotinas muito im- 
portantes. Todas elas serão dadas no 
próximo artigo da série 


IA VISAO GERA! 


O programa avalia as posições ocu- 
padas no tabuleiro segundo a configu- 
ração das peças. Como cada posição 
tem um valor, pode-se, ao analisar as jo- 
gadas à frente, escolher o melhor movi- 
mento pelo resultado numérico maior 

O programa trabalha de três manei- 
ras quando está analisando jogadas. A 
mais simples (nível 1) consiste no exa: 
me de apenas uma jogada. Nos niveis 


mais elevados, o programa examina as 
múltiplas possibilidades de jogo, utili 
zando o algoritmo alfa-beta para eco- 
nomizar tempo. Nos níveis intermediá 
rios, analisa todas as possibilidades 
abertas no momento 

As rotinas situadas da linha 2010 à 
linha 3000, que sào executadas apenas 
uma vez, foram colocadas no fim do 
programa. No comego estáo as rotinas 
mais importantes, o que garante uma 
maior velocidade ao jogo. 


1МЇС1АП2АСАО 


As rotinas apresentadas a seguir, usa 
das para inicializar o jogo, dimensionam 
as matrizes, definem as funções e, no ca- 
so de alguns micros, estabelecem tam- 
bém o tabuleiro 


2010 DIM G(4): DEF FN U(A)*INT 


(A-4*INT (A/4))* DEF FN V(A)*IN 
Т (A-B*INT (A/8))>=4: DEF FN W( 
A)*INT (A-2*INT (A/2)) 

2015 LET HF=0: LET HG=0 

2020 DIM B(32): LET B(1)=1: FOR 
I=1 TO 31: LET B(1+1)=B(1)*2 
NEXT 1 

2026 LET BX-B(32)*2-B(25): LET 
E=1E30: LET H=-1E30 

2030 LET L2-LN (2) 





2040 DIM B$(16,2,16): DIM GS(2, 





4): LET G$ (1)-" LET G$(2 
"*CHRS 146*CHR$ 147: DIM H$(2 
,4): LET HS(1)=" LET H$(2) 






























































CHR$ 146+CHRS 147+" [Um 
2050 LET X-1: FOR АЎ TO 2: FOR 
B=] TO 2: FOR C=1 10 2: ҒОН D= 
1 TO 2: LET B$(X,1)9881D)*05 (0) 
+05 (В) +65 (А) 

2060 LET BS(X,2)=HS(A)+HS(B)+H5 
(C)+HS(D): ГЕТ Х=ЙЕЇ: NEXT Di N 
EXT C: NEXT B: NEKT A 

2070 рім 55(8,16): GOSUB 6000, 
2090 DIM Ғ5(2,4У: БЕТ Е9(1)-" 
"%СНА5 144%СНА3/145: ПЕТ Е9(2)- 
CHARS, 144+CHRS 1454" " 

2095 DEF FN C(B)=FN U(B-1)* (4-8 
*FN V(B-1)) *12*FN U(B-1) 





10 GOTO 2010 

2010 DIM 6(4),B(31),M(3,31),X(3 
1),201) 

2020 B(0)=1:FOR K=1 TO 31:B(K)= 


B(K-1)*2:NEXT 

2026 BX=B(31)*2-B(24) :E=1E30:H= 
-1Е30 

2030 L2=*L0G (2) :DEFFNA(F)=INT(LO 
G(F)/L2+.001) 


IN 


7 KEYOEE:GOTO 2010 

10 GOBUB-4000;GOTO 1010 

2010 DIM 6 (4),B(31),M (3,31) ,X (3 
1) .2(31) ,65(4,1) 

2020 B(0)=1:FOR K=1 TO 31:B(K)= 
B(K-1)*2:NEXT 

2026 BX=B(31)*2-B(24):E=1E+30:H 
=-ХЕ930 

2030 L2=L0G(2) : DEFFNA(F)=INT(LO 
G(F)/L2*1E-03) 

2040 OPEN "GRP:" FOR OUTPUT AS 
"n 


[d [c] 


10 GOTO 2010 





2010 DIM-G(4),B(31),M(3,31),X( 
31) ,2 (31) :VS <2CHRS (7) + Сна 
$ (1) + CHRS (1) F=CHRS (7) 
2020 B(0) = 1: FOR K = 1770/31: 
В(К) = B(K - 1) * 2: NEXT 

2026 BX = B(31) * 2 - В(24) Е = 
1E30:H = - 1E30 

2030 12 = LOG (2): БЕР ЕМ АДЕ 
) = ІМТ (106 (Р) / 12 + 001) 


A linha 2010 dimensiona a matriz uti- 
lizada para armazenar as posições dos 
gansos. A linha 2020 numera £ada qua- 
drado do tabuleiro. 

A linha 2030 determina o mümero to- 
tal de configurações que o programa po- 
de avaliar. O valor 0.001 foi adiciona- 
do à definição da função À para evitar 
 осоггепсіа de erros de arredondamen- 
to no cálculo. de logaritmos. 

No Spectrum, a matriz B$, dimensio- 


nada na linha 2040, mostra as colunas 
do tabuleiro já ocupadas pelas peças. F$ 
é usada para mostrar a peça da raposa 
E a casa em que está, e H$, para os gan- 
sos e suas casas. A matriz S$, determi- 
па o número dos quadrados 

Nos demais microcomputadores, as 
figuras sáo definidas em alta resolugáo 
por uma outra rotina 


COMECANDO 


Esta rotina permite a escolha das pe- 
ças com que se vai jogar e o grau de di- 
ficuldade. Comece pelo mais fácil 


= 


2700 LET F=2: LET G(1)=29: LET 
G(2)=30: LET G(3)=31: LET G(4)= 
32: GosuB 2710: GOTO 1010 

2710 CLS : PRINT AT 0,8; INK 1; 
"RAPOSA E GANSOS": INPUT "VOCE 
QUER ...";TAB 5;"SER A RAPOSA ? 
(S/N) ¡IS 

2720 LET PF*0: IF I$-"S" OR Y$" 
"a" THEN GOTO 2760 

2730 LET PF-1: IF I$45"N" 
$«»"n" THEN GOTO 2710 
2740 INPUT "NIVEL DE HABILIDADE 
DA RAPOSA ? ";SF: IF SF<] OR S 
F>10 THEN GOTO 2740 

2750 LET HF*131*(SF*5)*613* (SF* 
6) +1997* (SF>6) 











AND 1 





2760 INPUT "VOCE QUER "¡TAB 
5 ¡"CONTROLAR OS GANSOS ? (S/N) ” 
315 

2770 LET PG*0: IF I$- OR 1$= 
"в" THEN GOTO 2860 

2780 LET PG-1: IF I$45»"N" AND I 


$€»"n" THEN GOTO 2760 
2790 INPUT "NIVEL DA HABILIDADE 
DOS GANSOS ";SG: IF SG<1 OR $ 
G>10 THEN GOTO 2790 

2800 LET HG=131* (SG=5)+613* (SG% 
6)+1997* (8G>6): IF HFXHG THEN 





LET HF=HG 

2860 INPUT "VOCE QUER ALTERAR À 
S POSICOES ТМІСТА1І8 ?”;15: ТЕ 
I$-"N" OR I$- THEN GOTO 30 





00 








2880. IF 15<>"5" AND 15<>"af THE 
N GOTO 2860 

2890 GOSUB 210: GOSUB 310; INPU 
T "QUER MOVER A RAPOSA 2";I5 
2900 IF I$="N”" OR IS= THEN 
GOTO 2930 

2910 ТЕ 1$<>"S" AND I$4^"s" THE 


N GOTO 2890 

2920 INPUT "PARA ONDE ?";F: IF 
Ғ<1 OR F>32 THEN GOTO 2920 
2930 FOR G=1 TO 4: GOSUB 210: G 
OSUB 310 

2940 INPUT "QUER MOVER O GANSO 
DA POSICAO”;(G(G));"?";15 
2950 IF IS-"N" OR I$-"n" 1 
GOTO 2990 

2960 1F 15<>"5" AND 15<>"s” THE 








N сото 2940 
2970 INPUT "PARA ONDE ?" IF 
FN X(I) OR I-F THEN GOTO 2960 | 





2972 IF I<1 OR 1>32 THEN GOTO 
2970 

2980 LET G(G)*I 

2990 NEXT G: IF FN X(F) THEN P 
RINT "HA UM GANSO SOB A RAPOSA" 
: FOR I*1 TO 1500: NEXT I: GOTO 
2910 

3000 RETURN 


2500 DIM R(1400),S(1400) 

2700 F-1:G(1)*28:G(2) *29:G (3) *3 
0:G(4)-31:G08UB 2710:GOTO 1010 
2710 CLS:PRINT "VOCE QUER SER A 
RAPOSA (S/N) ?"; 

2720 KS-INKEYS:IF KS$Q9787 AND K 
$<>"N" THEN 2720 

2730 PRINT K$:PF=1:1F KS="S" TH | 


















EN PF=0:GOTO 2760 
2740 PRINT:PRINT "NIVEL DE HABI 
LIDADE DA RAPOSA (0-9) ?”; 

2745 KS-INKEYS:IF K$4"0" OR KS» 
"9" THEN 2745 

















2746 SF=VAL (K$)+1:PRINT KS 

2750 НЕ“-131%(5Ғ-5)-613%(5Ғ-6)- 
1399%(5Ғ>6) 

2760 PRINT:PRINT "VOCE QUER CON 
TROLAR OS GANSOS (S/N) ?"; 
2770 KS*INKEYS:IF K$<>"S” AND K 
8<>"М" ТНЕМ 2770 

2780 PRINT K$:PG-1:1F K$-"S" TH 
EN PG*0:GOTO 2860 

2790 PRINT:PRINT"NIVEL DE HABIL 
IDADE.DOS GANSOS (0-9) ?"; 
2798 KS-INKEYS$:IF K$«"0" ОВ КҘ> 
"9" THEN 2795 

2796 SG=VAL (K$)+1:PRINT K$ 

2800 HG--131*(SG-5)-613*(SG*6) - 
1399M(8G>6) : IF HF<HG THEN HF=HG 
2860 PRINTSPRINT"VOCE QUER ALTE 
RAR AS POSICOES —INICIAIS (S/N 
E 

2870 K$=INKEYS:1F K$<>"S” AND К 
$<>"N" THEN 2870 

2880 IF K$="N" THEN 3000 

2890 GOSUB 210 

2920 DRAW"BM180,80"*MW$:XX*FNXX 
(1) :YY"FNYY (1) :GOSUB 1810:F=4*I 
NT (YY/20) :F=FNCN (F) 

2925 PUT(68,8)- (87,27) ,89,PSET: 
PUT (XX, YY*5) - (XX*19, YY*13) , FX, P 
SET 


2930 FOR G=1 TO 4:G0SUB 210 
2940 XX=FNXX (G (G)) :X1=XX:YY=FNY 
Y(G(G)) :YE&YY.GOSUB 1810:PUT(Xl 
,Ү1)-(Х1%19,Ұ1%19),50,Р5ЕТ 

2950 I=4RINT(YY/20) :1=ENCN (1) 
2960 IF (FNX(I) OR I=F) AND I<> 
с(с) GOSUB 5000:GOTO 2940 

2970 PUT(XX,YY*5) - (XX*19, YY*14) 
,GS, PSET:G (6) =1 

2990 NEXT:IF FNX(F) GOSUB 5000: 
сото {2920 

2995 C=1:G=G(1) 

3000 RETURN 


na 


2500 DIM R(1100),8(1100) 

2700 F*1:G(1)728:G(2) 72 (3)=3 
0:G(4)=31:GOSUB 2710:GOTO 10 
2710 CLS:PRINT”Alguém joqa com 
а гарова? (ЗУМ E 

2720 KS-INKEYS:IF KS€Q38" АМО Қ 
$4»"N" THEN 2720 

2730 PRINTKS:PF=1:1F K9="S" 
М PF=0:GOTO 2760 

2740 PRINT:PRINT"Habilidade dá 
raposa? (0-9) "; 

2745 KS*INKEYS:IF KS€"0" OR ME 
"9" THEN 2745 

2746 SF=VAL (KS)+1:PRINTKS 

2750 НЕ=-131*(8Е=5)-613* (ВЕЙ 
1099* (SF>6) 

2760 PRINT:PRINT"Alguém joga СӘ 
m os gansos? (S/N) "; 
2770 KS-INKEYS:IF К9<>"8”, 
$X»"N" THEN 2770 

2780 РАІМТКҘ:РС=1:ІР КҘ= 888 НЕ 
N PG=0:GOTO 2860 

2290 PRINT:PRINT"Habi lidade dos 
mantos2. (0-9) "; 

2795 K$-INKEYS:IF KSc"0" OR KS» 
"9" THEN 2795 

2796 SG=VAL (K9)+1:PRINTKS 

2800 HG=-=131*(50*5)=613* (5G=6)= 
1099*(8026) IF HFCHG THEN HF*HG 
2860 PRIN' IRINT'VOCe quer alte 
таг as posições inicais? (S/N) 


THE, 


AND K 


2870 RS*INKEYSTIE KSC»"S" AND K 
$€»"N" THEN 2870 

2880 TE KS="Nº TEEN 3000 

2890 GOSUB 210:GÓSUB 4000:GOSUB 
2920:GOTO 1010 


2920 PRESET (IBB, 80) : PRINT41 
ara ?'XXSFNXXO ) : YY=FNYY (1) 
SUB 1810 *FeA*INT ( (YY-2) /20 

NCN (F) 

2925 PUT SPRITE FX, (XX,YY),6 
2930 POR Gel TO 4:GOSUB 210 
2940 XX=FNKXUG (G) ) : YY=FNYY (G(G) 
) :GOSUB 1810 

2950 І-4хІмт((ЖҰ-2)у20):1-ҒЫСЫ( 
I) 

2960 IF (FNX(TI COR ТЕЕ) AND IC» 
G(G) THEN GOSUB 5000:GOTO 2940 
2970 GS (5-4, 1)*T1:0(G6)=T:PUT ӘРЕ 
ІТЕ 65 (5-00) (ХХ ХХ) 15 

2990 NEXT ;IF-FNX(F) THEN GOSUB 
5000 :GoTo/ 2920 

2995 C=1G=G (1) 

3000 RETÚRN 




















































































2500 DIM-R(1500),8(1500) 

2700 F = 1: FOR I = 28 TO 31:G( 
I - 27) = I: NEXT : GOSUB 2710 
GoTO 1010 

2710 HOME : ЧТАВ 22: PRINT "AL 


GUEM JOGA COM A RAPOSA? (S/N) ” 


i 

2720 GET K$: IF K$ < 2» "S" AN 
D K$ < > "N” THEN 2720 

2730 PRINT K$:PF = 1: IF K$ -= 
"S" THEN PF = 0: GOTO 2760 

2740 PRINT "HABILIDADE DA RAPO 
SA? (0-9) "; 

2745 GET K$: IF K$ < "0" OR KS 
» "9" THEN 2745 

2746 SF = VAL (K$) + 1: 
K$ 

2750 HF = 131 * (SF = 57 + 613 


PRINT 




















Ж (8Р « 6) % 1499" (sr > 6) 
2760 НОМЕ © УТАВ 22: PRINT "AL 

GUEM-JOGA COM OS GANSOS? (S/N) 

2770 IF K$ < > AN 

D ks < THEN 2770 

2780 PRINT K$:PG l: IF K = 

SA THEN PG 0: GOTO 2860 

2790 PRINT "HABILIDADE DOS GAN 

508% (0-9) 

2795. GET K5: IF KS "0" OR K$ 
2 79" ТНЕМ 2795 

2796 $6 VAL (KS) * 1: PRINT 

к5 

2800 НС 131 * (SG 5) * 613 

Ж (80 6) * 1499 * (SG 6): I 

E HF < HG THEN HF HG 

2860 HOME VTAB 22: PRINT "QU 

ER-MUDAR AS POSICOES INICTALS£ 
(S/N) "; 

2870 GET IF K9 €. 5» "S" AN 

D K$ < > " THEN 2870 

2880 IF K$ = “Nº THEN 3000 
2890 GosuB 210 

2920 HOME : VTAB 22: PRINT "MO 

VE PARA ONDE?":XX = ЕМ XX(1):Y 
Ү = FN YY(1): GOSUB 1610:F = 4 
* INT (YY Л 20) Е = EN CN(F) 











2925 HCOLOR= 'M: DRAW FX AT 120 
,8: HCOLO! 3: DRAW FX AT XX * 
2,YY +8 

2930 FOR G = 1 TO 4: GOSUB 210 








2940 :XX FN XX(G(G)) :XN = XX 

YY = FN YY(G(G))EYN = YY: GOS 
UB 1810: HCOLOR= 0: DRAW GS AT 
XN + 7,YN * 5 


2950 1 = 4 * 








INT (YY 7-20):1 - 


ЕМ CN(I) 
2960 ТЕ ( ЕМ, Х4Л) ОВ І = Е) АМ 
о І < 006) ТНЕМ GOSUB 5000: 
сото 2920 


2970 HCOLOR= 3: DRAW GS AT XX 
+ 7,YY + 5:G(G) = I 
2990 NEXT : IF FN X(F) 
GOSUB 5000: GOTO 2920 
2995 С = 1:6 = 6(1) 
3000 RETURN 

A linha 2700 determina as posições 
iniciais, com os quatro gansos ocupan- 


THEN 
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do os quatro quadrados da coluna infe- 
rior do tabuleiro, e a raposa, O segundo 
quadrado a partir da esquerda do vídeo, 
na coluna superior 

Em seguida, as linhas 2710 a 2750 pe- 
dem que se defina quem jogará pela ra- 
posa e que seja indicado um nível de di- 
ficuldade de 1 a 10, se for o computa- 
dor. As linhas 2760 a 2800 são seme- 
lhantes, só que tratam dos gansos: 

O jogador pode ajustar as posições 
iniciais não só para dar continuidade a 
uma partida (será preciso tomar nota 
das posições), mas, também, paraestu- 
dar e tentar ganhar o jogode uma posi- 
ção particularmente interessante, As li- 
nhas 2860 a 3000 perguntam se o joga- 
dor quer alterar as posições de início, 
realiza todas as modificações necessárias 
e verifica se estas estão de acordo com 
as regras. 


MAPEAMENTO DAS JOGADAS 


A rotina de mapeamento de jogadas 
é uma das mais importantes do jogo: 


140 DEF FN X(B)=B=G(1) OR B=G( 
2) OR B=G(3) OR B=G(4) 
2100 DIM RS(8,16) 


2142 DEF FN Z(B)=(B=G(1))+(B=G( 
2) )*244B=G(3))*3+(B+G (4) ) *4 
2150 DIM M(4,32): DIM X(32): DI 
м 2(32) 


2160 FOR B=1 TO 32: LET U=B-1-4 
INT (B/4-.2): FOR A=l TO 4: LE 
T M(A,B)=(B-2)-2*U+8* ((B<5) OR 
(492) )+(A*7-6)* (U=3)+(A=2)+(A=2 
)+(A=4); NEXT A: LET X(B)=((B>4 
)+(B<29))* ((U<3)+1): LET Z(B)=( 
B>4)* ((U<3)+1): NEXT B 

2180 DIM V(11): DIM A(11): DIM 
F(11): DIM P(11): DIM C(11): DI 
M R(1): DIM S(1) 


2110 DEFFNF (B) * ((B»23) * (B€28) )* 
( (3ANDB) €3) -1) -1 

2120 DEFFNG(B)*(B»3)*(((3 AND B 
)<3)-1)-1 

2140 DEFFNX(B)*(B*G(1)ORB*G(2)0 
RB*G (3) ORB*G (4) ) 

2142 DEFFNZ (B)=- (B=G(1))-(B=G (2 
))*2-(B=G(3))*3- (B=G (4))*4 

2150 DEFFNXX (B) =- ((7ANDB)<4)* (2 
8+40* (3ANDB) ) - ((7ANDB) >3) * (128- 
40* (3ANDB) ) 

2155 DEFFNYY (B) *8*20*INT(B/4) 
2156 DEFFNCN (B) =B- ( (7ANDB) <4) * ( 
KX-28)/40- ( (7ANDB)>3)* (128-XX) / 
40 

2160 FOR B=0 TO 31:FOR/A=0 TO 3 
2M (A,B) *B-2* (3ANDB) -2-B* (BC4 OR. 
А>1)-(1%А%7)%((3 АМО В)-3)%(1 
AND A):NEXT:X(B) *FNF (B) :Z(B) *FN 
G(B):NEXT 


2110 DEFFNF(B)*((B»3)* (BC28) ) *( 
( (BM0D4) €3) -1) -1 





2120 DEFFNG (B) *(B33) * (((BMOD4) € 
3)-1)-1 

2140 DEFFNX(B)= (B*G(1)0RB=G (2) 0 
RB=G (3) ORB=G (4)) 

2142 DEFFNZ(B)sm(B=G (1))-(B=G (2 
))92- (B=GAINIRI=(B=G (4) ) *4 

2144 DEFFN22 (B)==(B=GS(1,1))-(B 
$08(2:1))*2-(B*68(3, 1) ) *3- (B-GS 
(4,1))*4 

2150 DEFENXX(B)*-((BMODB8) 44) * (3 
8+40* (BMOD4))=((BMOD8)>3) * (138- 
40* (BMOD4) ) 

2155 DEFFNYY (B) *20*20* INT (B/4) 
2156 РЕҒЕМСЫ(В)-В-((вм008)<4)%( 
XX-38)/40- ( (BHODB) 23) * (138-XX) / 
40 

2160 FOR B*0 TO 31:FOR A-0 TO 3 
¿M(A,B)=B-2* (BM0D4)-2=8* (B<4 OR 
A21) - (UL*A*7) * ( (BHOD4) = 3) + (AMOD 
2) :NEXT:X (B) *FNF (B) :Z (B) *FNG(B) 
¿NEXT 


MITO DEF FN MD(X) = X - (INT 

(X / MD) * MD): DEF EN MAGE 

=X- ( INT (X / 2) * 2): DEF 

FN M4(X) * X - ( INT (X / 43% 

4): DEF ЕМ М(Х) =" х - (ІМ 

X / 8) * 8) 

2115 DEF FN F(B) = ((B » 3X 

(B € 28)) * (( FN M4(B) «X 3) Ж 

1) - 1 

2120 DEF FN G(B) (в > 3) * 

(( FN M4(B) < 3) + 1) - 1 

2140 DEF FN X(B) = (B = G( 

1) OR B = G(2) OR B = G(3) OR B 
G(4)) 

2142 DEF FN Z(B) (B = с(1)) 
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*—(B^* G(2)) 
w 3 + (B= 
2150 DEF 
)<4) * 
(B)) + ( 


* 2 + (B = G(3)) 
G(4)) * 4 

FN XX(B) * ( FN MB(B 
(ХІ + 21 * 40 * EN M4 
FN M8(B) > 3) * (X2 - 
41 - 40 * FN M4(B)) 
2155 DEF FN YYX4B) 

INT (B / 4) 

2156 DEF FN CN(B) * B * ( FN 
MB(B) < 4) * (XX = 78) / 40 + ( 
ЕМ М8(В) > 3) х (178 - XX) / 4 
0 

2160 FOR B= 0 
0 TO 3:M(A,B) = 
В) - 2 + 8 * (В 
Q0 *A* 7) * ( 
+ ЕМ М2(А): NEXT 
(B):Z(B) = FN G(B) 


= у + 20 * 


TO 31: FOR À = 

В-2% FN M4( 

cC 4 OR A > 1) + 
FN M4(B) = 3) 

X(B) = FN F 
NEXT 


As linhas2110a 2160 montam o ma- 
pa:dos movimentos da raposa e dos gan- 
sos na matriz M, armazenam o número 
dos movimentos possíveis da raposa na 
matriz X e o dos gansos na matriz Z. As 
matrizes são formadas pelas funções de- 
finidas nas linhas 2110 a 2142 

A rotina do Spectrum é mais curta 
devido à lógica interna dessa máquina 


Agora, adicione esta rotina: 


1410 INPUT 


2"; 18 


"QUER JOGAR DE NOVO 
(S/N) 








O que é Inteligência Artificial? 

A Inteligência Artificial (IA), cujos 
conceitos são utilizados no jogo 4 Ra- 
posa e os Gansos, é um campo da In- 
formática que procura desenvolver mé- 
todos computacionais para imitar o in- 
telecto humano em várias tarefas, co- 
mo o diagnóstico de doenças, a pros- 
pecção mineral etc. Os jogos estraté- 
gicos, como o xadrez, também têm si- 
do alvo de estudos. Aplicam-se a eles 
sobretudo duas técnicas de IA: a pro- 
gramação heurística e a otimização de 
busca 


1420 IF I 
GOTO 2700 
1430 ІҒ 15< 
N GOTO 1410 
1440 STOP 





1410 PRINT 6390,"QUER RECOMECAR 
(S/N) ?" 

1420 K$=INKEYS:IF KS="S" GOSUB 

4040:CLS:GOTO 2700 

1430 IF K$<>"N" THEN 1420 

1440 CLS:END 


1410 LOCATE 5,20:PRINT"QUER REC 
OMECAR? (S/N)". 












1420 KS-INKEYS:IF KS-"S" THEN R 
UN; 

1430 IF KS<>"N” THEN 1420 

1440 CLS:END 

1410. For Z 1 TO 500 NEXT 
TEXT : HOME PRINT )GA OUTE 
А VEZ? (S/N š 

1420 с IF KS AN 
D K$ < THEN 1420 

1430 IF 5 » THEN RUN 
1440 HOME END 


Essas linhas entraráo em cena quan. 
do os gansos conseguirem encurralar a 
raposa ou quando a raposa conseguir 
atingir o lado oposto do tabuleiro 

Nao tente nesta fase executar o pro- 
grama, pois ainda falta adicionar várias 
partes vitais, Com as rotinas do.próxi- 
mo artigo vocé poderá, finalmente, co- 
meçar a jogar 






























Como vimos no artigo da página 876, 
o disco magnético é a melhor alternati- 
va para quem deseja um armazenamen- 
to mais rápido e confiável do que o pro- 
porcionado pela fita cassete. Entretan- 
to, ao contrário do que ocorre com o 
gravador de fita, pode ser complicado 
fazer funcionar a combinagáo compu- 
tador-disquete. Além disso, o usuário 
precisa aprender uma série de novos co- 
mandos para controlar o disco. 

Este artigo explica como conectar e 
usar os acionadores de disquetes dispo- 
níveis para os diversos tipos de micro- 
computador existentes no Brasil. As li- 
nhas cobertas no artigo sáo: TRS-80, 
TRS-Color, Apple 11, TK-2000 e MSX. 
Uma breve mengáo é feita aos micros 
compatíveis com a linha Spectrum 
(TK-90X), que dispóe de unidades acio- 
nadoras apenas no Exterior. 

A primeira coisa que vocé deve fazer 
ao receber sua unidade de disquetes é 
checar se ela foi protegida para trans- 
porte. Em geral, um pedago de cartoli- 
na do tamanho de um disquete é inseri- 
do na unidade, a fim de proteger a ca- 
beça de leitura e gravação, Retire esse 
protetor somente depois de colocar o 
acionador no local em que será utiliza- 
do. Guarde-o, porém, para que, quan- 
do se fizer necessário, possa mudar o 
computador de lugar 


0 CONECTAR 


Conectar a unidade acionadora de 
disquetes ao micro pode ser fácil ou 
complicado, dependendo do modelo. 


Os microcomputadores compatíveis 
com a linha TRS-Color utilizam unida- 
des acionadoras de disquetes de 5 1/4 
polegadas (minidisquetes), de face sim- 
ples e densidade dupla. Encontram-se 
no mercado gabinetes de um ou de dois 
acionadores (como os do CP-400). 

A conexáo é muito simples: o cabo 
de ligação, do tipo plano, tem na ponta 
um conector que deve ser inserido na 

, porta de cartuchos do micro. 
O software operacional de utilização 








COMO UTILIZAR 
UM DISQUETE 


já está gravado em memória ROM, na 
própria unidade de disco, Dessa manei- 
ra, torna-se instantaneamente disponi- 
vel tão logo se liga o computador, não 
sendo necessário carregá-lo de um dis- 
quete. O cabo de força da unidade acio- 
nadora deve ser ligado separadamente 
em uma tomada. 





Os microcomputadores compatíveis 
com a linha TRS-80 utilizam unidades 
acionadoras de disquetes de 5 1/4 pole- 
gadas (minidisquetes), de face simples 
ou dupla e densidade dupla. É possível 
concectar até quatro unidades por mi- 
cro. Alguns modelos de computador 
comportam dois acionadores no gabine- 
te principal e mais dois em caixas sepa- 
radas. Outras marcas aceitam apenas 
unidades externas. 

Em geral, os acionadores já vém ins- 
talados nos micros que os aceitam no ga- 
binete principal, quando se compra o 
modelo com disquetes. Se vocé possui 
um computador desse tipo e pretende 
adicionar um ou dois acionadores, re- 
comendamos que náo o faga sozinho: 
peça auxílio ao revendedor, pois a ins- 
talação é razoavelmente complexa e re- 
quer a abertura do gabinete. 

Nos computadores em que os aciona- 
dores são ligados externamente, a cone- 
xão é muito simples: o cabo de ligação, 
do tipo plano, tem na ponta um conec- 
tor que deve ser inserido na porta de ex- 
pansão de discos do micro, Para ligar 
mais de uma unidade, deve-se utilizar 
um cabo próprio, com vários conecto- 
res intercalados (daysy chaining). Não 
são necessários cabos de força separa- 
dos para as unidades acionadoras, pois 
a alimentação ocorre por intermédio do 
cabo de conexão. 


[é] 


Os microcomputadores que são com- 
patíveis com a linha Apple II utilizam 
unidades acionadoras de disquetes de 5 
1/4 polegadas (minidisquetes), de face 
simples e densidade dupla. A placa de 
controle (interface) deve ser adquirida 











O emprego de um acionador de disquetes 
em seu microcomputador pode envolver 
algumas complicações. Este artigo 

mostra como evitar erros comuns e como 
fazer o melhor uso desse periférico. 


separadamente, e podem ser conectadas 
a ela até duas unidades acionadoras. O 
número de placas de controle que cabem 
no micro depende da marca, mas, de um 
modo geral, empregam-se até três pla- 
cas. Os acionadores costumam alojar- 

















se individualmente em caixas externas. 

A conexào nào é muito simples, po- 
rém com alguns cuidados, vocé mesmo 
pode fazé-la. Primeiro, desligue o mi- 
cro da tomada e abra a tampa superior 
do console (UCP). Localize um conec- 





_ COMO CONECTAR UMA 
UNIDADE DE DISQUETES 

CADEIA DE CONEXÃO 
“CUIDADOS FUNDAMENTAIS 


FORMATAÇÃO DE DISCOS. 


tor interno vazio para colocar a placa de 
controle — utilizam-se, normalmente, 
os conectores 6 e/ou 5 para isso. O ca- 
bo de ligação da unidade, do tipo pla- 
no, tem na ponta um conector fêmea 
que deve ser inserido no macho corres- 


— ARQUIVOS E SEUS NOMES 
E ATUALIZAÇÃO DO CATÁLOGO 


m OSISTEMA OPERACIONAL 
PRINCIPAIS COMANDOS 
- DE SOFTWARE 


pondente, na placa de controle. 
necessários cabos de força separados pa- 
ra as unidades acionadoras, pois a ali- 
mentação ocorre por intermédio do ca- 
bo de conexão. 


[d] 


O microcomputador TK-2000 pode 
usar apenas um acionador de disquetes, 
com discos de 5 1/4 polegadas (minidis- 
quetes), de face simples e densidade du- 
pla. O acionador é ligado ao console 
através de uma interface externa. Esta 
é adquirida à parte e deve ser inserida 
na porta de expansáo do equipamento. 
Desligue o micro da tomada para pro- 
ceder á conexáo. 

O cabo de força da interface e do 
acionador deve ser ligado separadamen- 
te na tomada, pois a UCP nào tem po- 
tëncia suficiente para ambos. 


nau 


Os microcomputadores compatíveis 
com a linha MSX 1 utilizam unidades 
acionadoras de disquetes de 5 1/4 pole- 
gadas (minidisquetes), de face simples e 
densidade dupla, ou microdisquetes de 
3,5 polegadas, de face dupla (encontra- 
dos apenas no Exterior). Existem gabi- 
netes de um ou de dois acionadores dis- 
poníveis no mercado. 

A conexáo é muito simples: o cabo 
de ligacào tem a interface e um conec- 
tor na ponta. Este deve ser inserido nu- 
ma das portas de cartuchos do micro- 
computador. O software operacional de 
utilizacào já está gravado em memória 
ROM, na própria unidade de disco. As- 
sim, torna-se instantaneamente disponí- 
vel tào logo se liga o computador, nào 
sendo necessário carregá-lo de um dis- 
quete. A unidade acionadora nào requer 
cabo de força separado 


Náo existem no mercado nacional 
unidades de disquete para os micros 
compatíveis com a linha Sinclair ZX 
Spectrum. Nos Estados Unidos e na Eu- 








ropa, podem ser adquiridos facilmente 
dois tipos de sistemas de armazenamen- 
to magnético auxiliar para esses micros: 
os acionadores de disquetes de 5 1/4 ро- 
legadas, de face simples e densidade sim- 
ples (em gabinetes com até dois aciona- 
dores, e descanso para o teclado), e os 
acionadores de fitas sem fim (tape loop). 
Estes, por suas características, aproxi- 
mam-se dos disquetes em modo de ope- 
ração, e custam bem mais barato. Os 
modelos mais conhecidos são o Micro- 
drive, da própria Sinclair, e o Wafadri- 
ve. Podem ser ligados até oito aciona- 
dores em paralelo. 

Para ligar o Microdrive, é necessário 
ter também uma Interface 1 da Sincla- 
ri, ou similar, que deve ser inserida na 
porta de expansão do teclado. Para 
fazê-lo, desligue o computador. O ca- 
bo de conexão, do tipo plano, tem duas 
pontas: uma para inserção na Interface 
e outra para o Microdrive. Cada Micro- 
drive, por sua vez, tem um conector fê- 
mea que possibilita a ligação de vários 
acionadores. Não são necessários cabos 
de força separados para os acionadores, 
pois os mesmos são alimentados pelo 
computador. 


FORMAT 


Antes de usar o disquete para arma- 
zenar informaçào, deve-se prepará-lo 
por meio de um procedimento de soft- 
ware, chamado de formatagáo ou inicia- 
lização. O programa de formatação sim- 
plesmente impõe um padrão de trilhas 
e setores no disco virgem, definindo (isto 
é, gravando certos apontadores e listas) 
o modo como a informação será arma- 
zenada no disco. 

Os disquetes são inicialmente dividi- 
dos em trilhas concêntricas, por sua vez 
““fatiadas”* em setores de igual número 
de bytes. O controlador de disquetes re- 
conhece precisamente as marcas feitas 
pelo programa formatador. Esse proce- 
dimento é chamado de setoreamento por 
programa (soft-sectoring). 

O processo de formatação varia con- 
forme a marca do computador e o sis- 
tema operacional empregado. Eis aqui 
os comandos que você pode utilizar pa- 
ra formatar um disquete: 





Coloque o disquete com o sistema 
operacional na unidade acionadora nº 0, 
Existem duas opções para a formatação 
de um disquete virgem nos micros des- 
ta linha: somente formatação — que 
produz um disquete sem o sistema ope- 


racional — e cópia total — que copia tu- 
do o que o disco-mestre tem, inclusive 
o sistema operacional. A operação di- 
fere conforme o número de acionado- 
res de disquetes do computador. 

Para formatar, apenas, digite: 


FORMAT 


O programa fará, então, uma série de 
perguntas. Primeiro, pedirá que você in- 
dique a unidade em que está o disque- 
te. Se você tem apenas um acionador, 
indique drive 0 e retire o disquete com 
o sistema operacional do mesmo, colo- 
cando o disco virgem em seu lugar. Se 
você tem dois ou mais acionadores, não 
é preciso fazer isso: basta inserir o dis- 
quete virgem em outra unidade e indi- 
car o seu número ao programa (por 
exemplo, drive 1). 

Ao executar a formatação, O progra- 
ma indicará o número da trilha que es- 
tá formatando. Ao final, retire o disque- 
te formatado da unidade. 

No caso de formatação com cópia, 
use o comando: 


BACKUP 


Entre as informações solicitadas, o 
programa pede ao usuário que indique 
se deseja reformatar o disquete, caso ele 
já esteja previamente formatado. Se a 
resposta for sim, o programa funciona- 
rá como foi explicado anteriormente e, 
depois, fará a cópia do disquete-mestre. 
Se você tem apenas um acionador, pre- 
cisará realizar várias vezes a operação 
de retirar disquete de cópia e inserir dis- 
quete-mestre. Fique atento para não tro- 
car os discos. Convém proteger o dis- 
quete-mestre colocando uma etiqueta 
adesiva sobre o orifício quadrado da 
margem do envelope. Será preciso, ain- 
da, saber a senha de acesso do disquete- 
mestre. 





Coloque o disquete virgem na unida- 
de acionadora, feche a porta da mesma 
e digite pelo teclado: 


DSKINIT 


(417%) 


Coloque o disquete com o sistema 
operacional na unidade acionadora 1. 
Proceda à inicialização, carregando o 
sistema operacional. 

Tire o disquete do sistema e coloque 
o disquete virgem na unidade acionado- 
ra. Feche a porta da mesma e digite pe- 
lo teclado o comando NEW. Todos os 
disquetes com o sistema operacional 


precisam ter um programa em BASIC 
gravado. Este será carregado automati- 
camente toda vez que o computador for 
ligado. Escolha e digite o programa que 
desejar: ele pode conter desde uma linha 
de saudação até vários comandos que 
executem alguma tarefa específica. Em 
seguida, digite o comando: 


INIT NOME 


NOME refere-se ao programa inicial 
de carregamento, que normalmente re- 
cebe a designação de HELLO ou ALO. 
A formatação será, então, realizada. 


nau 


Coloque o disquete com o sistema 
operacional na unidade acionadora A. 
A operação de formatação varia confor- 
me o nümero de acionadores de disque- 
te do computador. 

Para formatar, apenas, digite: 


FORMAT A: 


se o seu computador tem apenas um 
acionador, ou: 


FORMAT B: 


se o seu computador tem dois acio- 
nadores. 

O programa dará, entào, algumas in- 
formações. Se você tem apenas um acio- 
nador, indique drive A e retire o disque- 
te com o sistema operacional do mesmo, 
colocando o disco virgem em seu lugar. 
Se você tem dois ou mais acionadores, 
não é preciso fazer isso: basta inserir o 
disquete virgem em outra unidade e in- 
dicar o seu número ao programa (por 
exemplo, drive B). 

Ao final, retire o disquete formata- 
do da unidade. 


Para a formatação de um Microdri- 
ve, use o comando: 


FORMAT "M";1;"NOME" 


ES DE ARQUIV! 


Tudo o que é armazenado em disque- 
te — seja um programa, seja um con- 
junto de dados — precisa ter um nome. 
O sistema operacional de disco trata de 
forma igual dados e programas: ambos 
sáo chamados de arquivos. O número de 
caracteres permitidos no nome de um ar- 
quivo de disco varia segundo o modelo 
do computador. A maioria deles aceita 
nomes formados por oito caracteres, no 
máximo. Os micros da linha Apple, po- 














rém, aceitam até trinta caracteres, e o 
Microdrive para o Spectrum, até dez. O 
Apple é, também, o único micro que 
permite a inclusão de espaços em bran- 
co e de outros caracteres especiais den- 
tro de um nome de arquivo. Pode-se 
perfeitamente chamar um arquivo de 
DADOS DE ENTRADA, por exemplo. 
Os computadores das linhas TRS-80, 
TRS-Color e MSX, ao contrário, exigem 
que o nome do arquivo não tenha espa- 
ços em branco e que comece com um ca- 
ractere alfabético. 

Nesses computadores, quando se usa 
o comando SAVE para armazenar algu- 
ma coisa em disco, a máquina automa- 
ticamente adiciona um sufixo ao nome 
que foi fornecido. Esse sufixo pode ser 
BAS, que significa que um programa em 
BASIC foi gravado, BAK, que indica 
que o arquivo é uma cópia (BAcK-up) 
de outro arquivo no mesmo disco, ou 
DAT, que identifica um arquivo de da- 
dos, distinguindo-o de um programa. 
Conforme a linguagem, outros sufixos 
podem ser utilizados, mas devem ter 
sempre um máximo de trés letras. Nos 
micros das linhas TRS-80 e TRS-Color, 
sáo separados do nome principal por 
uma barra (PROG/BAS, por exemplo); 
nos da linha MSX por um ponto (PROG. 
BAS, por exemplo). 

Náo existem sufixos nos nomes de ar- 
quivos para as linhas Apple e TK-2000. 

Os nomes de arquivos sáo essenciais 
para a operação de um sistema que uti- 
liza discos, pois cada um destes possui 
um catálogo, ou lista com todos os no- 
mes de arquivos gravados. Tal catálo- 
go (catalog ou directory) é atualizado 
sempre que um novo arquivo é criado, 
gravado ou apagado. Voltaremos a es- 
se assunto mais adiante. 


COMO LIGAR E DESLIGAR 
O ACIONADOR 

Ao ligar ou desligar o acionador, ve- 
rifique se nào há algum disco em seu 
interior. Como os disquetes sáo muito 
sensíveis, um setor do catálogo inter- 
no pode se apagar quando o acionador 
for ligado ou desligado. 

Esse acidente ocorre com freqüén- 
cia nos modelos cujo catálogo se situa 
nas trilhas mais externas, onde usual- 
mente a cabeça fica em repouso. Re- 
cuperar a informação contida no res- 
tante do disco será, então, impossível, 
pois o software operacional não terá 
meios de localizá-la. 





O conhecimento dos comandos de 
software é fundamental para o uso cor- 
reto de unidades de disquetes, assim co- 
mo de outros periféricos, entre os quais 
joysticks, canetas ópticas e impressoras. 
Esses comandos podem fazer parte do 
sistema operacional, das linguagens de 
programação (como o BASIC) ou, ain- 
da, de ambos. 

Como a sintaxe e o uso dos coman- 
dos variam conforme o micro, a lingua- 
gem e o sistema operacional, trataremos 
de cada máquina separadamente. 





Os comandos utilizados pelos micros 
compatíveis com o TRS-Color para gra- 
vare ler programas são o SAVE eo LOAD 
— assemelham-se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneira de usá-los também 
é bastante simples: se você quiser, por 
exemplo, gravar em disco um programa 
que está em memória, digite o comando 
SAVE “NOME”, Para carregar, digite 
LOAD “NOME”. Como o TRS-Color 
náo tem sistema operacional separado do 
BASIC, trabalhar com uma unidade de 
disquetes é mais fácil. 

Para carregar um programa em BA- 
SIC armazenado em disco, náo precisa 
digitar o sufixo: basta indicar o nome 
dentro de um comando LOAD, 

Quando se liga o computador pela 
primeira vez, a opção VERIFY é acio- 
nada, ou seja, tudo o que for gravado 
em disco será automaticamente verifica- 
do pelo computador. Para desativar es- 
sa opção, digite VERIFY OFF. Para 
reativá-la, digite VERIFY ON. 

A lista dos arquivos gravados em um 
disquete será obtida com o comando: 





DIR 


que é uma abreviação de DIRectory. Es- 
se comando é muito útil, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas características etc. DIR in- 
dica ainda quantos bytes estão sobran- 
do no disquete. 

a também um comando que pos- 





já эзен. em disco. Se vocé digi- 
tar, por exemplo: 


RENAME "VELHO" TO 


o comando substituirá o nome do arqui- 

vo chamado VELHO por NOVO, 
Para apagar arquivos do disco, utilize 

o comando KILL. Por exemplo, para 


"NOVO" 


um programa chamado INUTIL, digite: 
KILL "INUTIL" 





Os comandos utilizados pelos micros 
compatíveis com o TRS-80 para gravar 
eler programas sào o SAVEeo LOAD 
— assemelham-se, portanto, aos que se 
empregam com fita cassete (CSAVE e 
CLOAD). A maneira de usá-los também 
é simples: se você quiser, por exemplo, 
gravar em disco um programa que está 
em memória, digite SAVE “NOME”. 
Para carregar, digite LOAD “NOME”. 
O TRS-80 tem um sistema operacional 
separado do BASIC, mas os comandos 
de disco mais importantes também es- 
tão disponíveis na linguagem. 

Para carregar um programa em BA- 
SIC armazenado em disco, não é neces- 
sário digitar o sufixo: basta indicar o no- 
me dentro de um comando LOAD. 
` Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
Sistema operacional, digite: 


DIR 


que é uma abreviacáo de DIRectory. Es- 
se comando é muito útil, pois mostra na 
tela quantos bytes ocupa cada arquivo, 
se se trata de programa ou de dados, 
quais as suas características etc. DIR in- 
dica ainda quantos bytes estáo sobran- 
do no disquete. O comando equivalen- 
te em BASIC é o FILES, de efeito se- 
melhante, mas náo igual ao do DIR. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 


RENAME "VELHO" TO "NOVO" 


€ o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO. 
Para apagar arquivos do disco, utili- 
ze o comando KILL. Suponhamos que 
vocé queira apagar um programa cha- 
mado INUTIL. Digite, em BASIC: 


KILL "INUTIL/BAS" 


С 951 


Os comandos empregados pelos mi- 
cros compatíveis com as linhas Apple e 
TK-2000 para gravar e ler programas 
sáo o SAVE e o LOAD. A maneira de 
usá-los é muito simples: se vocé quiser, 
por exemplo, gravar em disco um pro- 
grama que está em memória, digite 
VE NOME. Para carregar, 
LOAD NOME. O Apple e o TK-2000 
nào tém um sistema operacional sepa- 
rado do BASIC, sendo; fáceis de usar. 












































Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite: 


CATALOG 


Esse comando é muito ütil, pois mos- 
tra na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos etc. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 


RENAME VELHO, NOVO 


e o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO. 

Para apagar arquivos do disco, utili- 
ze o comando DELETE. Suponhamos 
que você queira apagar um programa 
chamado INUTIL. Digite, em BASIC: 


DELETE INUTIL 


Outro comando útil é o VERIFY, 
que informa se determinado arquivo foi 
danificado ou escrito incorretamente. 
Merecem ainda menção o comando 
LOCK e o UNLOCK, que permitem 
proteger ou retirar a proteção de arqui- 
vos contra apagamento acidental. 


nu 


Os comandos utilizados pelos micros 
da linha MSX para gravar e ler progra- 
mas sào o SAVE e o LOAD — os mes- 
mos, portanto, que se empregam com 
fita cassete. O modo de usá-los é sim- 
ples: se vocé quiser, por exemplo, gra- 
var em disco um programa que está em 
memória, digite SAVE “А:МОМЕ”, 
para registrar um arquivo chamado NO- 
ME, na unidade de disquete A. Para 
carregar um programa, digite LOAD 
“A:NOME”. O MSX pode acomodar 
até dois disquetes, chamados de A e B. 

Quando quiser carregar um progra- 
ma em BASIC armazenado em disco, 
não digite o sufixo; basta indicar o 
nome dentro de um comando LOAD. 

Para obter uma lista dos arquivos 
gravados em um disquete, a partir do 
sistema operacional, digite, em BASIC: 


FILES 


Esse comando é muito útil, pois mos- 
tra na tela quantos bytes ocupa cada ar- 
quivo, se se trata de programa ou de da- 
dos, quais as suas características etc. 

Existe também um comando que pos- 
sibilita a troca do nome de um arquivo 
já armazenado em disco. Digite, por 
exemplo, em BASIC: 

NAME "A:VELHO" 


AS "A:NOVO" 


€ o comando substituirá o nome do ar- 
quivo chamado VELHO por NOVO 
(ambos no disquete A). 

Para apagar arquivos do disco, utili- 
ze o comando KILL. Suponhamos que 
vocé queira apagar um programa cha- 
mado INUTIL. Digite, em BASIC: 


KILL "A:INUTIL.BAS" 


Os comandos SAVE e LOAD utili- 
zados para a transmissáo de dados en- 
tre computador e fita cassete foram mo- 
dificados para permitir a gravacáo de 
leitura de programas no Microdrive: 


LOAD *"m";1;"nome” 
SAVE *"m"; 





;"nome" 


O asterisco indica que o comando faz 
parte do BASIC armazenado na ROM 
da Interface 1. O meo I informam que 
a operação se dará no Microdrive nº 1. 
Seguindo o mesmo formato, há um co- 
mando que verifica gravações depois de 
feitas (VERIFY) e outro que combina 
dois programas na memória. 

O comando CAT — abreviatura de 
CATálogo — é utilizado para exibir na 
tela a lista de arquivos armazenados em 
um cartucho de Microdrive. 

Para apagar um arquivo do Micro- 
drive, emprega-se o comando ERASE, 
que tem o mesmo formato que o SAVE 
eo LOAD, não exigindo, porém, o as- 
terisco. 


ETE LIC SII 


COM A UNIDADE DE DI 





Ao contrário da UCP, do teclado e 
do vídeo, que sáo bastante resistentes e 
praticamente dispensam quaisquer repa- 
ros, as unidades de disco constituem o 
*“calcanhar-de-Aquiles'*dos sistemas ba- 
seados em microcomputadores. A con- 
fiabilidade de operacáo dessas unidades 
é muitas vezes maior do que a dos gra- 
vadores cassete, por exemplo. Porém, 
por serem dispositivos mecánicos rela- 
tivamente complexos e muito delicados, 
exigem alguns cuidados por parte do 
usuário, se ele quiser operar por muitas 
horas, sem problemas. 

Devido à sua fragilidade mecánica, as 
unidades de disquete sào extremamente 
sensíveis a qualquer choque. Mesmo que 
nada se quebre depois de uma batida 
mais forte, pode ocorrer um descalibra- 
mento da cabega. Portanto, mantenha 
a unidade em um ponto seguro da me- 





Quais sáo as vantagens da utiliza- 
ção de cartuchos de programas, em 
vez de fitas e discos? Posso gra 
met próprios programas em um 
cartucho? 

A maior vantagem dos programas 
em cartuchos é que eles estáo imedia- 
tamente disponíveis para uso, não sen- 
do preciso carregá-los. Além disso, são 
muito mais seguros e resistentes con- 
tra a perda de programas. 

Os cartuchos (como os existentes 
para micros das linhas TRS-Color e 
MSX) sáo memórias ROM removíveis, 
que não podem ser alteradas de nenhu- 
ma maneira — em outras palavras, 
constituem um meio permanente de ar- 
mazenamento, Você não pode, portan- 
to, gravar seus programas neles. Mas 
há a alternativa de gravação permanen- 
te de programas em um tipo de memó- 
ria chamado EPROM (Eraseable Pro- 
grammable Read Only Memory), o que 
requer um periférico especial, o progra- 
mador de EPROM, que pode ser conec- 
tado a muitos micros. O custo da mon- 
tagem de um sistema desse tipo é, po- 
rém, muito elevado. 














sa. Se precisar transportá-la, faca-o com 
todo cuidado e dentro da embalagem 
acolchoada original. 

É importante, também, levar em con- 
ta que a cabeca da unidade de disquete 
trabalha em atrito direto contra o meio 
magnético. Qualquer poeira, ou detri- 
to, por menor que seja, que tiver aces- 
so a ela, diminuirá a vida da mesma e 
provocará defeitos. 

A temperatura ambiente deve ser 
mantida em níveis razoáveis durante a 
operação, sobretudo porque, normal- 
mente, a unidade não possui ventilação. 

Quanto aos cuidados gerais, lembre- 
se de que o cabo de conexão deve estar 
bem inserido, sem dobras e livres de ten- 
sões mecânicas. Limpe periodicamente 
os contatos dos conectores. Preste mui- 
ta atenção ao inserir o disquete, para 
não fazê-lo com a orientação errada, o 
que pode danificar irremediavelmente a 
cabeça da unidade. 

Evite usar disquetes “flippy”, pois 
soltam fragmentos. Não use produtos de 
limpeza internamente: para isso, existem 
disquetes especiais de limpeza, que de- 
vem ser rodados a cada cinquenta a cem 
horas de uso. 














































OS SEGREDOS 





A memória ROM do TRS-80 guarda 
recursos que, em geral, os usuários 
desconhecem. Sabendo quais sáo eles, 
vocé poderá utilizar incríveis 

truques de programacáo em BASIC. 


Os microcomputadores da linha 
TRS-80 sáo considerados tecnicamente 
obsoletos por muitas pessoas. Entretan- 
to, os usuários desse popular modelo, 
que já tiveram a oportunidade de explo- 
rar mais a fundo seus diversos recursos, 
podem testemunhar o quanto eles sáo 
poderosos — algumas vezes, mais até do 
que os disponíveis em certos microcom- 
putadores de tipo profissional, maiores 
e bem mais caros. 

Na série de artigos que aqui inicia- 
mos, vocé verá como explorar alguns 
dos recursos menos conhecidos do 
TRS-80 e de seus compatíveis nacionais 
(como o CP-300 e o CP-500, da Proló- 
gica) e internacionais. Daremos exem- 
plos de manipulação de tela, teclado, 
som e de vários aspectos do BASIC pou- 
co esclarecidos no Manual de Pro- 
gramação. 


ШШШ АШ, 


O vídeo do TRS-80 possui uma pro- 
priedade muito interessante: ele é ma- 
peado em memória. Isso significa que 
uma parte da memória RAM é dedica- 
da exclusivamente ao vídeo, e que qual- 
quer coisa nela armazenada terá, auto- 
maticamente, um efeito sobre o vídeo, 
sobretudo se se tratar de um caractere 
visivel (ASCII ou gráfico). 

A memória de vídeo comega па lo- 
cagáo 15360 e ocupa 1024 bytes, ou se- 
ja, um para cada posição na tela. Há, 
portanto, uma equivalência entre o nú- 
mero indicado em um PRINT Q e a me- 
mória absoluta referente à posição na te- 
la, que é a soma de 15360 a esse nümero. 
Por exemplo, o comando 


PRINT e 125,"A"; 


colocará o código 65 (ASCII para a letra 
A maiúscula) na locação 15360 + 125, ou 
15485. 


DO TRS-80 (1) 


PEEK E. POKE 


Como a memória de vídeo tem uma 
correspondéncia byte a byte com a tela, 
podemos escrever utilizando o coman- 
do POKE. A linha 


POKE 15485,65 


tem exatamente o mesmo efeito que o 
PRINTQ mostrado acima. 

Se vocé nào quiser recorrer à tabela 
de códigos ASCII sempre que for escre- 
ver na tela com o POKE, use esta for- 
ma alternativa: 


РОКЕ 15485,ASC("A") 


Em alguns casos, o emprego do PO- 
KE é mais vantajoso que o do PRINT Q2. 
Para colocar caracteres na tela sem pro- 
vocar o movimento do cursor, por exem- 
plo, o POKE é o comando indicado. 
Além disso, em certas situações ele po- 
de ser mais rápido do que o PRINTO. 
Finalmente, o comando POKE permite 
a impressão de um caractere no canto in- 
ferior direito da tela (posição 1023), sem 
provocar o deslocamento de toda a tela 
para cima (scrolling). 

Quando se trata, porém, de imprimir 
uma cadeia de caracteres (armazenados 
em uma variável literal, por exemplo), 
o uso do POKE fica em nítida inferio- 
ridade em relação ao do PRINT. 

Para examinar o conteúdo de uma lo- 
cação da tela, utiliza-se também a fun- 
ção PEEK, o que pode ser muito útil em 
uma grande variedade de programas, 
principalmente de jogos. O programa 
abaixo, por exemplo, lé o que está es- 
crito na linha de cima da tela e, auto- 
maticamente, transforma em minúscu- 
las todas as letras. 


10 CLS 

20 INPUT "ENTRE MENSAGEM ”;IS 
30 CLS:PRINT IS 

40 FOR I=15360 TO 15423 

50 J=PEEK(I):IF J>64 AND J<91 
THEN POKE I,J*32 

60 NEXT I:PRINT 


O mesmo poderia ser feito tomando- 
se, um a um, os caracteres de I$, trans- 
formando-os em uma outra cadeia. Po- 
rém, o programa ficaria mais complica- 
do e menos rápido. Note que a transfor- 





Œ RECURSOS OCULTOS DO TRS-80 
п A MEMÓRIA DO VÍDEO 











п O USO DOS COMANDOS 
PEEK e POKE 
а COMO COPIAR A TELA 





mação de tipos maiüsculos para tipos 
minúsculos é bem fácil: basta, para is- 
so, somar 32 ao código ASCII do carac- 
tere maiúsculo. 

Um programa de jogo pode nos for- 
necer um exemplo menos óbvio de apli- 
cação do PEEK. Suponhamos que seja 
necessário testar se uma bala de canhão 
(um caractere gráfico) colidiu com algu- 
ma parte da estrutura complexa de um 
castelo. Será bem mais conveniente uti- 
lizar um PEEK a cada posição de des- 
locamento da bala, uma vez que a fun- 
ção POINT não terá um desempenho 
satisfatório nesse caso. 


МА 





IA DA TELA 


Muitos programas exigem que se fa- 
са uma cópia rápida da tela, em algu- 
ma parte da memória que nào seja a de 
vídeo. Esse procedimento é empregado, 
por exemplo, nos programas que criam 
“janelas” de tela ou superpõem várias 
informações sobre o vídeo. Neste últi- 
mo caso, poderemos precisar de diver- 
sas cópias da tela, uma de cada ‘‘сата- 
da'' superposta de informações, para 
que se torne possível a recuperação das 
telas originais posteriormente. 

Uma maneira fácil, mas não rápida, 
de copiar uma tela consiste em usar os 
comandos POKE e PEEK dentro de um 
laço que percorre cada memória de vi- 
deo. Para isso, é necessário reservar a 
parte da memória RAM que conterá a 
cópia. A reserva é feita logo que se acio- 
na o interpretador BASIC, aparecendo 
na tela a pergunta MEM?, MEMORY 
SIZE? ou outra, conforme a versão do 
computador utilizado. 

O programa abaixo usa a memória 
RAM acima de 30000: 


100 IM-30001 

110 FOR 1=15360 TO 16384 
120 POKE IM,PEEK(I) 

130 IM=IM+1:NEXT 


Para trazer a cópia de volta para o 
vídeo, basta trocar os endereços do 
PEEK e do POKE: 

100 IM-30001 

110 FOR 1-15360 TO 16384 
120 POKE I.PEEK(IM) 

130 IM=IM+1:NEXT 


AMPLIAÇÃO DOS CARACTERES. 
== Е DA ROM 
__ ALTURA DAS LETRAS 
” MONTAGEM DE LETRAS 
“COM BLOCOS GRÁFICOS 


Se você quiser escrever uma manchete 
ou um título em letras garrafais, 
precisará criar tipos especiais. 

Veja aqui dois diferentes métodos para 
a obtenção de caracteres ampliados. 


O conjunto de caracteres disponíveis 
através do teclado deixa muito a dese- 
jar — o que é compreensível se consi- 
derarmos que ele foi criado de maneira 
a economizar espaço de memória. As- 
sim, quando queremos escrever com le- 
tras maiores, destacando a mensagem, 
precisamos criar nossos próprios carac- 
teres ampliados. 

Existem muitas formas de utilizar os 
recursos gráficos de seu microcomputa- 
dor para obter novos conjuntos de ca- 
racteres. A escolha de uma delas depen- 
derá do tipo de aplicação que você tem 
em vista. Para ampliações, dispomos de 
duas alternativas básicas: desenhar as le- 
tras linha por linha no modo gráfico de 
alta resolução ou montar as letras com 
blocos gráficos. 

Ambos os métodos podem ser usados 
dentro de um programa específico, des- 
tinado a escrever determinada frase — 
mas este é um caminho pouco econômi- 
co, já que cada mensagem exige uma no- 
va rotina. A melhor solução, sobretu- 
do quando pretendemos utilizar man- 
chetes com freqüéncia, consiste em criar 
um programa que se encarregue de ge- 
rar os caracteres necessários. Uma vez 
feito isso, poderemos simplesmente in- 
formar ao computador o texto que de- 
verá ser impresso, deixando a execução 
do serviço por conta do programa. Nos- 
so trabalho se resumirá, assim, à grava- 
ção do gerador de letras e à sua coloc: 
ção nos programas que precisem de c: 
racteres maiores no vídeo. 

Este é o primeiro de dois artigos em 
que sáo explicadas as diversas maneiras 
de escrever manchetes e cartazes. Aqui, 
trataremos em detalhe dos dois métodos 
já mencionados. O primeiro utiliza a ta- 
bela de padróes de caracteres existente 
na memória, aumentando seu formato. 
Como resultado, obtemos tipos seme- 
Ihantes aos caracteres normais, só que 
em tamanho maior, disponíveis através 








ШІ! 





do teclado, da forma usual. Infelizmen- 
te, esse método nào pode ser emprega- 
do pelos usuários do Apple e do TRS- 
Color, que não têm acesso aos padrões 
de caracteres. 

O segundo método usa blocos gráfi- 
cos da ROM para construir as letras, 
funcionando em todos os microcompu- 
tadores, menos no Apple, que não dis- 
põe de blocos gráficos da ROM. 

No próximo artigo, examinaremos 
outra maneira de criar letras, que pode 
ser adaptada a todo tipo de aplicação. 
Veremos, também, de que modo utili- 
zar os métodos explicados no aperfei- 
çoamento de programas. 


AMPLIAÇÃO DOS CARACTERES 


Quando executamos o programa ela- 
borado especialmente para ampliar ca- 
racteres, o computador aguarda a entra- 
da da frase que deverá escrever. O Spec- 
trumeo MSX, em seguida, colocam na 
tela as letras ampliadas, com o dobro da 
altura original. 

Até adquirir alguma experiência e 
perceber como o programa funciona, es- 
creva palavras curtas. Se usar frases 
mais longas, elas serão divididas no fi- 
nal da linha. 

Com base nos bytes que definem os 
padrões dos caracteres, o programa cria 
os blocos gráficos que, juntos, forma- 
rão o novo caractere. Para duplicar a al- 
tura de uma letra, por exemplo, o com- 
putador substitui cada byte do caracte- 
re por dois outros, repetidos dentro do 
mesmo bloco gráfico. 





1000 INPUT "INTRODUZA UM TEXTO” 
, LINE I$: CLS GOSUB 9000: GO 
TO 1000 

9000 LET 1іпе=0: 
9010 LET y=0 
9020 FOR i=l TO LEN I$: 
=col+1: IF col=32 THEN 
=0: LET line=line+2 

9030 LET t$-I$(1) 

9050 FOR x-0 TO 6 STEP 2 
9060 POKE USR "a"*x,PEEK (15616 
*(8*(CODE t$-32)) *y) 

9070 POKE USR "a"+l+x, PEEK (156 
16*(8*(CODE t$-32))*v) 

9080 ГЕТ у=у+1 

9090 МЕХТ х 

9100 FOR x=1 TO 7 STEP 2 

9110 POKE USR "b"*x-l,PEEK (156 
16+(8* (CODE t$-32))+y) 

9120 POKE USR "b"*x,PEEK (15616 
*(8*(CODE t$-32))*v) 

9130 LET y-y*1 

9140 NEXT x 
9150 LET y-0 


LET col=-1 


LET col 
LET col 


9160 PRINT AT line,col;CHR$ 144 


¡AT line+1,col;CHRS 145 
9180 NEXT 1 
9200 RETURN 

A primeira linha do programa possi- 
bilita a entrada de nosso texto, 
colocando-o dentro da variável alfanu- 
mérica I$. Para controlar a posicào de 
impressáo do texto na tela, utilizam-se 
duas variáveis. Seus valores iniciais sào 
0, para a coordenada vertical, e — 1, pa- 
ra a coordenada horizontal. Uma tercei- 
ra variável, Y, recebe o valor inicial ze- 
TO, antes que o processo de ampliacào 
comece. 

A linha 9020 inicia um laco FOR... 
NEXT que dará um nümero de voltas 
igual ao comprimento de nossa frase. A 
cada volta, o valor da coordenada ho- 
rizontal (variável col) aumenta em uma 
unidade. O valor inicial de col era — 1 
justamente para que a impressáo do tex- 
to começasse a partir do canto esquer- 
do da linha, onde col = 0. 

Se chegar a 32 (uma posição além da 
extremidade direita da linha), o valor da 
coordenada horizontal voltará a ser 0, 
para que o computador coloque as le- 
tras restantes a partir do lado esquerdo 
da tela. A coordenada vertical é, então, 
aumentada em duas unidades, tornan- 
do possível que o texto excedente seja 





































escrito na linha seguinte. 

A linha 9030 coloca a letra que deve 
ser ampliada dentro da variável t$, usan- 
do o contador do laço, i (t$ conterá, as- 
sim, o i-ésimo caractere do texto). Em 
seguida, o computador dá inicio a um 
novo laço, que coloca dois bytes repeti- 
dos dentro de um bloco gráfico, quatro 
vezes. 


A CHAVE DO PROCESSO 


As contas feitas para calcular o nú- 
mero a ser colocado dentro do bloco 
constituem a chave de todo o processo 
de ampliação das letras. 

Analisando a linha 9060, você pode- 
rá entender os cálculos. A primeira me- 
tade é muito simples. Ela coloca um nú- 
mero (cujo cálculo é explicado adiante) 
com POKE em um endereço x posições 
além do primeiro byte do bloco gráfico 
(UDG) a. A variável x, que controla о 
laço FOR...NEXT, aumenta com um 
TEP 2, de forma que o segundo byte 








não sofre alterações quando o laço é 
executado novamente. 

A segunda metade calcula o número 
que será colocado pelo POKE. Esse nú- 
mero corresponde a um dos bytes do pa- 
drão do caractere que está sendo amplia- 











do, obtido da tabela que fica na ROM. 
O endereço inicial da tabela é 15616. A 
fórmula entre parênteses subtrai 32 do 
código ASCII do caractere e multiplica 
o resultado por 8, para identificar a po- 
sigáo do primeiro byte do padráo den- 
tro da tabela. 

O código ASCII do caractere preci- 
sa ser subtraído em 32 unidades, antes 
da multiplicação por 8, devido ao mo- 
do como o Spectrum armazena os pa- 
drões dos caracteres (de fato, não há 
nessa parte da memória oito bytes para 
cada um dos 32 primeiros caracteres). 

Depois de calcular a posição dos pa- 
drões do caractere dentro da tabela, o 
computador soma o valor obtido ao en- 
dereço inicial da tabela, 15616, e adicio- 
na o resultado a y. Lembre-se de que no 
início do programa atribuímos a y о va- 
lor zero. Essa variável será utilizada pa- 
ra indicar o byte que está sendo lido e 
colocado dentro do UDG. Quando seu 
valor é zero, o computador lê e coloca 
no UDG o primeiro byte do caractere 

As linhas 9060 e 9070 colocam em 
duas linhas consecutivas do UDG o mes- 
mo byte obtido na tabela de padrões, 
duplicando a altura da letra. Depois, 
y é aumentado em uma unidade e o 
processo se repete para o próximo by- 
te do padrão, até que o laço FOR... 








NEXT termine — a esta altura, quatro 
pares de bytes terão sido colocados no 
UDG a. 

O Spectrum inicia, então, outro laço 
FOR...NEXT, que procede como o an- 
terior para colocar os quatro últimos 
bytes do padrão do caractere no UDG 
b, sempre repetindo cada byte duas ve- 
zes. O laço termina na linha 9140 e o 
programa faz y voltar a valer O 

A linha 9160 é a responsável pela im- 
pressão dos blocos gráficos, um acima 
do outro. Ela usa as variáveis line e col 
para identificar a posição de impressão 
do caractere ampliado. No programa, o 
comando PRINT “A” foi substituído 
por CHRS 144 para evitar que o leitor 
se confunda — o “A” normal e o té 
gráfico pareceriam absolutamente iguais 
na listagem. 

Finalmente, a linha 9180 conclui o la- 
ço principal do programa, mandando o 
computador ampliar a letra seguinte. Ao 
completar a frase, o computador volta 
à linha 1000, que possibilita a entrada 
de um novo texto. 





Embora o Apple não nos dê acesso 
aos padrões binários que definem o for- 





mato de seus caracteres, veremos como 
aplicar a técnica de ampliação utilizan- 
do os UDG criados por um programa 
do artigo da página 526. 

Na listagem que se segue, você encon- 
trará apenas as modificações necessárias 
para ampliar as letras criadas no progra- 
ma mencionado. Sem as linhas DATA 
iniciais, que se encontram listadas na- 
quele artigo, você não obterá nenhum 
resultado. Mais ainda, se tentar exe- 
cutar apenas as linhas aqui apresenta- 
das, o computador sairá fora de seu con- 
trole e as linhas digitadas acabarão se 
perdendo. 






799 HGR 

800 AS = "ESTA MENSAGEM E' UM T 
ESTE” 

810 C = 7:L = 11: GOSUB 1000 
820 END 

1000 N= L * 40 +C 

1010 FOR J= 1 TO LEN (AS) 
1020 B$ = MID$ (A$,J,1) 

1030 B = ASC (B$) 

1040 L = INT (N/ 40:C * N - 
40 * L 

1050 FOR I = 0 TO 3 

1060 POKE T + (L - 8 * (L » 7) 
- 8 * (L > 15)) * 128 + 40 * ( 
L > 7) * 40 * (L > 15) * € * 10 
24 * 2 * I, PREK (E* B* 8 * T 
) 

1065 POKE T + (L - 8 * (L > 7) 

















- 8 * (L5 15)) * 128 * 40 * ( 
L > 7) * 40 * (L 5» 15) * C * 10 
24 * (2 * I * 1), PEEK (E* B * 
8 + 1) 

1066 NEXT I:L = L +1 

1070 FOR I = 0 TO 3 

1073 POKE T + (L - 8 * (L > 7) 
> 8 * (L» 15)) * 128 * 40 * ( 
L» 7) * 40 * (L 5» 15) * C * 10 
24 * 2* I, PEEK (E* B* 8* I 
* 4) 

1076 POKE T + (L - 8 * (L > 7) 
- 8 * (L > 15)) * 128 + 40 * ( 
L >?) + 40 * (L > 15) + C + 10 
24 * (2 * I * 1), PEEK (E* B * 


8 + I +4) 

1079 NEXT I:N = N + 1: NEXT J 
1080 HCOLOR= 6 

1090 HPLOT 25,80 TO 250,80 TO 


250,105 TO 26,105 TO 26,80 
1100 RETURN 


Consultando o artigo anteriormente 
citado, veremos que nosso programa 
utiliza a sub-rotina que começa na linha 
1000 para colocar os padróes das letras 
da frase contida em A$ na tela de alta 
resolução. As variáveis C e L definem 
alinha e a coluna em que faremos a im- 
pressão, sempre supondo que a tela tem 
quarenta colunas e 24 linhas. 

A linha 1000 coloca em N a posição 
da tela em que a primeira letra da frase 
será escrita. A linha 1010 inicia um la- 
ço FOR... NEXT que dará tantas voltas 
quantas forem as letras da frase que de- 
sejamos imprimir. 

A variável alfanumérica B$ contém 
a letra que está sendo escrita. A cada 
volta, um novo caractere é colocado ali, 
com o auxílio da função MIDS, e a li- 
nha e a coluna de impressão são recal- 
culadas a partir do valor de N. 

Em seguida, o programa inicia um la- 
ço FOR...NEXT que coloca na tela dois 
bytes repetidos do padrão da letra, qua- 
tro vezes. Os cálculos feitos para a re- 
petição dos bytes são a chave do proces- 
so de ampliação. 





Já tivemos a oportunidade de mos- 
trar aos usuários do Apple e do TK-2000 
como é caótica a organização da memó- 
ria de vídeo desses dois micros. A ordem 
de preenchimento das linhas de pixels do 
Apple é tão confusa que quem não tem 
certa familiaridade com a matemática 
dificilmente conseguirá entender as fór- 
mulas das linhas 1060 a 1076. 

Mas, no nosso caso, isso não tem tan- 
ta importância. Para compreender o 
funcionamento do programa, basta sa- 
ber que o primeiro laço coloca na tela 
a metade superior da letra ampliada e 
o segundo, a metade inferior. Um carac- 






















Letras de altura dupla são ideais para 
páginas-título de jogos ou outros programas. 


tere comum ocuparia oito linhas de ví- 
deo com seus oito bytes. Aqui, para am- 
pliar as letras, cada byte é repetido duas 
vezes, resultando nas dezesseis linhas do 
caractere ampliado. 

Assim, a linha 1060 coloca os quatro 
primeiros bytes do padrão da letra nas 
posições pares do bloco gráfico corres- 
pondente à metade superior do caracte- 
re ampliado. A linha 1065, por sua vez, 
coloca os mesmos quatro primeiros 
bytes nas posições ímpares daquele blo- 
co. O processo se repete nas linhas 1073 
e 1076, só que os bytes são colocados no 
bloco correspondente à metade inferior 
do caractere. 


Үл S 


10 FOR J=0 TO 50 STEP 2 
20 FOR X=0 TO 7 STEP 2 
30 VPOKE BASE(2)*1024*J*B*X,PEE 
K ( (PEEK (4) ) + (PEEK (5) *256)+520+Y 


) 

40 VPOKE BASE(2)*1024*J*B*X*1,P 
EEK ( (PEEK (4) ) + (РЕЕК (5) *256) +520 
+Y) 

50 LET Y-Y*1 

60 NEXT X 

70 FOR X-8 TO 15 STEP 2 

80 UPOKE BASE (2)+1024+J*B+X,PEE 
K ( (PEEK (4) ) + (PEEK (5) *256)+520+Y 
) 

90 VPOKE BASE(2)+1024+J*8+X+1,P 
EEK ( (PEEK (4) ) + (РЕЕК (5) *256) +520 
*Y) 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
0 
200 LOCATE C,L:PRINTCHRS$(128*2* 
(B-65)) :LOCATE C,L+1:PRINTCHRS ( 
129*2* (B-65)) 

210 LET C=C+1 

220 IF C=40 THEN LET C=0:L=L+2 


LET Y=Y+1 

NEXT X 

NEXT J 

CLS 

PRINT" INTRODUZA A PALAVRA” 
INPUT IS 

CLS:L=0:C=0 

FOR I=1 TO LEN(IS) 

LET B-ASC(MIDS(IS,I,1)) 
IFB<65 OR B>90 THEN GOTO 21 





230 NEXT I 
240 GOTO 140 


O programa comeca com a rotina que 
transfere os dados de definição dos ca- 
racteres da ROM para a memória de ví- 
deo (VRAM), nas linhas 10 a 120. 

A seção que vai da linha 130 à 150 
limpa a tela e pede que o usuário intro- 
duza a palavra ou mensagem a ser am- 
pliada. As linhas 160 a 240 contêm a ro- 
tina que imprime as letras no vídeo. As 
variáveis L e C registram, respectiva- 
mente, a linha e a coluna em que serão 
impressos os novos caracteres gráficos 
que irão compor as letras. 

O laço que se inicia na linha 170 im- 
prime uma letra a cada valor de I, sem- 
pre acrescentando | à variável C, para 
que as letras fiquem uma ao lado da ou- 
tra. Quando a frase alcança a extremi- 
dade da tela, a linha 200 zera С е асгев- 
centa 2 à variável L, a fim de que a pró- 
xima letra seja escrita na primeira colu- 
na da linha seguinte. 

A linha 180 faz a variável B assumir 
o valor do código ASCII do caractere 
a ser ampliado e a linha 190 verifica se 
as letras são maiúsculas. A linha 200 im- 
prime os dois blocos gráficos que irão 
compor a letra, ambos na mesma colu- 
na, mas um abaixo do outro. 

Para saber como se obtêm os valo- 
res colocados dentro dos parênteses 
após o comando CHRS, é preciso enten- 
der o processo de ampliação. 





DE AMPLIAÇÃO 


Ao ser ligado, o MSX copia o padrão 
dos caracteres gravados na ROM na 
parte de sua memória dedicada ao vídeo 


(VRAM). É a partir dessa tabela da 
VRAM que ele imprime as letras no ví- 
deo. Cabe ao nosso programa criar os 
blocos gráficos que irào compor as le- 
tras ampliadas e colocá-los na tabela da 
VRAM, no lugar que antes era ocupa- 
do pelos caracteres padronizados, a par- 
tir do caractere de código 128. 

Sabemos que o padrào de um carac- 
tere é formado por oito bytes. Podemos, 
portanto, obter um caractere ampliado 
repetindo duas vezes cada byte. O en- 
dereço do padrão dos caracteres na 
ROM está registrado nos bytes 4 e 5 e 
o endereço do padrão de caracteres na 
VRAM é dado por BASE(2). Somando 
o endereço aí contido a 1024, teremos 
o endereço da VRAM, que será usado 
pelo VPOKE. 

Na linha 30, a viriável J simplesmente 
incrementa a posição nessa memória. O 
PEEK examina o endereço correspon- 
dente na RAM, onde estão os padrões 
gráficos. Para a obtenção do código da 








letra A, adiciona-se o nümero 520. O Y 
indica o byte a ser copiado. As linhas 
70 a 110 do programa fazem a mesma 
cópia para a parte inferior do bloco grá- 
fico de cada caractere. 





Além de ampliar os padrões preexis- 
tentes na memória do micro, podemos 
criar nossas próprias letras. Essa alter- 
nativa é especialmente importante para 
os usuários do TRS-Color, que não per- 
mite o acesso aos padrões das letras. 
Aqui estão alguns programas que utili- 
zam caracteres gráficos do computador 
para construir letras ampliadas. 


DATA "EM 


„30 





Е 
90 РАТА "вари", " 





me”, 
"Est". Е 
100 DATA " ас”, 
"ET" 

в”. 





J 
110 DATA " 
"г oo” 








150 DATA 
"mom, 
160 DATA " 





200 DATA "d 
"EE." 





г 

J " "su" 

230 DATA "ICE", "ECKE". 
” DDO ", "шып" 

240 РАТА "ШЫЮ", "г" 

" EET "," EC 
250 БАТА "ПСИ ”," 
260 РАТА "БЫ", " ОС" 








270 DATA "OEC" 
280 РАТА "ОШО", "Б 

290 РОКЕ 23658,8: РІМ а$ (27,3) 
: DIM b$(27,3): DIM c$(27,3): 
DIM d$(27,3) 





300 FOR ј=0 TO 21 STEP 4 

310 FOR і=1 TO 4: READ a$(i*3) 
: NEXT і 

320 FOR i=l TO 4: READ b$(i+j) 
: NEXT i 

330 FOR i=l TO 4: READ c$(i+j)) 
: NEXT i 

340 FOR i=] TO 4: READ d$(i+)) 
: NEXT i 

350 NEXT j 

360 FOR i=25 TO 26: READ a$(i) 
+ NEXT à 

370 FOR i-25 TO 26: READ b$(i) 
: NEXT 1 

380 FOR i-25 TO 26: READ c$(1) 
: NEXT à 

390 FOR i725 TO 26: READ d$(i) 
: NEXT à 


400 INPUT "Introduza palavra(m 
ax lOletras)", LINE t$: IF LEN 
t$»10 THEN LET t$-t$( TO 10) 
405 IF LEN t$-0 THEN GOTO 400 
410 LET s$-"": FOR i-1 TO LEN 
t$: IF CODE t$(1)<65 OR CODE t. 
S(1)>90 THEN LET t$(i)*CHR$ 
91 


420 LET s$-5$*aS(CODE t$(i)-64 
): NEXT i 
430 PRINT s$ 


440 LET s$-"": FOR i*1 TO LEN 


ts 
450 LET s$=s$+bS(CODE tS(i)-64 
): NEXT 1 


460 PRINT 8$ 


470 LET s$-"": FOR i*1 TO LEN 


t$ 
480 LET s$-s5$*cS(CODE t$(1)-64 
): NEXT 1 


490 PRINT s$ 
500 LET s$-"": FOR i=l TO LEN 
t$ 

510 LET s$-s$*d$(CODE t$(1)-64 
): NEXT 1 
520 PRINT s$ 
530 PRINT : 


ES a 


10 SCREEN 0 
20 DIM A(78) ,B(78) ,C (78) ,D(78) 
30 FOR I-1 TO 78:READ S$:A(I)-V 
AL("&H"*S$) :NEXT 

40 FOR I=1 TO 78:READ S$:B(1)=V 
AL ("2H"+S5) : NEXT 

50 FOR I=1 TO 78:READ 85:С(1)-У 
AL("&H"*S$) :NEXT 

60 FOR I-1 TO 78:READ S$:D(I)-V 
AL("&H"4S$) :NEXT 

70 PRINT"introduza até 9 


GOTO 400 


letras 


80 INPUT TS:IF LEN (TS)>9 OR LE 
N (T$)-0 THEN 80 

90 FOR X-1 TO 4 

100 FOR Y-1 TO LEN(TS) 

110 AS=MIDS(TS,Y,1) 

120 A-ASC(AS) 





COMO USAR A IMPRESSORA PARA 
CONFECCIONAR CARTAZES 
E FAIXAS 


Os programas elaborados para de- 
senhar letras grandes na tela do micro- 
computador tém uma utilidade adicio- 
nal: a impressão de grandes cartazes 
e faixas. 

Como sabemos, as letras normais, 
obtidas em uma impressora comum pa- 
ra microcomputador, são muito peque- 
nas para serem vistas a distância. Pre- 
cisamos, assim, lançar mão de méto- 
dos semelhantes aos apresentados 
neste artigo para imprimir letras de ta- 
manho maior. 

A escolha da melhor solução depen- 
derá, evidentemente, do tipo de im- 
pressora que você possui. 

O tipo mais simples é aquele capaz 
de imprimir apenas texto, não dispon- 
do de blocos gráficos. Nesse caso, pro- 
gramas que trabalham com blocos grá- 
ficos da ROM, como os destinados ao 
Spectrum, não podem ser utilizados di- 
retamente com a impressora, pois ela 
não os copiará. 

Uma boa alternativa será modificar 
os programas, de modo a compor le- 
tras grandes a partir dos caracteres dis- 
poníveis na impressora. Experimente, 
por exemplo, o recurso muito comum 
de usar repetições do próprio caracte- 
re, como mostramos, abaixo, com a le- 
tra | maiúscula: 


IIIIII 
II 
II 
II 
II 

111111 


As linhas DATA, que contém os có- 
digos dos blocos gráficos, podem ser 
alteradas para descrever a disposição 
dos caracteres usados na composição. 
Outra providência necessária é mudar 
os comandos PRINT (que colocam o re- 
sultado apenas na tela) para o equiva- 
lente ao comando de impressão exis- 
tente em seu computador: LPRINT (nos 
micros TRS-80, Sinclair e MSX), PR+ 1 
(no Apple) e PRINT 1 (no TRS-Color). 

Se sua impressora tiver capacidade 
gráfica, o trabalho será ainda mais fácil. 
Usando um comando específico, como 
o COPY, nos micros da linha Sinclair, ou 
um programa de descarregamento de te- 


la, você poderá transferir para o papel o 
cartaz desenhado na tela do computador 
com os programas aqui apresentados. 











MARA 


127 IF A<65 OR A>90 : DATA D5,DB,D3,D5,DB,D3 DATA C1,D4,D3,20,C7,20 
TO 70 DATA DB,20,DD,DB,20,20 DATA C7,DF,D6,DB,20,DD 
129 LET A=A-64 DATA DB,DE,DD,DB,20,DD DATA DD,20,20,DB,20,DD 
130 B=(A-1)*3 DATA C7,DF,D6,DB,DF,D6 DATA DB,20,20,DB,20,20 
140 ON X GOSUB 190,200,210,220 DATA C7,DF,D6,DB,DF,D6 DATA DB,D5,DD,DB,20,DD 
150 NEXT Y DATA C7,DF,D6,DF,DB,D3 DATA 20,DB,20,D6,DB,20 
160 PRINT DATA DB,20,DD,DD,20,DD DATA DB,Cl,20,DB,20,20 
170 NEXT X DATA DD,20,DD,DD,20,DD DATA DD,20,DD,DD,DD,DD 
180 GOTO 70 DATA DD,20,DD,DF,DF,D6 DATA DD,20,DD,DB,DF,20 
190 FOR R-B*1 TO B*3:PRINTCHRS( DATA DD,20,DD,DB,DC,D3 DATA DD,D6,DD,DB,DF,D6 
A(R));:NEXT R: PRINT" ";:RETURN DATA DD,20,20,DB,20,DD DATA 20,20,DD,20,DB,20 
200 FOR R*B*1 TO B*3:PRINTCHR$( DATA DB,DC,20,DB,DC,20 DATA DB,20,DD,DE,DE,20 
B(R));:NEXT "i : RETURN DATA DB,20,20,DB,DC,DD DATA DD,DD,DD,D4,C1,20 
210 FOR R=B+1 : PRINTCHRS ( DATA 20,DB,20,20,DB,20 DATA 20,DD,20,D4,D3,20 
C(R) NEXT R: " ; : RETURN DATA DB,C7,20,DB,20,20 DATA DD,20,DD,DB,DC,D3 


220 FOR R=B+1 1 DATA DD,DD,DD,DD,DD,DD DATA C1,DC,D3,DB,DC,D3 
D(R)) ; : NEXT DATA DD,20,DD,DB,20,DD DATA DB,DC,D6,DB,20,20 
230 DATA C7,DF,D6,DB,DF,D6 DATA DD,20,DD,DB,20,DD DATA DB,DC,DD,DB,20,DD 
240 DATA C7,DF,D6,DB,DF,D6 DATA C1,DC,20,20,DB,20 DATA D4,DB,D6,C1,DB,20 
250 DATA DB,DF,D3,DB,DF,D3 DATA DB,20,DD,DD,20,DD DATA DB,20,DD,DB,DC,DD 
260 DATA DB,DF,DD,DB,20,DD DATA DD,D6,DD,D5,C7,20 DATA DD,20,DD,DD,DE,DD 





ІШНЕНЕНЕШ 


C1,DC,D3,DB,20,20 
C1,C7,D6,DB,20,DD 
C1,DC,D3,20,DB,20 
DB,DC,DD,20,DD,20 
C1,C1,D3,DD,20,DD 
20,DD,20,C1,DC,D6 


10 DIM L(2,3,25) 

20 FOR J=0 TO 25:FOR K=0 TO 3:F 
OR L=0 TO 2:READ L(L,K,J) :NEXT 
L,K,J 

30 CLSO 

40 PRINT 6480,"INTRODUZA A PALA 
VRA -";B$; Я 

50 AS-INKEYS:IF(ASC"A" OR AS>*Z 
")АМО А9<>СНВЗ(8) AND AS<>CHRS ( 
13) AND AS<>” " THEN 50 

60 IF AS-CHRS(13) THEN 110 


70 IF AS-CHR$(8) AND BS="" THEN 
50 

80 IF AS-CHR$(8) THEN BS=LEFTS( 
BS,LEN(BS)-1) :GOTO 30 

90 IF LEN(BS)>9 THEN 50 
100 BS-BS*AS:GOTO 30 

110 IF B$-"" THEN CLS:END 
120 CLSO:PRINT 6480,"COR 
7"; 

130 AS-INKEYS:IF AS<"1” OR AS>” 
8" THEN 130 

140 CLSO:CL=VAL (AS) 

150 FOR Y=0 TO 3:FOR C=1 TO LEN 
(B$):FOR X=0 TO 2 

160 IF MIDS(BS,C,1)=" " THEN PR 
INT CHR$(128);:GOTO 180 


(1-8) 


170 PRINT CHR$(84*CL*16*L (X, Y,A 
SC(MIDS$ (B$,C,1)) -65)) ; 

180 NEXT X, 
08(0),128) 


RINT STRINGS (32-P 
EXT Y 
сото 40 


1000 DATA 42,40,38,38,28,38,42, 
40,38,38,28,38,42,40,30,39,31,3 
6,38,28,38,39,31,36 
1010 DATA 42,40,38,38,28,28,38, 
28,28,39,31,38,42,40,30,38,28,3 
8,38,28,38,39,31,36 
1020 DATA 42,40,36,39,31,30,38, 
28,28,39,31,30,42,40,36,38,28,2 
8,42,40,36,38,28,28 
1030 DATA 42,40,38,38,28,28,38, 
29,30,39,31,38,38,28,38,39,31,3 
8,38,28,38,38,28,38 
1040 DATA 40,42,36,28,38,28,28, 
38,28,31,39,30,28,41,36,28,33,2 
8,28,33,28,39,35,28 
1050 DATA 38,29,36,39,36,28,42, 
30,28,38,32,30,38,28,28,38,28,2 
8,38,28,28,39,31,30 
1060 DATA 39,29,38,38,38,38,38, 
28,38,38,28,38,39,28,38,42,30,3 
8,38,37,38,38,32,38 























Letras maiüsculas no TRS-Color... 


1070 DATA 42,40,38,38,28,38,38, 
28,38,39,31,38,42,40,38,38,28,3 
8,42,40,36,38,28,28 
1080 DATA 42,40,38,38,28,38,38, 
30,38,39,35,38,42,40,38,38,28,3 
8,42,41,36,38,28,38 
1090 DATA 42,40,38,39,31,30,28, 
28,38,39,31,38,40,42,36,28,38,2 
8,28,38,28,28,38,28 
1100 DATA 38,28,38,38,28,38,38, 
28,38,39,31,38,38,28,38,38,28,3 
8,38,28,38,32,34,28 
1110 DATA 38,28,38,38,28,38,38, 
38,38,39, 39, 38, 38, 28, 38,32, 34.2 
8,29,37,28,38,28,38 
1120 DATA 38,28,38,39,31,38,28, 
38,28,28,38,28,40,40,38,28,29,3 
6,29,36,28,39,31,30 


Os programas apresentados funcio- 
nam de maneira bem parecida. Eles co- 
mecam dimensionando as matrizes que 
iráo conter os caracteres gráficos da 
ROM necessários à formação das diver- 
sas letras. O Spectrum emprega o co- 
mando POKE para travar as letras 
maiúsculas. O Spectrum e o MSX usam 
quatro matrizes, uma para cada linha 
das letras. Os demais trabalham só com 
uma matriz. 

Ao ser rodado, o programa demora 
um pouco para funcionar, devido à lei- 
tura das linhas DATA pelo comando 
READ. No Spectrum, essa tarefa é fei- 
ta pelas linhas 290 a 390 do programa; 
no MSX, pelas linhas 30 a 60; nos de- 
mais computadores, só pela linha 20. 

Em seguida, inicia-se a rotina prin- 
cipal, que possibilita ao usuário escre- 
ver uma palavra. Esta deve ter, no má- 
ximo, dez letras. 

Depois de verificar se a cadeia de ca- 
racteres digitada é válida, o programa 
comeca um laco FOR...NEXT que im- 
prime uma das letras a cada volta. Esse 
lago é igual ao do último programa deste 
artigo, e só termina quando a última le- 
tra tiver sido impressa. 


O Spectrum usa quatro laços 
FOR...NEXT, um para cada linha das 














THESE 
ARE 

= “БИз 

LETTERS 


«e no Spectrum. 


letras, já que elas têm quatro caracteres 
de altura. O primeiro laço adiciona um 
grupo de três caracteres a s$, para cada 
uma das letras da frase. Quando não há 
mais letras, o computador imprime s$. 
O grupo de caracteres adicionado a s$ 
varia conforme a linha impressa. Como 
podemos observar nas linhas 420, 450, 
480 e 510, adiciona-se primeiro o cor- 
dão a$, depois o b$, o «$, e, finalmen- 
te, o d$. Cada um desses cordões é, de 
fato, uma matriz. Os números entre pa- 
rênteses determinam qual elemento se- 
rá adicionado a s$. 


Assim que digitamos o texto e tecla- 
mos ENTER, o computador salta para 
a linha 110, que nos permite escolher a 
cor em que o texto será impresso. As li- 
nhas 130 e 140 se encarregam de acer- 
tar as cores e o programa prossegue com 
três laços FOR...NEXT. 

A linha 160 imprime um bloco negro 
sempre que o caractere do texto for um 
espaço. Depois, o computador pula a li- 
nha 170, indo direto à 180. 

A linha 170, embora pareça extrema- 
mente complicada, apenas imprime o 
próximo caractere gráfico da letra que 
está sendo desenhada. Os cálculos entre 
parênteses fornecem o código do carac- 
tere adequado. A primeira operação con- 
siste na soma do número 84 ao código da 
cor multiplicado por 16. Segue-se a adi- 
ção do resultado ao número apropriado 
da matriz. L(X, Y, ASC(MIDS(BS,C, 1)) 
— 65) determina qual elemento da ma- 
triz L será usado nos cálculos. 

Os nümeros das linhas DATA — co- 
locados depois na matriz L — corres- 
pondem aos códigos dos diversos carac- 
teres gráficos (básicos, pretos e verdes) 
menos 100. Eles sáo distribuídos em gru- 
pos de doze (quatro linhas de trés carac- 
teres) para cada letra, de modo que o 
13? nümero da lista corresponde à letra 
B, o 25°, ao primeiro caractere da letra 
C e assim por diante. 










Quando o computador identifica o 
elemento da matriz que deve imprimir, 
a linha 170 usa a função ASC para cal- 
cular seu código e a função MIDS para 
saber de qual letra da frase se trata. Os 
três números entre parênteses do MID$ 
definem o cordão que será cortado 
(B$,em nosso caso), seu comprimento 
(C, em nosso caso) e o número de ca- 
racteres que se deve obter a partir deste 
ponto (1, em nosso caso). 

O ponto e virgula após a fórmula da 
linha 170 evita o salto de linha, fazen- 
do com que as letras ampliadas sejam 
escritas uma ao lado da outra. 

Na linha 180, duas instruções NEXT 
chamam os valores seguintes de X (que 
controla a impressão do caractere ade- 
quado da linha da letra) e de C. 

A segunda parte da linha 180 impri- 
me um número de blocos negros sufi- 
ciente para que o computador passe à 
próxima linha e comece a montar a ca- 
deia seguinte de caracteres gráficos — 
são quatro cadeias ao todo. Ao se com- 
pletar o último laço, sua frase estará es- 
crita na tela, na cor escolhida e em ta- 
manho ampliado. 

A linha 190 aguarda que outra tecla 
seja pressionada, para que o computa- 
dor volte à linha 40 e permita a entrada 
de uma nova palavra. 

Quando você quiser interromper o 
programa, voltando ao BASIC, basta- 
rá entrar uma frase “vazia” — ou seja, 
apertar ENTER antes de digitar qual- 
quer letra — ou pressionar BREAK. 


ДУ 


A introdução da palavra (com, no 
máximo, nove letras) é feita nas linhas 
70 e 80. O laço que vai da linha 90 à 170 
“desmonta” essa palavra, letra por le- 
tra, e desenha na tela cada uma das qua- 
tro camadas que formam um caractere, 
chamando as rotinas das linhas 190 a 
220 através de um ON x GOSUB (li- 
nha 140). O código que será usado, cal- 
culado a partir do código ASCII do ca- 
ractere, na linha 130 do programa, é ar- 
mazenado em B. 

As linhas 230 a 740 contêm os códi- 
gos gráficos que compõem as quatro ca- 
madas de cada caractere. 


Sia 0146] 


Os programas deste artigo mostraram 
duas maneiras de criar letras ampliadas. 
No próximo artigo, vocé verá como ob- 
ter outro tipo de caractere e, também, 
como utilizar todos esses métodos em 
seus próprios programas. 
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- DESENHE LETRAS 
LINHA POR LINHA 


MANCHETES E ° MUN 
MAIS MANCHETES É s 


Além de blocos gráficos e do conjunto 
de caracteres do computador, 

existem outros recursos que podem ser 
utilizados na criação de letras. 

Este artigo mostra um deles. 
















































Os dois tipos de letra criados pelo 
programa do artigo Manchetes e Letrei- 
ros (página 912) são construídos a par- 
tir de blocos gráficos ou do conjunto de 
caracteres-padrão da máquina. Mas há 
um outro meio de criar letras: usando 
gráficos de alta resolução para dese- 
nhá-las, linha por linha. 

O programa que se segue funciona 
de modo semelhante ao dos blocos grá- 
ficos. Cada letra é definida por uma sé- 
rie de dados alocados em uma instrução 
DATA, que informam ao computador 
como ela será. Essa informação é arma- 
zenada em uma matriz, e é possível dar 
entrada às palavras que se quer escrever 
na forma de um cordão alfanumérico. 
Como antes, as letras são montadas con- 
forme as instruções encontradas e exi- 
bidas na tela. Mais tarde, você apren- 
derá a usar essas telas como parte de 
seus próprios programas. 


М ТЇРО А $Ей 60$ТО 


Os gráficos de alta resolução facili- 
tam enormemente a tarefa de criar o seu 
tipo de letra preferido. Isso acontece 
porque a expansão dos caracteres da 
ROM é limitada à dupli o da altura  crito de tal forma que é possível definir 
ou da largura dos caracteres. Ora, as le- essas variáveis com fatores de escala. 
tras constituídas por blocos gráficos es- Agora digite o programa... 
tão completamente fixadas devido aos 
números das linhas DATA. 

Por outro lado, os dados no nosso 












110 INPUT "DIGITE FATOR X”,X 
120 INPUT "DIGITE FATOR Y”,Y 
CLS 








N=1 TO LEN AS 

'S=AS (N) : ТЕ TS<"A" OR 
" THEN NEXT N: GOTO 100 
PLOT (1OX (N-1)XX)+X*A (CODE 


























programa também fixam a maneira co- T$-55,1,1),20*Y*A(CODE T$-55,1 
mo a letra vai ser desenhada (o L, por 10 POKE 23658,8 ,2) 

exemplo, é formado de uma linha ver- — 20 DIM N(26): DIM A(26,12,2) 160 FOR M-2 TO N(CODE T$-55) 
tical e uma horizontal). Mas essas ins- 30 FOR N=1 TO 26 170: DRAN HYA(CODE 76-55,1, 1);Y 
truções são relativas e não determinam 40 READ N(N) O 19-55,M,2) 

a aparéncia final das letras. Pense em 20 PORTTA ACA M,2) 190 NEXT N 

cada letra como se ela estivesse encer- 70 NEXT M MS 200 GOTO 100 

rada dentro de uma caixa imaginária. Se 80 NEXT N 1000 DATA 8,0,0,5, 

a caixa é alta e estreita, temos uma le- 400 INPUT "INTRODUZA UMA PALAU  0,-5,0,3,-6,0 

tra alta e estreita; se ela for baixa e lar- mA", LINE A$: IF AS-"" THEN 1010 DATA 12,0,0,0, 

ga, assim será a letra. O programa é es- сото 100 (71,71,-1,-5,0,5,0 











,71,75,0 
1020 DATA 8,6,1, 1,1 
,0,4,1,1,4,0,1,-1 





1030 DATA 7,0,0,0,6,4,0,2,-2,0, 
-2,-2,-2,-4,0 

1040 DATA 7,6,0,-6,0,0,6,6,0,-6 
,0,0,-3,5,0 

1050 DATA 6,0,0,0,6,6,0,-6,0,0, 
-3,5,0 

1060 DATA 10, 
,74,0,-1,1,0, 








1070 DATA 6, 

3,0,-6 

1080 DATA 6,0,0,6,0,-3,0,0,6,- 
‚0,6,0 

1090 DATA 5,0,1,1,-1,4,0,1,1,0, 
5 

1100 DATA 6,0,0,0,6,0,-3,6,3,-6 
.-3.6,-3 

1110 DATA 3,6,0,-6,0,0,6 

1120 DATA 5, ,0,6,3,-3,3,3,0, 
-6 

1130 DATA 4,0,0,0,6,6,-6,0,6 
1140 DATA 9,1,0,-1,1,0,4,1,1,4, 


0,1,-1,0,-4,-1,-1,-4,0 
1150 DATA 7,0,0,0,6,5,0,1,- 
-1,-1,-1,-5,0 

1160 DATA 9,4,2,2,-2,-5,0,-1,1, 
0,4,1,1,4,0,1 
1170 DATA 9,0, 
-1,-1,-1,-5,0,4 
1180 DATA 12,0, 
»1,-1,1,-4,0,-1 
e 

1190 DATA 
1200 DATA 
‚1,0,5 
1210 DATA 
1220 DATA 


1,0, 





1 





DATA 


DATA 5,3,0,0,3,-3,3,3,-3,3 


DATA 4,6,0,-6,0,6,6,-6,0 





10 PMODE 1,1:PCLS 

20 DIM N(26) ,A(26,12,2) 

30 FOR N=1 TO 26 

40 READ N(N) 

50 FOR M=1 TO N(N) 

60 READ A(N,M,1) ,A(N,M,2) 

70 NEXT M,N 

80 CLS: INPUT" INTRODUZA A PALAVR 
A ";AS:IF A$-"" THEN GOTO 80 

90 INPUT"QUAL O FATOR X ";X 

100 INPUT"QUAL O FATOR Y ";Y 
110 CLS:PCLS:SCREEN 1,0:FOR N=1 
TO LEN(A$) 

120 TS-MIDS(AS,N,1):IF TS<"A” O 
R T$>"Z" THEN NEXT N:GOTO 80 
130 Je(10* (N-1)*X)*X*A( (ASC (T$) 
764) ,1,1) :K*10*Y*A (ASC(T$) -64,1 
‚2) 
140 
150 
160 
170 
180 
190 


FOR M=2 TO N(ASC(TS)-64) 
F=X*A((ASC(TS)-64),M,1) 
G=Y*A((ASC(TS)-64) ,M,2) 
LINE (J,K)- (J+F,G+K) ,PSET 
JeJ*F:K*K*G 

NEXT M,N 


200 IF INKEYS="" THEN 200 

210 GOTO 80 

1000 DATA 9,0,6,0,-5,1,-1,4,0,1 
+1,0,3,0,2,0,-3,-6,0 

1010 DATA 12,0,0,0,6,5,0,1,-1,0 
+=1,-1,-1,-5,0,5,0,1,-1,0,-1,-1 


,-1,-5,0 
1,-1,-4,0,-1,1 


1020 DATA 8,6,1,- 
+0,4,1,1,4,0,1,-1 
1030 DATA 7,0,0,0,6,4,0,2,-2,0, 





.6,0.-6,0,0,6,6,0,-6 
,0,0,-3,5,0 
1050 DATA 7,0,0,6,0,-6,0,0,3,5, 
0,-5,0,0,3 
1060 DATA 10,7,1,-1,-1,-4,0,-1, 
1,0,4,1,1,4,0,1,-1,0,-1,-1,0 
1070 DATA 6,0,0,0,6,0,-3,6,0,0, 
3,0,-6 
1080 DATA 6,0,0,6,0, 
‚0,6,0 
1090 DATA 7,0,0,6,0,-3,0,0,5,-1 
.1,-1,0, 1 
1100 DATA 6,0,0,0,6,0,-3,6,3,-6 
.=3,6,- 
1110 DATA 3,0,0,0,6,6,0 
1120 DATA 5,0,6,0,-6,3,3,3,-3,0 
‚6 
1130 DATA 4,0,6,0,-6,6,6,0,-6 
1140 DATA 
0,1,-1,0,-4 
1150 DATA 7,0 
1,-1,1,-5,0 
1160 DATA 11,5,0,-4,0,-1,1,0,4, 
1,1,4,0,1,-1,-2,-1,2,1,0,-4,-1, 
-1 
1170 DATA 9,0,6,0,-6,5,0,1,1,0, 
1,-1,1,-5, 
1180 DATA 12, 
1,0,1,1,1,4,0 
o Tuo! 
1190 DATA 4,3,6, 
1200 DATA 6,0,0, 
0,0, 
o, 


73,0,0,6,-3 

















‚0,-5 
1210 
1220 
-6 
1230 


DATA 3, 
DATA 5,0, 


DATA 5,0,0,6, 
DATA 5,3,6,0,-3,-3,-3,3,3, 
DATA 4,0,0,6,0,-6,6,6,0 


nau 


10 SCREEN O 

20 DIM N(26),A(26,12,2) 
30 FOR N=1 TO 26 

40 READ N(N) 

50 FOR M=1 TO N(N) 

60 READ A(N,M,1),A(N,M,2) 
70 NEXT M 


75 NEXT N 

80 INPUT"introduza a palavra";A 
5 

90 INPUT"introduza a escala do 
x"iX 

100 INPUT"introduza a escala do 
y"; Y 


110 SCREEN 2 

115 FOR N-1 TO LEN(AS) 

120 T$-MIDS(AS,N,1):IF TSC"A" O 
R TS>"Z"THEN GOTO 80 


130 J=(10* (N-1)*X)+X*A ((ASC(TS) 
764) ,1,1) :K-10*Y*A( (ASC(T$) -64) 


11,2) 

140 FOR M=2 TO N(ASC(T$)-64) 
150 F=X*A((ASC(T$)-64),M,1) 
160 G=Y*A((ASC(T$)-64),M,2) 
170 LINE (J,K)-(J*F,K*G) 
180 J=J+F:K=K+G 

190 NEXT M 

195 NEXT N 

200 IF INKEYS="" THEN 200 
210 GoTO 80 


1000 DATA 9,0,6,0,-5,1,-1,4,0,1 
.1,0,3,0,2,0,-3,-6,0 

1010 DATA 12,0,0,0,6,5,0,1,-1,0 
.71,-1,-1,-5,0,5,0,1,-1,0,-1,-1 
.71.-5,0 

1020 DATA 8,6,1,- 
,0,4,1,1,4,0,1, 
1030 DATA 7,0, 0, 0,6,4,0,2,-2,0, 
-2,-2,-2,-4,0 

1040 DATA 7,6,0,-6,0,0,6,6,0,-6 
,0,0,-3,5,0 

1050 DATA 7,0,0,6,0,-6,0,0,3,5, 
0,-5,0,0,3 

1060 DATA 10,7,1,-1,- 
1,0,4,1,1,4,0,1,- 
1070 DATA 6,0,0,0, 


.71.-4,0,-1,1 












3,0,-6 

1080 DATA 6,0,0,6,0,-3,0,0,6,-3 
,0,6,0 

1090 DATA 7,0,0,6,0,-3,0,0,5,-1 
‚1,-1,0,-1,- 


1100 DATA 6,0,0,0,6,0,-3,6,3,-6 
.73,6,- 

1110 DATA 3,0,0,0,6,6,0 

1120 DATA 5,0, ,3,3,3,-3,0 
‚б 








1130 DATA 4,0,6,0,-6,6,6,0,-6 
1140 DATA 9,1,0,-1,1,0,4,1,1,4, 
0,1,-1,0,-4,- ‚0 

1150 DATA 7,0,6,0,-6,5,0,1,1,0, 
1,-1.1,-5,0 

1160 DATA 11,5,0,-4,0,-1,1,0,4, 


1,1,4,0,1,- 4,-1, 

=g 

1170 DATA 9,0,6,0,-6,5,0,1,1,0, 

1,-1,1,-5,0,4,0,2,3 

1180 DATA 12,6,1,-1,-1,-4,0, i 

1.0,1,1,1,4,0,1,1,0,1,-1,1,-4,0 

571,71 

1190 DATA 4,3, бі 0, 

1200 DATA 6,0,0,0, 
Em 
1, 








1,0,-5 
1210 
1220 
-6 

1230 
6,-6 
1240 
3,-3 
1250 DATA 4,0,0,6,0,-6,6,6,0 


[ф][] 


5  LOMEM: 16384 

10 HOME : HGR : HCOLOR= 3 
20 DIM N(26),A(26,12,2) 
30 FOR N - 1 TO 26 

40 READ N(N) 

50 FOR M = 1 TO N(N) 

60 READ A(N,M, 1) ,A(N,M, 2) 


DATA 3,0,0, 
DATA 5,0,0, 
DATA 5,0,0,6,6,-3,-3,-3,3 


DATA 5,3,6,0,-3,-3,-3,3,3, 





70 NEXT M: 
75 HOME 
80 VTAB 
PALAVRA 
GOTO 80 
90 INPUT "QUAL O FATOR X? ";X 


NEXT N 

: HGR 

22: INPUT "INTRODUZA A 
",A$: IF AS = "” THEN 


100 INPUT "QUAL O FATOR Y? ";Y 
110 FOR N >” 1 ТО LEN (A$) 

120 T$ = MIDS (AS$,N,1): IF T$ 
< "A" OR TS > "Z" THEN NEXT М: 
сото 80 

130 Ј = (10 * (N - 1) * X) +X 
* A(( ASC (TS) - 64),1,1):K = 1 
0 * Y * A( ASC (T8) - 64,1,2) 
140 FORM = 2 TO N( ASC (T$) - 
64) 

150 F * X * A(( ASC (T$) - 64), 
M1) 

160 G = Y * A(( ASC (T$) - 64), 
M,2) 

170 HPLOT J,K TO J + F,G + K 


180 J = J+F:K= K+G 


190 NEXT M: NEXT N 

200 GET R$ 

210 GoTo 75 

1000 DATA 9,0,6,0,-5,1,-1,4,0 


,1,1,0,3,0,2,0,-3,-6,0 





1010 DATA 12,0,0,0,6,5,0,1,-1 
,0,-1,-1,-1,-5,0,5,0,1,-1,0,-1, 
-1,-1,-5,0 

1020 DATA 8,6,1,-1,-1,-4,0,-1 


,1,0,4,1,1,4,0,1,-1 


1030 DATA 7,0,0,0,6,4,0,2,-2, 
0,-2,-2,-2,-4,0 
1040 DATA 7,6,0,-6,0,0,6,6,0, 


-6,0,0,-3,5,0 


1050 DATA 7,0,0,6,0,-6,0,0,3, 
5,0,-5,0,0,3 
1060 DATA 10,7,1,-1,-1,-4,0,- 





1,1,0,4,1,1,4,0,1,-1,0,-1,-1,0 





1070 DATA 6,0,0,0,6,0,-3,6,0, 
0,3,0,-6 

1080 DATA 6,0,0,6,0,-3,0,0,6, 
-3,0,6,0 

1090 DATA 7,0,0,6,0,-3,0,0,5, 
-1,1,-1,0,-1,-1 

1100 DATA 6,0,0,0,6,0,-3,6,3, 
-6,-3,6,-3 

1110 DATA 0,0,6,6,0 

1120 DATA 0,6,0,-6,3,3,3,-3 
‚0,6 

1130 DATA 4,0,6,0,-6,6,6,0,-6 
1140 DATA 9,1,0,-1,1,0,4,1,1, 


4,0,1,-1,0,-4,-1,-1,-4,0 


1150 DATA 7,0,6,0,-6,5,0,1,1, 
0,1,-1,1,-5,0 
1160 DATA 11,5,0,-4,0,-1,1,0, 


4,1,1,4,0,1,-1,-2 
1,-1 


1,2,1,0,-4,- 





1170 DATA 9,0 
0,1,-1,1,-5,0,4 

1180 DATA 12, 
1,1,0,1,1,1,4,0 

.0,-1,-1 

1190 DATA 4,3,6,0,-6,-3,0,6,0 
1200 DATA 6,0,0,0,5,1,1,4,0,1 
.71,0,-5 

1210 ГАТА 

1220 DATA 

1,-6 

1230 DATA 











3,6,-6 
1240 DATA 5,3,6,0,-3,-3,-3,3, 
3,3,-3 
1250 DATA 4,0,0,6,0,-6,6,6,0 


Os programas aqui apresentados pa- 
ra as diferentes linhas de microcompu- 
tadores sáo muito semelhantes entre si. 
Em todos eles vamos encontrar 26 de- 
clarações DATA, uma para cada letra 
do alfabeto. Essas declarações contêm 
uma série de números que dizem ao 
computador como desenhar a letra, uti- 
lizando pequenas linhas. 

O primeiro número da lista dá o to- 
tal de linhas que entram na composição 
de cada letra — um L, por exemplo, re- 
quer menos linhas que um S. O número 
máximo usado é doze. 

Os números seguintes são arranjados 
em pares, dando as coordenadas x e y 
de cada pequena seção da linha. Como 
já foi dito, tais números são relativos; 
assim, as linhas que serão efetivamente 
desenhadas dependem de fatores de es- 
cala. O primeiro par de números espe- 
cifica o ponto de início da letra dentro 
de nossa caixa imaginária. 

Os números contidos nas instruções 
DATA do programa são lidos para duas 
matrizes, N e A. A é uma matriz tridi- 
mensional; de 26 (número de letras) por 
12 (número máximo de linhas) por 2 (ve- 
tores x e y). 
















COMO ESCOLHER UM CORDÀO 


As linhas que permitem a entrada de 
palavras sáo semelhantes às do progra- 
ma do artigo Manchetes e Letreiros. 
Elas verificam a entrada para evitar um 
cordão nulo; não existe, neste caso, ne- 
nhum limite para o número de caracte- 
res utilizados. 

Em seguida, o programa pede dois 
valores — um fator X e um fator Y. Es- 
ses valores determinam as reais dimen- 
sões de cada letra. Grosso modo, a es- 
cala 1 representa o tamanho padráo do 
caractere; 2 fornece altura ou largura 
dupla, enquanto 0.5, por sua vez, ofe- 
rece metade do tamanho. Para valores 
menores que a unidade, podem-se ob- 
ter efeitos estranhos. Uma vez que o 
computador náo pode tragar uma fra- 
gáo de pixel, ele é obrigado a desenhar 
o pixel todo. Letras com um maior nú- 
mero de linhas apresentam mais facili- 
dade para que isso ocorra. Desse modo, 
um S, por exemplo, pode terminar 
maior quando comparado com um T. 

Se atribuirmos diferentes valores para 
cada fator, poderemos produzir interes- 
santes variações nos caracteres, criando 
assim letras altas e magras, baixas e gor- 
das etc. 

Como não existe limite para o tama- 
nho do cordão, é necessário tomar to- 
do o cuidado no sentido de que o nú- 
mero de letras não ultrapasse as dimen- 
sões da tela. Quando isso ocorre, o com- 
putador emite uma mensagem de erro. 

O cálculo de quantos caracteres ca- 
bem na tela para cada fator de escala é 
relativamente simples. Note que o valor 
importante é o fator X, que determina 
a largura da letra, Se você tiver um fa- 
tor X igual a 2, só poderá colocar a me- 
tade do que seria possivel com o fator 
1. Com um fator 4, caberá apenas 1/4 
dos caracteres. 


ANALISE O CORD, 


Assim como os outros programas que 
criavam letras, este usa um lago para ve- 
rificar cada caractere do cordáo. No 
Spectrum ele comega na linha 130; no 
TRS-Color, na linha 110. 

O programa continua de maneira si- 
milar ao gerador de caracteres anterior, 
montando um cordão T$ exatamente 
igual ao cordão original. Ao mesmo 
tempo, ele verifica se o caractere é uma 
letra de A a Z; qualquer outro caracte- 
re é tratado como se fosse um espaço. 
Se não for, o computador executará um 
NEXT para fazer avançar o laço 
FOR...NEXT. Se não houver mais le- 













tras, o programa voltará para que você 
possa dar entrada a mais palavras. 


A ROTINA DE DESENHO 


Quando o computador encontra uma 
letra no cordáo, vai para a linha 150 (no 
Spectrum), que dá início á rotina de de- 
senho. Nos outros computadores ela es- 
tá na linha 170. O conteúdo dessa linha, 
porém, difere de computador para com- 
putador, pois cada um deles tem um ta- 
manho diferente de tela e conta com co- 
mandos distintos para desenhar em al- 
ta resolugáo. 

A base para a rotina, entretanto, é a 
mesma para todos os micros. A variá- 
vel de controle para o laço 
FOR...NEXT, N, é usada como um 
guia para a coordenada x da posição ini- 
cial; a ela são adicionados dois valores 
pelo computador. O primeiro é um va- 
lor relativo — a coordenada para dese- 
nho da matriz A —, enquanto o segun- 
do é um valor que leva em conta o ta- 
manho da tela e os fatores de escala. 

Você já viu que um dos três elemen- 
tos dessa matriz é usado para separar os 
detalhes das coordenadas x e y. Os ou- 
tros dois elementos formam cada uma 
das 26 letras do alfabeto com até 24 nú- 
meros (lembre-se de que doze é o núme- 
ro máximo de linhas usadas por letra). 
A matriz N diz ao computador quantas 
linhas devem ser empregadas na defini- 
ção de cada letra, Assim, quando o 
computador vai desenhar o caractere A, 
por exemplo, ele verifica inicialmente 
quantas linhas devem ser traçadas na 
matriz N. Esse número controla o laço 
para desenhar a quantidade exata de li- 
nhas de cada letra. 

Os valores dos números contidos em 
A, a matriz principal do programa (tri- 
dimensional), equivalem ao código de 
caractere de cada letra menos 64 — es- 
ta é a razáo pela qual as linhas 130 a 180 
contêm expressões como ASC(T$)-64 ou 
CODE T$-64 ou A-64. Isso significa que 
o computador pode tomar o código de 
uma letra e usá-lo para contar linhas de 
desenho. Os valores relativos para x e 
y guardados na matriz sáo entáo multi- 
plicados pelo fator de escala que vocé 
escolheu e passados para os comandos 
de desenho. 

Assim que acaba de desenhar uma le- 
tra, o computador passa para a seguin- 
te (caso haja) no cordáo e o processo 
continua. Se as letras acabarem, o com- 
putador volta para a linha 80 (no Spec- 
trum) ou 100 (nos outros micros) para 
que se possa entrar um novo cordáo. Os 
microcomputadores das linhas TR-Color 
e MSX esperam que vocé tecle alguma 















































Eis aquí as trés versóes para novas 
letras no Spectrum. 


coisa antes, visto que a tela de alta re- 
solugáo tem que ser apagada para dar 
lugar á tela de texto. 


DESENHE SUAS PRÓPRIAS LETRAS 


Vocé já viu trés exemplos de tipos de 
letra. Inspirando-se neles, crie à vonta- 
de seus próprios caracteres. Os caracte- 
res da ROM só podem ser expandidos, 
mas nada impede que as rotinas expan- 
soras sejam utilizadas para trabalhar 
com seus caracteres redefinidos — uma 
explicagáo de como isso pode ser feito 
foi dada anteriormente no artigo Con- 
junto de Blocos Gráficos (1), à página 
526. 

As variações com os outros dois mé- 
todos são praticamente infinitas: você 
pode desenhar seus próprios caracteres 
a partir de blocos gráficos e guardá-los 
em uma matriz, como no programa do 
artigo Manchetes e Letreiros. Se não es- 
tiver satisfeito com o resultado, tente re- 
desenhar tudo. Outra opção consiste em 
alterar a aparência das letras deste arti- 
go, modificando os valores das linhas 
DATA. 


USE OS NOVOS CARACTERES 


Náo é difícil criar letras maiores pa- 
ra serem mostradas na tela; mas, a náo 
ser que se possa usá-las em algum pro- 
grama, náo há grande vantagem em se 
fazer isso. Se vocé optar pelas letras cria- 
das neste programa ou no anterior, pro- 
cure empregá-las em seus próprios pro- 
gramas. 

Isso pode ser feito de várias manei- 
ras. A mais comum incorpora o progra- 
ma gerador de letras como uma sub-ro- 
tina do seu programa e chama-o sempre 
que for necessário. 

Se você quiser usar o expansor de ca- 
racteres, essa será provavelmente a me- 
lhor solução. Mas, para o programa 





Alterando-se os fatores X e Y, as letras 
podem ser tracadas em qualquer tamanho. 


atual, ela está longe de ser razoável, uma 
vez que o programa toma muito espaco 
da memória e pouco sobra para seu pró- 
prio programa. 

Como vocé verá em seguida, esse 
problema pode ser resolvido de várias 
maneiras: todas elas utilizam o progra- 
ma para desenhar as letras, que sáo ar- 
mazenadas de modo a estar disponíveis 
para uso posterior. 


ARMAZENAGEM DOS DESENHOS 


Uma dessas maneiras consiste em ar- 
mazenar seus desenhos em gráficos 
UDG. Isso é fácil de fazer no TRS- 
Color, já que este possui o comando 
GET, que guarda o que está na tela. 
Embora com maiores dificuldades, o 
mesmo efeito pode ser obtido, em ou- 
tros computadores, por meio do coman- 
do POKE. 

É possível ainda gravar a parte da 
memória que contém os gráficos, como 
um bloco de código de máquina. Mais 
tarde, pode-se carregar toda a tela de 
volta para a memória. Entretanto, en- 
quanto ela estiver na memória do micro, 
é preciso protegê-la, colocando-a acima 
ou abaixo do BASIC (para maiores de- 
talhes, veja o artigo da página 526). 
Uma vez na memória, ela está em con- 
dições de ser utilizada. 

A melhor maneira de fazer isso é es- 
crever uma rotina para ler o código da 
área protegida da RAM e passá-lo para 
a área de tela; ou, ainda, alterar o apon- 
tador do conjunto de caracteres, de mo- 
do que seu código se transforme em vá- 
rios caracteres que poderão ser impres- 
sos. A rotina para mover o bloco de có- 
digo da RAM para a área de tela seria 
algo como: 


1000 FOR X=1 TO (COMPRIMENTO DO 
BLOCO DE CODIGO) 

1010 POKE (ENDERECO DE INICIO D 
A MEMORIA DE TELA)*X,PEEK (ENDE 
RECO DE INICIO DO BLOCO DE CODI 
GO) *X 

1020 NEXT X 





As telas mostram os tamanhos normal, 
extra-largo e extra-alto. 


Esta, porém, náo é a melhor solugáo 
para o problema, uma vez que levaria 
longo tempo para ser concluída. A difi- 
culdade, felizmente, pode ser contorna- 
da por meio de uma rotina em lingua- 
gem de máquina que se encarregue de 
executar esse trabalho. 


0 GRAVAR A TEL, 


Uma solugáo alternativa consiste em 
gravar a tela e carregá-la juntamente 
com o programa. Nesse caso, o desenho 
permaneceria na tela até que vocé se de- 
cidisse a apagá-lo. Na maioria dos mi- 
crocomputadores, esta constitui, sem 
dúvida, a melhor opção. 


O Spectrum tem um comando espe- 
cial que permite gravar em fita uma te- 
la gráfica com grande facilidade. O de- 
senho é gravado como um bloco de me- 
mória — processo descrito nas páginas 
574 e 575; neste caso, porém, não é ne- 
cessário especificar o endereço inicial e 
o tamanho do bloco. Basta usar 
SCREENS logo após o nome de arqui- 
vo. Digitado no modo direto, esse co- 
mando grava uma figura com o nome 
“pie”, 

SAVE "pic" SCREENS 
Para carregar a figura: 
LOAD "" SCREENS 


Pode-se, por exemplo, usar a tela co- 
mo título para um jogo. Carrega-se pri- 
meiro a tela e a seguir o programa. As- 
sim, ela ficará visível enquanto o pro- 
grama estiver sendo carregado: 


10 LOAD "" SCREENS 
20 LOAD "JOGO" 


Grave agora com o comando: 
SAVE "CARREG" LINEIO 


de modo que ele será executado automa- 
ticamente. O jogo será gravado com 





O BASIC é muito lento e eu não 
gosto de programar em código de 
máquina. Tenho outras opções? 

Existe uma família de linguagens 
que, digamos, estão “a meio cami- 
nho", Elas são compiladas, e não inter- 
pretadas. Como vimos anteriormente, 
0 que toma tempo no BASIC é a inter- 
pretação de cada comando toda vez 
que o programa é rodado. 

As linguagens compiladas usam um 
outro tipo de programa — parecido 
com os Assembler empregados na pro- 
gramação em código de máquina — 
que converte a linguagem de alto nível 
para código de máquina. Assim, depois 
da compilação, estaremos rodando um 
programa em código de máquina, e não 
em linguagem de alto nível. 











SAVE "JOGO" LINE10 


de modo que ele será executado automa- 
ticamente também. É importante lem- 
brar que os programas têm que ser gra- 
vados na ordem correta na fita. 


Para gravar uma tela em fita, utilize 
o comando: 


CSAVEM"nomearquivo",1536,7679, 
35725 


Os primeiros dois números sào os en- 
dereços inicial e final da área de gráfi- 
cos (página 1 de qualquer PMODE, a 
nào ser que se tenha um drive). 
CLOADM serve para carregar a figura 
de volta para a memória. 

Essa tela gravada pode ser usada co- 
mo uma página-título para um jogo; pa- 
ra isso, é preciso adicionar uma rotina 
de carregamento no início: 


1 PMODE1,1:PCLS:SCREEN1,0 
2 CLOADM 
3 FOR D=1 TO 1000:NEXT 


e certificar-se de que a figura será gra- 
vada logo após o jogo. Isso funcionará 
enquanto o programa não reduzir o nú- 
mero de páginas gráficas disponíveis ini- 
cialmente (neste caso, a figura poderia 
sobrepor-se ao programa). 
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Espécie muito particular de ponteiro 
eletrônico, as canetas ópticas 
servem para fazer gráficos na tela e 
para selecionar itens de um 

menu, Veja como trabalhar com elas. 

















Comunicar-se com um computador 
geralmente significa recorrer ao teclado 
para digitar informações. Esta, porém, 
não é a única forma de comunicação 
com a máquina, Além dela, existe uma 
série de métodos alternativos. Provavel- 
mente, o primeiro lugar dessa série per- 
tence ao joystick, que pode ser usado 
tanto em jogos como em aplicações mais 
“sérias”, Outro método igualmente ba- 
rato e que apresenta nítida vantagem é 
o da caneta óptica 

As canetas ópticas, como o próprio 
nome sugere, têm grande semelhança 
com uma caneta comum, pois funcio- 
nam com base em movimentos de *de- 
senhar” ou de apontar para coisas so- 
bre a tela. Como são capazes de detec- 
tar o ponto da tela para o qual estão sen- 
do apontadas, elas têm uma enorme sé- 
rie de aplicações potenciais, como, por 
exemplo, selecionar itens de um menu 
mostrado na tela e acionar as funções 
de um programa, Caso fosse utilizar o 
teclado em situações como essas, o usuá- 
rio seria obrigado a afastar os olhos da 
tela e pressionar uma ou mais teclas. 
Com uma caneta óptica, porém, tudo fi- 
ca bem mais rápido e simples: basta 
apontar para a opção. 


APLICACOES 


As canetas ópticas são particularmen- 
te apropriadas para aquelas aplicações 
em que o usuário precisa localizar rapi- 
damente pontos espalhados pela tela, 
como quando deseja entrar as coorde- 
nadas de um ou mais pontos, colocar 
uma marca, desenhar uma reta, selecio- 
nar um menu etc. 

Precisas, rápidas e de fácil manipu- 
lação, as canetas ópticas se prestam mui- 
to bem a aplicações gráficas. Nesse ti- 
po de aplicação, o emprego das teclas 
para controle do cursor gráfico (ou, pior 
ainda, a utilização das teclas numéricas 
para entrar coordenadas) implicaria 
num lento e laborioso processo. Já com 
umia caneta óptica pode-se desenhar li- 
teralmente à mão livre: você traça ape- 
nas os contornos com a caneta, e O re- 
sultado aparece diretamente na tela. Ou- 
tra técnica consiste em compor um de- 
senho, usando a caneta para apontar pa- 
































































































































ra um menu com símbolos gráficos, co- 
res, sombreados etc. 

A caneta óptica mostra-se também de 
grande valia em programas de aplica- 
ções mais sérias, como processamento 
de textos, ou contabilidade (do tipo 
“você obtém o que vê"). Isso significa 
que, em vez de entrar instruções pelo te- 
clado, elas são entradas por intermédio 
de uma caneta óptica que aponta para 
as opções disponíveis. 


Até recentemente, programas aplica- 
tivos que empregassem canetas ópticas 
eram desenvolvidos pelos próprios usuá- 
rios. Atualmente, com o crescente inte- 
resse por esses periféricos, algumas em- 
presas produtoras de software já estão 
oferecendo programas que usam espe- 
cificamente a caneta óptica 

Alguns programas “artísticos” ou de 
projeto por computador possibilitam a 
criação de desenhos à base de figuras 
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geométricas (retas, círculos, elipses etc.), 
que podem ser preenchidas com cores. 
Muitos desses programas permitem tam- 
bém o uso de canetas ópticas para dese- 
nhos à mào livre sobre a tela. Com eles 
é possível elaborar trabalhos complexos 
e criativos. 

Esse processo funciona da seguinte 
forma: um dos programas utiliza a ca- 
neta óptica para definir símbolos ou ca- 
racteres gráficos. Um segundo progra- 
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ma aproveita esses símbolos em proje- 
tos mais complexos. Aqui, a caneta óp- 
tica oferece nítidas vantagens sobre ou- 
tros métodos de entrada gráfica e de se- 
leção de opções. 

Já é possível encontrar no mercado 
jogos que recorrem a canetas ópticas pa- 
ra que o jogador transporte figuras de 
um ponto para outro da tela. O xadrez 
e outros jogos de tabuleiro são bons 
exemplos desse emprego. 

Palavras cruzadas, jogos de cartas, 
labirintos e quebra-cabeças variados 
completam o quadro de atividades lú- 
dicas em que as canetas ópticas têm fun- 
ções importantes. Essas funções são ex- 
tensivas a jogos de aventuras, em que o 
jogador pode apontar para os objetos 
que deseja apanhar ou levar. 

As canetas ópticas podem ainda as- 
sumir formas especiais, como o rifle óp- 
tico que serve para centrar a mira em al- 
vos na tela. Esse rifle já existe tanto em 
micros domésticos quanto em certos vi- 
deogames, Está, portanto, especifica- 
mente voltado para jogos. 


COMO FUNCIONA A CANETA ÓPTICA 


Uma caneta óptica é usada basica- 
mente para detectar pontos luminosos 
presentes na tela por meio de um foto- 
detector. Quando ela é apontada para 
alguma locação na tela, ocorre um tra- 
balho conjunto entre os circuitos eletrô- 
nicos de detecção na caneta e o softwa- 
re carregado no computador; o objeti- 
vo desse trabalho é calcular as coorde- 
nadas do ponto para o qual a caneta es- 
tá sendo apontada, 

Uma das técnicas desse processo ba- 
seia-se no modo como a imagem é pro- 
duzida em um cinescópio, tubo de TV 
ou monitor. O feixe de elétrons que 
bombardeia a tela é movimentado de 
forma a deslocar um pequeno ponto de 
luz sobre ela em um padrão que vai da 
esquerda para a direita e de cima para 
baixo. Esse padrão tem cerca de seiscen- 
tas linhas de varredura, repetidas a ca- 
da 1/60 de segundo. Como a varredura 
é muito rápida, o olho humano percebe 
apenas uma imagem estável. 

A caneta óptica tem na ponta um mi- 
núsculo sensor fotoelétrico (normalmen- 


te, um diodo ou transistor sensível à luz) 
que detecta o pontinho de luz quando 
este passa em seu foco. Um sinal elétri- 
co é então produzido, amplificado e 
transmitido para o computador. Este, 
por sua vez, é que controla o movimen- 
to de varredura e, por isso, consegue cal- 
cular as coordenadas do ponto, com ba- 
se no tempo que o feixe de elétrons leva 
para partir do topo e chegar ao ponto 
de detecção. 

As canetas ópticas variam segundo o 
tipo de sensor luminoso empregado, on- 
de ele é colocado e onde se localizam os 
circuitos eletrônicos associados; ou, ain- 
da, conforme permitam ou não diferen- 
tes modos operacionais. Até mesmo a 
maneira pela qual mostram que o sinal 
foi detectado serve para diferenciar os 
vários tipos de caneta óptica, Finalmen- 
te, como não poderia deixar de ser, elas 
são classificadas de acordo com o mo- 
delo de computador com o qual são 
compatíveis. 

Todos esses fatores afetam o preço 
e o desempenho da caneta óptica, bem 

operacionais. 
is são a sensi- 
bilidade e a resolução. 


NSIBILIDADE 


A sensibilidade de uma caneta ópti- 
ca revela a gama de intensidades lumi- 
nosas que ela é capaz de detectar na te- 
la. As melhores canetas captam todas ou 
quase todas as cores exibidas. As de 
qualidade inferior detectam apenas as 
cores mais brilhantes ou as intensidades 
mais fortes, Para muitas aplicações, is- 
so será mais do que suficiente, embora 
imponha uma severa limitaçãa na flexi- 
bilidade de uso, particularmente em 
aplicações gráficas, onde o fundo é nor- 
malmente escuro. 

Um problema freqüente com as ca- 
netas ópticas é a chamada detecção es- 
púria. Esta ocorre quando a sensibilida- 
de é muito aumentada pela excessiva 
amplificação do sinal proveniente do 
sensor de luminosidade. Esse aumento 
amplia a probabilidade de a caneta óp- 
tica ser ativada por outras fontes de luz, 
tais como reflexos na tela ou a própria 
luz ambiente. 





Para enfrentar esse problema, as ca- 
netas ópticas sáo equipadas com meca- 
nismos destinados a impedir a ocorrén- 
cia de detecções espúrias. Esses meca- 
nismos podem ser constituídos, por 
exemplo, de células fotoelétricas e filtros 
de luz em proporções tais que se com- 
binem com as características de cor do 
ponto na tela. Além disso, podem ser 
usados filtros eletrônicos para assegurar 
que a luz provenha realmente da tela (e 
não de uma fonte externa). Isso é pos- 
sível porque os pontos na tela oscilam 
com uma freqüéncia característica (ses- 
senta vezes por segundo). Assim, um ci 
cuito eletrônico simples (chamado **f 
tro passa-alto””) é usado para selecionar 
apenas a luz que pisca com essa fre- 
айёпсіа, 


CANETAS DE ALTA RESOLUCAO 


Uma vez que os problemas da sensi- 
bilidade e da detecção espúria tenham 
sido tecnicamente resolvidos, uma im- 
portante consideração adicional a fazer 
pode ser a resolução. Esta diz respeito 
à área mínima na tela que a caneta é ca- 


paz de detectar, que varia desde um úni- 
co pixel na tela, nas melhores canetas 
ópticas, até um grupo inteiro de carac- 


teres, nas piores. 

A resolução de uma caneta depende 
do sensor que ela usa, da velocidade de 
reação e do método de colimação, ou de 
coleção da luz. Algumas canetas ópti- 
cas utilizam um tubo negro opaco para 
canalizar a luz até o sensor; outras em- 
pregam um sistema de lentes, ou peda- 
ços curtos de fibra óptica. A alfa reso- 
lução é importante se se quer desenhar 
com a pena, e não somente detectar po- 
sições. Uma caneta óptica com uma boa 
colimação conseguirá discriminar um 
ponto menor, e, consequentemente, se- 
rá mais acurada. 

Os modelos de canetas ópticas dife- 
rem quanto à quantidade e qualidade da 
documentação e do software que as 
acompanham. Para funcionarem a con- 
tento, elas devem contar com um bom 
suporte por parte de rotinas de softwa- 
re. A programação é razoavelmente sim- 
ples, qualquer que seja o tipo de caneta 
ou de computador ao qual ela está liga- 
da. Alguns fabricantes adicionam uma 
fita cassete ou disco com alguns progra- 
mas de exemplo, enquanto outros ape- 
nas fornecem listagens de rotinas. 


COMO ESCOLHER UMA CANETA ÓPTICA 


Há vários fatores a considerar na ho- 
ra de se escolher uma caneta óptica. Por 


exemplo, a precisáo da caneta. Embora 
algumas canetas tenham uma alta reso- 
lugáo nominal, isso náo quer dizer que 
elas sejam capazes de conservar a pre- 
cisáo por muito tempo. Algumas cane- 
tas ópticas sáo táo imprecisas que uma 
reta tragada com elas sobre o vídeo apa- 
recerá como uma série aleatória de pon- 
tos acesos e apagados. 


Geralmente, o preço desse periférico 
é proporcional à qualidade. Alguns dos 
mais caros, por exemplo, têm dois dis- 
positivos de que não falamos ainda: o 
primeiro serve para anunciar que a ca- 
neta detectou um ponto de luz válido na 
tela; o segundo controla o sinal a ser en- 
viado ao computador. 

Um diodo emissor de luz (LED) é um 
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equipamento usado em algumas canetas 
para indicar se houve deteccáo correta: 
ele náo é essencial para desenhar, mas 
pode ser útil quando se usa a caneta pa- 
ra escolher opções na tela ou detectar 
pos - 
O controle do sinal é normalmente 
exercido por um botáo ou um interrup- 
tor, situado quase sempre no corpo da 


caneta, ao qual o usuário recorre quan- 
do quer enviar a informação ao compu- 
tador. Ele pode ser acionado com duas 
finalidades: para reduzir a chance de de- 
tecções falsas ou espúrias, e para ter 
mais controle sobre que leituras devem 
ser feitas pela caneta. 
Existem vários tipos de interruptores 

nos modelos mais sofisticados, eles po- 


dem tomar a forma de um pequeno con- 
tato na ponta da caneta, de tal maneira 
que esta será ativada assim que for en- 
costada na tela. 


COMPATIBILIDADE 


Antes de comprar uma caneta ópti- 
ca, convém testar se ela funcionará com 
o seu tipo de computador. Como acon- 
tece com muitos outros periféricos, as 
canetas ópticas costumam funcionar 
apenas quando ligadas ao computador 
para o qual foram feitas. 

Algumas vezes, você poderá resolver 
esse problema adquirindo uma interfa- 
ce especial para o seu computador. 

Não se esqueça de que esse periféri- 
co precisa de software para funcionar: 
se você comprar uma caneta óptica que 
não sirva especificamente para o seu mi- 
cro, provavelmente passará por maus 
momentos, tentando descobrir como ela 
funciona. 


PROBLEMAS COM CANETAS OPTICAS 


A limpeza é um item essencial para 
a manutenção das canetas ópticas, Co- 
mo elas trabalham com luz em intensi- 
dades muito baixas, qualquer sujeira na 
ponta da caneta ou na tela tende a in- 
terferir no sinal luminoso detectado. Pa- 
ra evitar esse tipo de problema, limpe re- 
gularmente a caneta de seu mjcro com 
um produto de limpeza semelhante ao 
usado para gravadores. a 

Outro problema peculiar das canetas 
dbticas é que a sua proximidade tende 
a obscurecer uma parte da tela. Esse in- 
conveniente, porém, só se tornará real- 
mente grave se a tela estiver coberta de 
informações. 

Antes de comprar uma caneta ópti- 
ca, assegure-se de que nenhum outro pe- 
riférico — como joysticks e tabletes di- 
gitalizadores — é mais apropriado para 
o que pretende fazer. Não se esqueça de 
que usar uma caneta óptica por longo 
tempo pode ser muito desconfortável, 
devido à posição vertical forçada em que 
ela deve ser mantida. 

O mercado de micros tem se caracte- 
rizado por um forte crescimento no em- 
prego de aplicações em que o usuário de- 
ve interagir com a tela. Essa tendência 
provocará certamente a disseminação 
das canetas ópticas. Com isso, seu pre- 
ço tenderá a baixar, e os programas ca- 
pazes de utilizá-las se multiplicarão. Pa- 
ra O usuário que está procurando um 
acessório barato e diferente para o seu 
micro, a caneta óptica pode ser, assi 
a aquisição ideal. 





ACELERE | 
SEUS PROGRAMAS 






CRONOMETRAGEM DO BASIC 








4 ESTRUTURA 


MEMORIA E VELOCIDADE 











DICAS PARA ACELERAR SEU BASIC 
Кыш ышт E ГГА 
Га СЕЊ 








Defina as matrizes no início 
de cada programa. 








Se possível, use variáveis inteiras em 
vez de variáveis de ponto flutuante. 


nau 


Nos lacos FOR...NEXT, nào coloque uma 


variável depois do NEXT. [é] [d] nu 
Use variáveis no lugar de números. R H É d 
Dé nomes curtos às variáveis. = E n Ш r1 ] Ф LS] 


Coloque as sub-rotinas de uso mais = кіні 4/7! US 


freqüente no comeco do programa. 








Use lacos FOR...NEXT no lugar 


de lacos do tipo: 
AOO LET žert IF X<20 THEN Ex ES ші “4! [6] һ4 
ce as m com nes 
mais baixos. Comece na linha em vez 

Ex Exin (^4 
Ex Eum [d [3] P4 





de comecar na linha 1000. 





Use rotinas em código de máquina 
sempre que for possível. Torne-se um 
colecionador de sub-rotinas publicadas. 





Nos programas voltados para cálculos, 
procure definir uma funcáo que execute 
os cálculos repetitivos. Por exemplo: 
10 DEF FN A(X)-X-(INT(X/360) * 
360) 

20 LET NUMERO-FN A(NUMERO) 

é bem meinor que: 


10 IF NUMERO>360 THEN LET NUMER 
O=NUMERO-360: GOTO 10 


Habitue-se a planejar seus programas. 
Além de erros, vocé evitará comandos 
GOTO e GOSUB desnecessários, que só 
comprometem a velocidade de execução. 





A TAS 
Ex Exin 71/54 





Sub-rotinas economizam memória 
mas diminuem a rapidez do programa. 


Remova todos os denominadores 
comuns. Por exemplo, troque: 
10 LET X=Y/100+2/100 


СЕ X*(Y*2)/100 Es Euch 
Evite usar comandos GOTO sempre que ES = ші [5] py 


ка кани] 
Es Exi m [d [i] 


S Smh 





Procure utilizar vários comandos na 
mesma linha. Perde-se em clareza, , 
mas ganha-se em velocidade e economia. 


Remova todos os espaços em branco e 
comandos REM desnecessários. 





Ao usar um IF... THEN, coloque primeiro 
a condição que mais tende a ser FALSA. 











Elas asseguram uma razoável econo- 
mia de memória mas chamá-las toma 
tempo, o que não agrada aos programa- 
dores que buscam velocidade de execu- 
ção. Como vimos anteriormente, o uso 
de sub-rotinas exige certo cuidado com 
a estruturação do programa. Sem isso, 
é impossível recuperar a velocidade que 
se perde ao chamá-las. 

Uma linha como LET A = VAL“100” 
exemplifica bem a contradição que exis- 
te entre velocidade e economia de me- 
mória. Essa forma economiza memória, 
sem dúvida, mas, por outro lado, é de 
lenta execução se for comparada à for- 
ma mais comum LET A = 100. 


VARIAVEIS 


Saber como as variáveis sào armaze- 
nadas na memória pode ser de grande 
utilidade para quem pretende acelerar a 
execução de programas. As variáveis são 
criadas à medida que aparecem no pro- 
gama, sendo possível limpar a região em 
que se situam por meio dos comandos 
RUN ou CLEAR. Na maioria dos ca- 
sos, uma nova variável provoca a am- 
pliação dessa região para cima — o que 
não se aplica ao Sinclair Spectrum, que 
trabalha com as variáveis de uma ma- 
neira diferente. 

Se criarmos, por exemplo, uma va- 
riável-cadeia e, depois, uma matriz nu- 
mérica, todas as variáveis que se segui- 
rem à matriz precisarão ser deslocadas 
para a parte superior da memória quan- 
do se acrescentar algo à cadeia. 

Observe este programa: 


100 LET T$-"" 
110 DIM A(1000) 
120 LET T$-TS*"ACELERAR" 


No BASIC da maioria dos micros, 
muito tempo de execução seria econo- 
mizado se invertêssemos a ordem das 
duas primeiras linhas, ou seja, se a ma- 
triz fosse dimensionada antes de se de- 
finir a cadeia. Como está, o programa 
faz com que 5000 bytes sejam desloca- 
dos cada vez que se adiciona a palavra 
“ACELERAR” à variável-cadeia TS. 
Os usuários do Spectrum não precisam 
se preocupar, pois, como foi dito, esse 
micro trabalha com as variáveis de uma 
maneira diferente, não apresentando es- 
se tipo de problema. 

O uso de variável no lugar de núme- 
ros também assegura uma considerável 
economia de tempo. Essa regra aplica- 
se a todos os micros, menos ao Spec- 
trum. No Apple, por exemplo, cada va- 
riável economiza cerca de cinco a dez 
milissegundos. Pode não parecer muito, 
mas imagine o que isso significa quan- 


do se lida com um laco que é executado 
várias vezes. Já no Spectrum ocorre o 
oposto: a execução de um comando 
LETC = 10 + 10 leva três milissegun- 
dos, enquanto a de LET C = D + D 
(onde D = 10) leva 4,2 milissegundos. 


NCOES MATEMATICA: 


Use a rotina apresentada anterior- 
mente — que passaremos a chamar 
**cronómetro'' — para testar estas duas 
formas de se obter a fungáo poténcia. 


200 LET Ce4*4*4*4 
ou, entào: 
200 LET C=4"4 


É de se esperar que a fungáo potén- 
cia própria da máquina seja a mais rá- 
pida das duas. No Spectrum, por exem- 
plo, a primeira forma leva seis milisse- 
gundos, e a segunda, 114 milissegundos. 
Estamos novamente diante de um caso 
em que a economia de memória (ofere- 
cida pela segunda forma) está em con- 
flito com a velocidade. 

Algumas vezes, lembramos que, no 
Spectrum, linhas do tipo 


210 ІР Х>Ү ТНЕМ ГЕТ Ү=Ү+1 
220 TF X<Y THEN LET Y=Y-1 


sáo executadas com maior velocidade 
quando substituídas por 
10 LET Y = Y + (X>Y) - (X<Y) 

O BASIC da linha Sinclair realmen- 
te permite esse tipo de comparação e 
programar assim é, sem dúvida, mais 
elegante. Mas, usando nossa rotina-cro- 
nômetro, podemos observar que a linha 
dupla é mais rápida que a simples. 

Se vocé usa outro micro, teste o equi- 
valente em sua máquina. 


PS Lab] [có] 


210 IF X>Y THEN Y=Y+1 
220 IF X<Y THEN Y=Y-1 


ou 
210 Y=Y+(X<Y)-(X>Y) 





Fornega, em cada caso, valores cabí- 
veis para X e Y. 


MULTIPLICACAO E DIVIS, 


As expressões C=D*0.5 e C=D/2 
executam exatamente o mesmo cálculo, 
mas, como mostram os testes, a multi- 
plicação é mais rápida que a divisão. 

Faça um teste com as sugestões apre- 
sentadas a seguir e tome nota dos resul- 
tados para referências futuras, 


200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
5.5 
200 PRINT AT 21,0;D*E*F*G (ON- 
DE D*10,E*1000,ETC) 


nau 


200 
200 
200 
200 
200 
200 
200 
200 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


C=10+10 
С=р+р 
C=10*10 
C=10/10 
C=10+PI 
C=SIN 10 

C=cos 10 

C=TAN 10 

C=VAL "10" 

LET C=10 

LET C=D (ONDE D=10) 

PRINT AT 21,0;"TESTE" 

PRINT AT 21,0;A$ (AS*TESTE) 
PRINT AT 21,0; 104100045004 


(ONDE D=10) 


C=10+10 
C=D+D 
C=10*10 
С=10/10 
C=10+PI 
C=SIN(10) 

C=C08 (10) 

C=TAN (10) 

200 C=VAL ("10") 

200 С=10 

200 C-D (onde D=10) 

200 PRINT"TESTE" 

200 PRINT A$ (onde AS*"TESTE") 
200 PRINT 10%1000%500%5.5 

200 PRINT D+E+F+G (onde D*10,E 
=1000,etc) 


16] 


200 С=10+10 
200 C=D+D 
200 C=10*10 
200 C-10/10 
200 C=10+PI 
200 C=SIN(10) 

200 C=C08(10) 

200 C=TAN(10) 

200 C-VAL("10") 

200 c=10 

200 C-D (ONDE D*10) 

200 PRINT"TESTE" 

200 PRINTAS (ONDE AS-"TESTE") 
200 PRINT 10+1000+500+5.5 

200 PRINT D+E+F+G (ONDE D*10,E 
=1000,ETC) 


200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 
200 


(onde D=10) 


(ONDE D=10) 


C=10+10 
C=D+D 
C=10*10 
C=10/10 
C=10+PI 
C=SIN(10) 

C=C08 (10) 

C=TAN (10) 

C=VAL ("10") 

c=10 

C=D (ONDE D=10) 

PRINT 8260," TESTE” 

РВІМТ 6260,А5 (А5-"ТЕЗТЕ”) 


(ONDE D=10) 


200 PRINT €260,10+1000+500+5.5 
200 PRINT 6260,D*E*F*G (ONDE D 
=10, E=1000, ETC) 


ORDENAÇÃO E BUSCA 


Como as técnicas de ordenação já fo- 
ram tema de artigos anteriores, não en- 
traremos aqui em maiores detalhes. Co- 
mo vimos, a ordenação tipo Shell-Metz- 
ner é a mais indicada quando se trata de 
manipular um número de itens superior 
a cem. Esse tipo de ordenação tem a ca- 
racterística de ser tanto mais rápido 
quanto maior for o nümero de itens. Po- 
rém, como era de se esperar, também 
nesse caso a velocidade envolve certo sa- 
crifício de memória. 

Ao contrário do que muitos pensam, 
ordenagáo e busca náo sáo a mesma coi- 
sa, Buscar é acessar um dado (ou um 
conjunto de dados) o mais rapidamen- 
te possível; ordenar é colocar vários da- 
dos em ordem. Suponhamos que vocé 
precise encontrar o telefone de certa pes- 
soa em uma lista armazenada no com- 
putador. Ora, não haveria vantagem ne- 
nhuma se o tempo gasto pelo computa- 
dor para encontrar tal número fosse 
maior que o tempo necessário para 
achá-lo numa lista telefônica. Por isso, 
quando se trata de ordenar ou buscar, 
sempre se procura o método mais 
rápido. 

A busca serial (listada a seguir) simu- 
la o procedimento de uma pessoa que 
procura determinado dado analisando 
item por item de uma lista. 


10 DATA "ANTILOPE","CACHORRO" 
,” ELEFANTE” , "GOLFINHO" , " JUMEN 
TO","LEOPARDO" , "MACACO" , "PERI 
QUITO","RAPOSA","SAPO" 

20 RESTORE 10: DIM B$(10,9) 
30 CLS FOR i=1 TO 10: READ 
B$(1): PRINT AT 1,5;B$(1): 
NEXT 1 т 
40 РОКЕ 23658,8: 
о animal ?";A$ 
50 FOR X=1 TO 10 
60 IF BS(X, TO LEN AS)=AS 
THEN PRINT FLASH O;AT X,13; 
""i FLASH 1;” ACHEI”: GOTO 40 
70 NEXT X 


na 


10 REM «busca serial» 

20 DIM B$(10) 

30 CLS:FORI-1TO10:READB$(I):LOC 
ATEO,I*3:PRINTBS(I):NEXT 

40 LOCATEO,17:INPUT"Qual a anim 
al";A$ 

50 FORX-1TO10 

60 IF BS(X)*A$ THEN LOCATE13,X* 
3:PRINT"<< ACHEI”:X=10 

70 NEXT:GOTO40 


INPUT "Qual 














80 DATA ANTILOPE,CACHORRO,ELEFA 
NTE, GOLFINHO, JUMENTO, LEOPARDO,M 
ACACO, PERIQUITO, RAPOSA, SAPO 


5) 


10 REM «BUSCA SERIAL» 
20 DIM B$(10) 


30 HOME FOR I = 1 TO 10 

35 READ B$(I): PRINT TAB( 11) 
3В5(1) 

40 NEXT : PRINT : PRINT 


45 INPUT "QUAL O ANIMAL ?”;AS 
50 FOR X = 1 TO 10 

60 IF BS(X) = AS THEN UTAB (X 
): PRINT "ACHEI >>":X = 10 

70 NEXT : VTAB (13): GOTO 45 
80 DATA ANTILOPE,CACHORRO,ELE 
FANTE , GOLFINHO, JUMENTO , LEOPARDO 
»MACACO, PERIQUITO,RAPOSA, SAPO 





10 REM BUSCA SERIAL 

20 DIM B$(10) 

30 CLS:FOR I-1 TO 10:READ B$(I) 
:PRINT 833*1*32,B$ (I) ; : NEXT 

40 PRINT 6417,8TRING$ (30,32) ;8T 
RING$(30,8);:INPUT"QUAL O ANIMA 
L "A$ 

50 FOR X=1 TO 10 

60 IF B8(X)=A$ THEN PRINT @46+X 
*32,CHR$ (191) ; "ACHEI" ; :X*10 

70 NEXT:GOTO 40 

80 DATA ANTILOPE,CACHORRO,ELEFA 
NTE,GOLFINHO, JUMENTO, LEOPARDO,M 
ACACO, PERIQUITO, RAPOSA, SAPO 





A rotina de busca binária (listada a 
seguir), um pouco mais difícil de se pro- 
gramar que a de busca serial, é bem mais 
rápida que esta. A diferença de veloci- 
dade entre ambas torna-se maior à me- 
dida que a quantidade de dados da lista 
aumenta. 

A busca binária é mais rápida que a 
serial porque não utiliza o processo de 
inspeção item por item. Ela requer que 
todos os dados tenham sido previamente 
colocados em ordem alfabética ou nu- 
mérica. Cumprido esse pré-requisito, o 
computador analisa o elemento central 
da lista, para definir se se orientará pa- 
ra sua metade superior ou para sua me- 
tade inferior. 

A metade escolhida será novamente 
dividida ao meio e, a partir da análise 
desse novo elemento central, outra me- 
tade será escolhida e igualmente dividi- 
da ao meio. 

O processo se repete até que o item 
desejado seja encontrado, ou, caso con- 
trário, até que não haja mais nenhuma 
possibilidade de dividir a lista ao meio. 

No início, o computador não procu- 
ra por itens que sejam totalmente equi- 
valentes, mas apenas compara a primei- 
ra letra, verificando se, na ordem alfa- 
bética, ela vem antes ou depois da do 
item desejado. 








10 CLS : RESTORE 

20 LET t=10: LET b=1 

30 DIM n$(10,10) 

40 FOR c=1 TO 10 

50 READ n$(c) 

60 NEXT c 

70 INPUT "NOME DO ANIMAL ";a$ 
75 LET a$*-a$*" "( TO 
10-LEN a$) 

80 PAUSE 50 

95 CLS 

100 IF n$(t)*a$ THEN PRINT n$ 
(t),t: GOTO 200 

110 IF n$(B)-a$ THEN PRINT n$ 
(b),b: GOTO 200 

120 LET p=INT (0.5*(t*b)/2) 
130 IF n$(p)-a$ THEN PRINT n$ 
(р).р: GOTO 200 

140 IF n$(p)>a$ THEN LET t= 
150 IF nS(p)<aS THEN LET b= 
160 IF t-b=1 THEN PRINT * N 
AO ACHEI": GOTO 200 

170 GOTO 100 

200 IF INKEYS="" THEN GOTO 
200 

210 RUN 

580 DATA "Antilope","Cachorro" 
,"Elefante","Golfinho","Jument 
o","Leopardo","Macaco","Periqu 
ito","Raposa","Sapo" 


PS 


10 CLS 

20 T=10:B=1 

30 DIM NS(10) 

40 FOR C=1 TO 10 

50 READ N$(C) 

60 NEXT 

70 INPUT"nome do animal”;AS 

80 TIME=0 

90 IF TIMEC50 THEN 90 ELSE CLS 
100 IF NS(T)=AS THEN PRINTNS(T) 
,T:G0T0200 

110 IF N$(B)=AS THEN PRINTNS (B) 
,B:GOTO200 

120 P=INT(.5+(T+B)/2) 

130 IF NS(P)=AS THEN PRINTNS(P) 
,P:GOTO200 

140 IF NS(P)>AS THEN T=P 
150 IF NS(P)<AS THEN B-P 
160 IF T-B=1 THEN PRINT” 
achei":GOTO200 

170 GOTO 100 

200 IF INKEYS-"" THEN 200 
210 RUN 

580 DATA ANTILOPE,CACHORRO,ELEF 
ANTE , GOLFINHO, JUMENTO , LEOPARDO, 
MACACO, PERIQUITO, RAPOSA, SAPO 


(411%) 


10 НОМЕ 

20 T = 10:B * 1 

30 DIM N$(10) 

40 FOR C * 1 TO 10 

50 READ NS(C) 

60 NEXT 

70 INPUT "QUAL O ANIMAL ?";A$ 








náo 






























































































80 FOR TT = 0 TO 200: 
100 IF N$(T) 


NEXT 
* AS THEN PRINT 
N$(T),T: GOTO 200 


110 IF NS(B) » AS THEN PRINT 
N$(B),B: GOTO 200 


120 P = INT (.5 + (T + B) / 2) 


130 IF NS(P) = AS THEN PRINT 
N$(P),P: GOTO 200 

140 IF NS(P) > AS THEN T = P 
150 IF NS(P) < AS THEN B = P 
160 IF T-B= 1 THEN PRINT ” 
NAO ACHEI”: GOTO 200 

GOTO 100 
СЕТ 28: 


170 
200 
0 

210 
580 


IF Z$ - "" THEN 20 


RUN 


DATA ANTILOPE ,CACHORRO, E 

















LEFANTE, GOLFINHO, JUMENTO, LEOPAR 
DO, MACACO, PERIQUITO, RAPOSA, SAPO 


cLs 

T=10:B=1 

DIM N$(10) 

FOR C=1 TO 10 

READ N$(C) 

NEXT 

INPUT” NOME DO ANIMAL "¡AS 

TIMER=0 

IF TIMER<50 THEN 90 ELSE CLS 
100 IF NS(T)=AS THEN PRINT N$(T 
),T:GOTO 200 
110 IF N$(B)*"A$ THEN PRINT N$(B 


),B:GOTO 200 

120 P=INT(.5+(T+B)/2) 

130 IF N$(P)*A$ THEN PRINT N$(P 
),P:GOTO 200 

140 IF N8(P)>A$ THEN T=P 
150 IF NS(P)<AS THEN B=P 
160 IF T-B-1 THEN PRINT" 
ACHEI":GOTO 200 

170 GOTO 100 

200 IF INKEY$="" THEN 200 
210 RUN 

580 DATA ANTILOPE, CACHORRO, ELEF 

ANTE, GOLFINHO, JUMENTO, LEOOPARDO 


+ MACACO, PERIQUITO, RAPOSA, SAPO 


NAO 


Como foi dito, não existem regras 
práticas para a obtenção de maior velo- 
cidade de execução em nossos progra- 
mas, Os melhores resultados são conse- 
guidos dedicando-se atenção especial a 
detalhes que, isolados, parecem ser insig- 
nificantes, mas que, juntos, fazem a di- 
ferença. Alguns desses detalhes são lem- 
brados no quadro da página 932. Ob- 
servando as recomendações ali contidas, 
você certamente obterá alguma econo- 
mia de tempo. Mas não se esqueça de 
que, muitas vezes, a rapidez de um pro- 
grama procede de uma descoberta indi- 
vidual, resultante, até mesmo, de um 
simples acaso. 
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UM ASSISTENTE 





PARA O DOS 


Se vocé já dispóe de um acionador de 
disquetes mas tem preguica 

de aprender os comandos do sistema 
operacional (DOS), utilize um 
programa assistente e durma tranqüilo. 












Qualquer que seja a aplicagáo a que 
se destine o seu microcomputador, con- 
vém adquirir um acionador de disque- 
tes. Desse modo, vocé poderá dispor de 
um sistema bem mais confiável e rápi- 
do do que as fitas cassete. 


FUNÇÕES DO DOS 


Do ponto de vista operacional, con- 
tudo, esse sistema apresenta uma peque- 
na desvantagem. Com ele, o usuário é 
obrigado a aprender um número adicio- 
nal de comandos, específicos para ope- 
rações com disquetes. Tais comandos 
fazem parte do chamado Sistema Ope- 
racional de Discos (DOS, sigla decorren- 
te de seu nome em inglês). Eles funcio- 
nam mais ou menos da mesma maneira 
nos diferentes modelos de computador, 
variando apenas a forma com que são 
escritos, e a sua sintaxe de uso. 

As funções básicas de um DOS são: 
- examinar o conteúdo de um disquete 

(catálogo); 

- copiar um arquivo de um disquete pa- 
ra outro ou fazer uma cópia com no- 
me diferente no mesmo disquete; 

- mudar o nome de um arquivo; 

- apagar um arquivo do disquete; 

- listar um arquivo na tela do computa- 
dor ou na impressora; 

- examinar qual o espaço que está dis- 








ponível no disquete; 

- proteger ou desproteger um arquivo 
contra apagamento ou modificação; 

- executar programas em BASIC ou em 

linguagem de máquina etc, 


Nem sempre, contudo, o usuário es- 
tá disposto a aprender em detalhe todas 
essas funções. De certo modo, estas ca- 
racterizam uma “linguagem” de coman- 
dos, que em alguns computadores é par- 
te das instruções do BASIC, enquanto 
em outros é um sistema totalmente se- 
parado, do qual o interpretador BASIC 
é apenas um programa a mais. 

A listagem apresentada aqui serve co- 
mo “assistente” para a Operação dos vá- 
rios comandos do DOS; ela dispensa a 
necessidade de aprendê-los em detalhe. 
Seu funcionamento se apóia em um 
“cardápio” de opções, mostrado na te- 
la assim que é executado, Escolhendo 
uma das opções apresentadas, o progra- 
ma automaticamente seleciona e execu- 
ta o comando correspondente do DOS. 
Em muitos casos, será necessário entrar 
informações adicionais, tal como o no- 
me de um arquivo. Possíveis erros co- 
metidos pelo usuário, como tentar apa- 
gar um arquivo protegido, serão detec- 
tados pelo programa, que exibirá na te- 








la a mensagem correspondente. 

Neste artigo abordaremos versões pa- 
ra os computadores das linhas TRS-80, 
TRS-Color, MSX, Apple II e TK-2000. 
Os micros da linha Sinclair também po- 
dem ser conectados a disquetes, ou **mi- 
crodrives”, fitas em alça sem fim, de 
comportamento semelhante aos disque- 
tes; mas como estes periféricos não são 
encontrados no país, deixamos de apre- 
sentar uma versão para eles. 

Digite os programas a seguir e arma- 
zene-os em um disquete. Para testar as 
opções do menu sem correr o risco de 
perder algo importante, copie no disque- 
te alguns arquivos e programas de que 
não vai precisar. 


10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) ; "ASSIS 
TENTE D.0.S." 

35 PRINT 
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п O QUE É UM SISTEMA Mi DETECÇÃO DE ERROS 

OPERACIONAL DE DISCOS MI COMO FUNCIONA 
Wi FUNÇÕES PRINCIPAIS DO DOS O PROGRAMA 
п UM ASSISTENTE INTELIGENTE Ш EXIBIÇÃO DO MENU 
п INFORMAÇÕES ADICIONAIS E LIMITAÇÕES 








40 PRINT "===================== 
50 PRINT ”<1> 
do disco" 

60 PRINT "<2> 
o do disco” 
70 PRINT "<3> 
arquivo” 

80 PRINT "<4> 
rama” 

90 PRINT "<5> FIM DO PROGRAMA 
190 PRINT "======-============== 
200 PRINT:PRINT "Escolha uma op 
cao:"; 

205 XS=INKEYS:IF XS="" THEN 205 
210 OP=VAL (X$) 

230 ON OP GOTO 250, 300, 350, 
400, 900 

240 GOTO 205 

250 INPUT "DRIVE (0/1) 


Listar conteudo 
Apagar um arquiv 
Mudar nome de um 


Executar um prog 


";D$ 


251 IF D$«»"0" AND DS<>"1” THEN 
сото 250 

252 GOSUB 950 

255 PRINT TAB(10);"CA TALO 
co 

260 PRINT:CMD "D:"*D$ 

270 GOSUB 910:RUN 

300 PRINT:INPUT "Nome do arquiv 
о рага apagar";NS 

310 KILL N$ 


















320 PRINT:PRINT "Arquivo ";N$;" 
apagado." 

330 GOSUB 910:RUN 

350 PRINT:INPUT "Nome do arquiv 
o a ser mudado";N$ 

360 INPUT "Novo nome para o arq 


uivo";N2$ 

370 NAME NS AS N29 

380 PRINT:PRINT N$;" mudado par 
a ";N2$ 

390 GOSUB 910:RUN 

400 PRINT:INPUT "Nome do progra 
ma ";N$ 

410 RUN N$ 

900 GOSUB 950 

905 END 

910 PRINT:PRINT:PRINT 

915 PRINT "PRESSIONE QUALQUER 














TECLA PARA CONTINUAR" 
920 ІР INKEYS="" THEN 920 
925 RETURN 

950 CLS:RETURN 


1l THEN PRINT "*** ERR 
:GOTO 995 

970 IF E-53 THEN PRINT "*** ARQ 
UIVO INEXISTENTE": GOTO 995 

990 IF E-56 THEN PRINT "*** NOM 
E ILEGAL DE ARQUIVO":GOTO 995 
992 PRINT "*** ERRO DE SINTAXE" 
995 GOSUB 910:RUN 


10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) ; 
TENTE D.0.8." 

35 PRINT 


40 PRINT "-еее«е«е««-----..----.. 
d 

50 PRINT "415 
DO DISCO" 

60 PRINT "<2> 
0 DO DISCO" 
70 PRINT "<3> 
ARQUIVO" 


"ASSIS 


LISTAR CONTEUDO 
APAGAR UM ARQUIV 
MUDAR NOME DE UM 
80 PRINT "<4> EXECUTAR UM PROG 
RAMA 

90 PRINT "<5> FIM DO PROGRAMA 


190 РЁАЇМТ "=================== =» 


- 
200 PRINT:PRINT "ESCOLHA UMA OP 
THEN 205 





210 OP=VAL (X$) 
230 on GOTO 250, 300, 350, 
9 


255 PRINT TAB(10);"CATALO 
со" 

260 PRINT:DIR 

270 GOSUB 910:RUN 

300 PRINT:INPUT "NOME DO ARQUIV 
O PARA APAGAR” ¡NS 

310 KILL NS 

320 PRINT:PRINT "ARQUIVO ";N$;" 


APAGADO. 

330 GOSUB 910:RUN 

350 PRINT:INPUT "NOME DO ARQUIV 
0 А SER MUDADO";N$ 

360 INPUT "NOVO NOME PARA O ARQ 
VUIVO";N2$ 

370 NAME N$ AS N2$ 

380 PRINT:PRINT N$;" MUDADO PAR 
À ";N28 

390 GOSUB 910:RUN 

400 PRINT:INPUT "NOME DO PROGRA 
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410 RUN N$ 

900 GOSUB 950 

905 END 

910 PRINT:PRINT:PRINT 

915 PRINT "PRESSIONE QUALQUER 
TECLA PARA CONTINUAR" 

920 IF INKEYS-"" THEN 920 

925 RETURN 

950 CLS:RETURN 

960 E=ERR 

965 IF E=51 THEN PRINT "*** ERR 
O0 INTERNO":GOTO 995 

970 IF E-53 THEN PRINT "*** ARQ 
UIVO INEXISTENTE": GOTO 995 

990 IF E-56 THEN PRINT "*** NOM 
E ILEGAL DE ARQUIVO":GOTO 995 
992 PRINT "*** ERRO DE SINTAXE" 
995 GOSUB 910:RUN 


10 ON ERROR GOTO 960 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) ; 
TENTE D.0.8." 

35 PRINT 
40 PRINT " 
50 PRINT "<1> 
do disco” 

60 PRINT "<2> 
o do disco” 
70 PRINT "435 
arquivo" 
80 PRINT 
rama" 

90 PRINT "455 
19 = 
== 
200 PRINT:PRINT "Escolha uma op 
g8o:"; 

205 XS=INKEYS:IF XS="" THEN 205 
210 OP=VAL (XS) 

230 ON OP GOTO 250, 
400, 900 

240 GOTO 205 

250 GOSUB 950 

255 PRINT TAB(10);"C A T-ÁL O 
G o" 

260 PRINT:FILES 

270 GOSUB 910:RUN 

300 PRINT:INPUT "Nome do arquiv 
o para apagar";N$ 


"ASSIS 








Listar conteudo 
Apagar um arquiv 
Mudar nome de um 


"<a> 


Executar um prog 


FIM DO PROGRAMA 





300, 350, 





















310 KILL N$ 

320 PRINT:PRINT "Arquivo ";N$;" 
apagado." 

330 GOSUB 910:RUN 

350 PRINT:INPUT "Nome do arquiv 
о а Ber mudado";N$ 

360 INPUT "Novo nome para o arq 
uivo";N23 

370 NAME N$ AS N29 

380 PRINT:PRINT N$;" mudado par 
a "iN2$ 

390:GOSUB 910:RUN 

400 PRINT:INPUT "Nome do progra 
ma ";N$ 

410 RUN N$ 

900 GOSUB 950 

905 END 

910 PRINT:PRINT:PRINT 

915 PRINT "PRESSIONE QUALQUER 
TECLA PARA CONTINUAR" 

920 IF INKEYS="" THEN 920 
925 RETURN 

950 CLS:RETURN 

960 E=ERR 

965 IF E=51 THEN PRINT "24% 
O INTERNO” :GOTO 995 

970 IF E=53 THEN PRINT "*** ARQ 
UIVO INEXISTENTE”: GOTO 995 

990 IF E=56 THEN PRINT "*** NOM 
E ILEGAL DE ARQUIVO":GOTO 995 
992 PRINT "*** ERRO DE SINTAXE" 
995 GOSUB 910:RUN 


ERR 


10 ON ERR GOTO 960 

15 LET D$=CHRS (4) 

20 GOSUB 950 

30 PRINT:PRINT TAB(10) ; 
TENTE D.0.8." 


"ASSIS 





50 PRINT "<1> LISTAR CONTEUDO 
DO DISCO" 


жел ы A ALAS DL M А см ы Лы мал. Ж ТЖ ЛА. 
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60 PRINT “<2> 
0 DO DISCO" 

65 PRINT "<3> 
ARQUIVO" 
70 PRINT 


APAGAR UM ARQUIV 
MUDAR NOME DE UM 


"<4> EXECUTAR UM PROG 
RAMA 

75 PRINT 
Ivo” 

80 PRINT 
RQUIVO” 
85 PRINT 
утуо" 

90 PRINT "<8> 
190 PRINT ”= 
200 PRINT:PRINT 
CA0:”; 

205 GET X$ 

210 LET OP=VAL (X$) 
230 ON OP GOTO 250, 
400, 450, 500, 550, 
240 GOTO 205 

250 GOSUB 950 

255 PRINT TAB(10);"CA TALO 
G o" 

260 PRINT:PRINT D$;"CATALOG" 
270 GOSUB 910:RUN 

300 PRINT:INPUT "NOME DO ARQUIV 
O PARA APAGAR s 

310 PRINT D$;"DELETE ";N$ 

320 PRINT:PRINT "ARQUIVO ";NS;” 
APAGADO.” 


"<5> PROTEGER UM ARQU 


"<6> DESPROTEGER UM A 
"<7> VERIFICAR UM ARQ 


FIM DO PROGRAMA 








"ESCOLHA UMA OP 


300, 
900 


350, 








330 GOSUB 910:RUN 

350 PRINT:INPUT "NOME DO ARQUIV 
O A SER MUDADE";N$ 

360 INPUT "NOVO NOME PARA O ARG 
UIVO";N2$ 

370 PRINT D$;"RENAME 
";N$;","N2$ 

380 PRINT:PRINT N$;" 
А ";N2$ 

390 GOSUB 910:RUN 
400 PRINT:INPUT "NOME DO PROGRA 
MA ";N$ 

410 PRINT D$;"RUN ";N$ 

450 PRINT:INPUT "NOME DO ARQUIV 
O PARA PROTEGER ";N$ 

460 PRINT D$;"LOCK ";N$ 

470 PRINT:PRINT "ARQUIVO ";NS;* 
PROTEGIDO.” 

480 GOSUB 910:RUN 

500 PRINT: INPUT "NOME DO ARQUIV 
O PARA DESPROTEGER ";N$ 

510 PRINT D$;"UNLOCK ";N$ 

520 PRINT:PRINT "ARQUIVO ";N$;" 


MUDADO PAR 


DESPROTEGIDO." 
530 GOSUB 910:RUN 
550 PRINT:INPUT "NOME DO ARQUIV 
O PARA VERIFICAR "¡NS 
560 PRINT D$;"VERIFY ";N$ 
570 PRINT:PRINT "ARQUIUO "; 
CORRETO." 

580 GOSUB 910:RUN 
900 GOSUB 950 

905 END 

910 PRINT:PRINT:PRINT 
915 PRINT "PRESSIONE RETURN 
PARA CONTINUAR" 

















920 
925 
950 


GET X$ 

RETURN 

HOME : RETURN 

960 LET E-PEEK (222) 

965 IF E-8 THEN PRINT "*** ERRO 
DE E/S":GOTO 995 

970 IF E=6 THEN PRINT "*** ARQU 
VO INEXISTENTE”: GOTO 995 

970 IF E-10 THEN PRINT "*** ARQ 
UIVO PROTEGIDO": GOTO 995 

990 IF E-13 THEN PRINT "*** TIP 
O ILEGAL DE ARQUIVO":GOTO 995 
992 IF E-11 THEN PRINT "*** ERR 
O DE SINTAXE” 

995 GOSUB 910:RUN 


'OMO FUNCIONA 


As linhas 10 a 240 mostram o menu 
na tela. Ele varia conforme o modelo do 
computador, pois nem todas as suas 
funções são iguais, ou acessíveis por 
meio de um programa. 

A linha 230 (ON...GOTO) desvia o 
programa para o trecho corresponden- 
te a cada função. O comando ON ERR 
GOTO logo na primeira linha serve pa- 
ra detectar erros de processamento de 
um comando do DOS. Caso isso acon- 
teça, ele desvia o programa para o tre- 
cho em que será mostrada uma mensa- 
gem de erro (linha 960 em diante). 

Após acionar a função do DOS que 
foi solicitada, o programa se auto-exe- 
cuta novamente, mostrando a tela de 
opções. A única exceção, em todos os 
microcomputadores, acontece quando 
se solicita a execução de um outro pro- 
grama: não há retorno automático ao 
menu inicial, e você deve executá-lo 
mais uma vez, se quiser. 

As linhas 910 e 950 marcam o início 
de duas sub-rotinas usadas repetidamen- 
te ao longo do programa. A primeira 
(910) serve para colocar uma mensagem 
no vídeo, avisando que o usuário deve 
pressionar a tecla <RETURN> ou 
<ENTER > para limpar a tela e voltar 
ao menu principal (nos micros das linhas 
MSX, TRS-80 e TRS-Color, pode-se 
pressionar qualquer tecla). 

A sub-rotina na linha 950, por sua 
vez, é usada apenas para limpar a tela; 
ela foi colocada aí para facilitar a con- 
versão do programa para outros micros. 
Assim, em vez de ter de alterar todas as 
linhas do programa onde ocorre um 
CLS, ou um HOME (e são muitas), é 
mais fácil modificar apenas uma. 


































Os micros da linha TRS-Color não 
têm um sistema operacional separado, 
como é o caso dos modelos das linhas 
'TRS-80 e MSX. Ao se inserir o conec- 


tor do acionador de disquetes na porta 
de cartuchos da máquina, o BASIC ar- 
mazenado na ROM do computador fi- 
ca apto para usar os comandos exclusi- 
vos para a operação do disquete. Esses 
comandos são poucos, em contraste, 
mais uma vez, com o TRS-80. As ins- 
truções principais — de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 
retamente do disco (RUN) —, contudo, 
são idênticas às do TRS-80; por isso os 
programas para ambas as linhas são si- 
milares. A única diferença diz respeito 
ao comando usado para listar o catálo- 
go do disquete (DIR). 





Os micros da linha TRS-80 contam 
com um sistema operacional separado, 
que pode ser invocado fora do BASIC. 
Esse sistema é armazenado nas trilhas 
do meio do disquete, e é carregado au- 
tomaticamente toda vez que o compu- 
tador é inicializado. Entretanto, o BA- 
SIC de disco tem alguns comandos se- 
melhantes, em operação, aos comandos 
do DOS. Embora em pequeno número, 
esses comandos são a base do funciona- 
mento do programa aqui apresentado. 
Os principais são os de apagamento 
(KILL), mudança de nome (NAME) e 
execução de programas em BASIC, di- 
retamente do disco (RUN). Eles são 
idênticos aos do TRS-Color; por isso os 
programas para ambas as linhas são si- 
milares. A única diferença diz respeito 
à instrução usada para listar o catálogo 
Ido disquete (DIR) no TRS-Color. No 
TRS-80 é usado o comando genérico 
CMD, que dá acesso direto, a partir do 
BASIC, a várias funções do DOS. Para 
obter o catálogo, por exemplo, usa-se 
CMD “D:0” ou CMD “D:1”, depen- 
dendo do acionador em que está o dis- 
quete. Note que o número do acionador 
é perguntado pelo programa. 


na 


Como no caso anterior, os micros da 
linha MSX tém um sistema operacional 
separado, que pode ser invocado fora do 
BASIC. Armazenado nas trilhas iniciais 
do disquete, esse sistema é carregado au- 
tomaticamente toda vez que o compu- 
tador é inicializado. Entretanto, o BA- 
SIC de disco conta com algumas instru- 
ções semelhantes, em operação, aos co- 
mandos do DOS. Essas instruções for- 
mam a base do funcionamento do pro- 
grama aqui apresentado. Os comandos 
principais são os de apagamento 
(KILL), mudança de nome (МАМЕ) е 
execução de programas em BASIC, di- 





retamente do disco (RUN). Eles são 
idênticos aos do TRS-80 e do TRS- 
Color; por isso os programas para am- 
bas as linhas são similares. A única di- 
ferença refere-se ao comando que lista 
o catálogo do disquete (DIR no TRS- 
Color, CMD no TRS-80). No MSX, es- 
se comando se chama FILES, e, em ope- 
ração, é equivalente à instrução DIR do 
seu sistema operacional. Os acionado- 
res de disquetes podem ser chamados de 
A ou B. Note que o programa pergunta 
o nome do acionador. O programa uti- 
liza todos os comandos referidos. 


С] 


Assim como os microcomputadores 
da linha TRS-Color, os modelos das li- 
nhas Apple e TK-2000 não dispõem de 
um sistema operacional de discos sepa- 
rado do BASIC. Ao ser utilizado com 
disquete, o interpretador de ambas as 
máquinas passa automaticamente a ter 
acesso aos comandos específicos neces- 
sários à sua operação. 

Entretanto, há um pequeno proble- 
ma: os comandos básicos, como RUN, 
DELETE, RENAME, LOCK, UN- 
LOCK, VERIFY e CATALOG, só res- 
pondem quando usados de modo dire- 
to (isto é, fora de um programa). Para 
executá-los a partir de um programa, é 
necessário colocar a cadeia de coman- 
dos dentro de um PRINT, o qual deve 
transmitir antes o caractere ASCII 4; só 
agindo jassim a/manobra surtirá efeito. 

Isso é explorado pelo programa, que, 
aliás, é o mais extenso de todos, em vir- 
tude da maior flexibilidade do Apple pa- 
ra explorar comandos do DOS a partir 
de um programa em BASIC. 


LIMITACÓE: 


O programa apresentado atinge seu 
principal objetivo, pois, de fato, per- 
mite ao usuário operar com disquetes 
sem conhecer os comandos adicionais 
específicos. Porém, como todo progra- 
ma que tenta substituir uma linguagem 
de comandos por um sistema de esco- 
Iha por cardápios, o nosso “assistente” 
tem algumas limitações. Em outras pa- 
lavras, da forma como está, ele não é 
capaz de explorar todas as possibilida- 
des de uso dos comandos do DOS. Por 
exemplo, nos micros da linha MSX, ele 
não usa os caracteres ? e * para listar 
os arquivos de um determinado tipo, 
presentes no catálogo. 

Se você conhece bem os comandos do 
DOS do seu micro, não será difícil mo- 
dificar o programa apresentado, am- 
pliando suas funções e utilidade. 











RISCOS E PRÉMIOS: 
AVALANCHE em 












Precisamos de incentivos e prêmios ' 
— como bolo e limonada — 
para ir em frente em nossa aventura. 

Mas não relaxe: as serpentes assassinas 
estão sempre à espera de um descuido. 











Depois de montado, 
apenas algumas modifi 
adaptar aos diferentes nívi 
dade. No segundo nível, o grande pro- 
blema de Willie consiste nos buracos 
existentes ao longo da encosta. Para 
desenhá-los, colocam-se blocos gráficos 
da cor do céu sobre o perfil da monta- 
nha. As cobras surgem apenas a partir 
do terceiro nível de dificuldade. A roti- 


nário requer 




















na que as movimenta será incorporada J ROTINAS ENCARREGADAS ASSASSINAS 
Re programa inads arde. DE FORNECER OS PRÉMIOS NE ROTINA DE IMPRESSÃO 
ш NÍVEIS DE DIFICULDADE DAS FIGURAS 

Ш BURACOS E MAIS BURACOS W COMO TESTAR 

10 REM org 58455 п DESENHO DAS COBRAS O PROGRAMA 





20 REM elb 1d a, (57344) 
30 REM ld h1,57272 
40 REM 1d b,a 

50 REM inc b 

60 REM 1d de,8 

70 REM ab add hl,de 
B0 REM djnz ab 

90 REM push hl 

100 REM pop bc 

110 REM ld h1,191 
120 ВЕМ 14 а,58 

130 REM call print 
140 REM 1d a,(57344) 
150 REM cp O 

160 REM jr z,ed 

170 REM push af 

180 REM call hls 
190 REM pop af 

200 REM cp 1 

210 REM jr z,ed 

220 REM call snp 
230 REM ed ret 

240 REM hls ld hl,457 
250 REM call hlp 
260 REM 1d h1,401 
270 REM call hlp 
280 REM 1d hl,314 
290 REM call hlp 
300 REM ret 

310 REM hlp 1d b,4 
320 REM hlq push bc 
330 REM ld bc,15616 
340 REM ld a,45 


























call print 
1d de,32 
add hl,de 
pop bc 

djnz hlq 
ret 

snp ld hl,457 
call snq 
1d h1,401 
call snq 
1d hl,314 
call snq 
ret 

вп4 14 а,4 
ld bc,57232 
enr push af 
ld a,43 
call print 
1d de,32 
add hl,de 
pop af 

dec a 

jr nz,snr 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
580 REM ret 

590 REM print org 58217 


OS PRÉMIOS 


O conteúdo do endereço 57344 é co- 
locado no acumulador. Esta posição de 
memória será utilizada para armazenar 
o nível de dificuldade em vigor. O par 
de registros HL recebe a seguir o ende- 
reço inicial dos padrões dos prêmios na 
tabela de dados. O nível de dificuldade 
é transferido do acumulador para o re- 
gistro B, aumentando, então, em uma 
unidade. O par DE recebe o número 8 
e é somado ao par HL. 

O laço rotulado com ad prossegue 
adicionando 8 ao apontador HL até que 
o conteúdo de B se torne zero. Lembre- 
se de que a instrução djnz opera sobre 
o registro B: subtrai uma unidade e sal- 
ta se o conteúdo deste não tiver chega- 
do a zero. Tal processo movimenta o 
apontadordo padrão do prêmio — o par 
de registro HL — pela tabela, até que 
ele aponte para o início do bloco gráfi- 
co adequado ao nível de dificuldade vi- 
gente. Cada bloco é um quadrado de oi- 
to por oito pontos, ocupando, assim, oi- 
to bytes na tabela. 

O resultado dessas adições repetidas 
fica no par de registros HL. Contudo, 
a sub-rotina print precisa dele no par BC 
para imprimir o bloco correspondente. 
A maneira mais fácil e rápida de pro- 
mover a transferência consiste em guar- 
dar o valor de HL na pilha, recuperan- 
do-o em seguida em BC. 

A cor do caractere do prémio é codi- 
ficada pelo nümero 58, colocado em A. 
Depois disso, o programa chama a sub- 
rotina print, que desenha o bloco na cor 
apropriada. Essa rotina foi fornecida no 
primeiro artigo da série Avalanche (pá- 
gina 748). 


490 
500 
510 
520 
530 
540 
550 
560 
570 


O NÍVEL DE DIFICULDADE 


O conteúdo da posição de memória 
usada para guardar o nível de dificulda- 
de volta para o acumulador. O compu- 
tador verifica inicialmente se ele é igual 
a zero. Em caso afirmativo, a instrução 
jr z,ed salta para o final da rotina, e 
a instrução ret provoca o retorno da 
mesma. 

Se o nível vigente for diferente de ze- 
ro, o processador preserva seu número, 
guardando-o na pilha. A sub-rotina his, 
que desenha os buracos ao longo da en- 
costa, é chamada a seguir. O nível de di- 
ficuldade é então recuperado da pilha e 
comparado a l. Nesse nível, temos vá- 
rios buracos mas não existe nenhuma 
serpente dentro deles. Assim, se A con- 
tiver l, a instrução cp l resulta em zero, 
o que ativa o indicador de zeros. A ins- 
trução jr z,ed salta, então, para o final 
da rotina, onde ret provoca o retorno. 

Se o nível for maior que l, a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, é chamada. Depois disso, o 
programa termina. 

Quando a rotina principal de controle 
estiver na memória, o processador retor- 
nará a ela. Por enquanto, ele retorna ao 
BASIC. 


OS BURACOS 


A sub-rotina seguinte tem a função 
de cavar buracos ao longo da encosta. 
Ela começa com o rótulo his, que é cha- 
mado pela rotina principal quando é 
preciso acrescentar os buracos ao cená- 
rio. Três pequenos módulos, com duas 
instruções cada um, compõem essa sub- 
rotina. Eles começam com comandos do 
tipo Id hl, que colocam no par HL o en- 
derego da tela correspondente á posição 
de impressáo do topo de cada buraco. 
Após cada instrução desse tipo, a roti- 
na hlp é chamada para colocar os blo- 
cos que formam o buraco sobre o dese- 
nho da encosta, feito pelos programas 
dados no último artigo. 

A sub-rotina contém três módulos 
porque deve desenhar três buracos, ca- 
da um em uma posição diferente colo- 
cada em HL. Todos eles são feitos da 
mesma maneira. pela sub-rotina hlp. 


MAIS BURACOS 


Como cada buraco tem quatro blo- 
cos de profundidade, o número 4 é co- 
locado no registro B e guardado tempo- 
rariamente na pilha. O par BC recebe, 


então, o endereço de um espaço em 
branco. Na realidade, este é um byte da 
tabela de códigos para o alto da tela. 

O código da cor do céu — 45 — vai 
para o acumulador e a sub-rotina print 
é novamente chamada. Assim, para co- 
locar o primeiro bloco cor do céu sobre 
o perfil da encosta, o computador tira 
a primeira “pá de terra” do local onde 
ficará o buraco. 

Colocando 32 em DE e somando es- 
se valor a HL, fazemos com que este par 
aponte para o endereço da posição ime- 
diatamente inferior. O contador é recu- 
perado da pilha e a instrução djnz sub- 
trai uma unidade dele, saltando em di- 
reção ao rótulo hlq, se B ainda não for 
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zero. O processador executa esse laço 
quatro vezes, imprimindo mais um blo- 
co cor do céu — ou tirando mais uma 
pá de terra — a cada volta. 


AS COBRAS 


O resto do programa desenha as co- 
bras. As sete primeiras instruções são 





parecidas com as que iniciam a rotina 
dos buracos. Elas colocam no par HL 
a posição de impressão de cada cobra, 
chamando em seguida a sub-rotina que 
desenha a serpente. 

Essa rotina também se assemelha 
àquela que desenha os buracos — afinal, 


as cobras devem caber dentro deles. 

Desta vez, o contador ficará no acu- 
mulador, pois precisaremos controlar o 
apontador da tabela de padrões. No ca- 
so dos buracos, esse apontador foi di- 
recionado para o endereço de um espa- 
ço em branco. Aqui ele percorrerá a ta- 
bela que criamos na memória RAM. A 
sub-rotina print atualiza automatica- 
mente o apontador, movendo-o para o 
próximo byte. Como o apontador fica 
no par de registros BC, teríamos que fi- 
car guardando seu valor na pilha, se qui- 
séssemos recorrer à instrução djnz para 
controlar o laço. Com o contador em A, 
essa instrução é substituída por dec a e 
jr nz, snr. 










































































STE DA ROTINA 


Para testar a rotina, coloque níveis de 
dificuldade de 0 a 3 no endereço 57344, 
usando o comando POKE 57344. Cha- 
me a rotina com RANDOM 58455 e ve- 
rifique se os buracos estào sendo dese- 
nhados no nível 1; as cobras, nos níveis 
2e3, ese prémios diferentes aparecem 
a cada nível. 


O programa listado a seguir desenha 
os buracos e as serpentes assassinas ao 
longo da encosta, conforme o nível de 
dificuldade. 


10 ORG 19289 
20 ELB LDA 18238 


30 LDB 416 

40 MUL 

50 ADDD 418142 
60 TFR D,U 


70 LDX $2782 

80 JSR CHARPR 
90 LDA 18238 

100 BEQ ED 

110 PSHS A 

120 JSR HOLES 
130 PULS A 

140 CMPA 41 

150 BEQ ED 

160 JSR SNAKE 
170 ED RTS 

180 HOLES LDX $5095 
190 LDU $3071 
200 JSR HOLPR 
210 ГОХ $4591 
220 LDU $3071 
230 ЈЗА HOLPR 
240 LDX 43833 
250 LDU 43071 
260 JSR HOLPR 
270 RTS 

280 SNAKE LDX 45095 
290 LDU 418078 
300 JSR HOLPR 
310 LDX 44591 
320 LDU 418078 
330 JSR HOLPR 
340 LDX 43833 
350 LDU 418078 
360 JSR HOLPR 
370 RTS 

380 HOLPR LDB #4 
390 HOLPRI PSHS U,X,B 
400 JSR CHARPR 
410 PULS B,X,U 
420 LEAX 256,X 
430 LEAU 16,U 


440 DECB 
450 BNE HOLPRI 
460 RTS 


470 CHARPR LDB 42 
480 CHARI PSHS B,X 
490 LDB 48 

500 CHARZ PULU A 
STA ,X 








520 
530 
540 
550 
560 
570 
580 
590 


COMO TESTAR 0 PROGRAMA 


Esse programa acrescenta blocos grá- 
ficos ao cenário já montado. Portanto, 
para testá-lo, é preciso que as rotinas e 
tabelas criadas anteriormente estejam na 
memória do micro. Depois de carregar 
os códigos e montar o programa, digite 
as linhas BASIC que seguem. Elas per- 
mitiráo que vocé execute a parte do jo- 
go já programada. 


LEAX 32,X 
DECB 

BNE CHARZ 
PULS X,B 
LEAX 1,X 
DECB 

BNE CHARI 
RTS 


5 PCLEAR4:CLEAR 200,16999 
10 EXEC 19000:EXEC 19109 
20 POKE 18238,0 

30 EXEC 19289 

40 GOTO 40 


A linha 10 executa parte do jogo 
montada nos artigos anteriores; a 20 
acerta o valor do nível de dificuldade e 
a 30 executa o programa deste artigo. A 
40 serve apenas para manter a tela de al- 
ta resolução ligada. 

Para termos certeza de que nossa ro- 
tina funciona perfeitamente, devemos 
interromper o programa com BREAK 
e editar a linha 20 para mudar o nível 
de dificuldade, O nível O deixa o cená- 
rio intacto, apenas com a montanha — 
os perigos desse nível são as pedras, que 
faremos rolar morro abaixo em outra 
parte do programa. 

O nível 1 desenha os buracos na en- 
costa e o 2 acrescenta as serpentes as- 
sassinas. O nível 3 soma a tudo isso a 
avalanche, que, como dissemos, será 
promovida por outra rotina. 

Teste cada um dos níveis. Verifique 
se as guloseimas roubadas estão sendo 
desenhadas no topo da montanha. 


NIVEIS DE DIFICULDADE 


O endereço 18328 será usado para 
guardar o nível de dificuldade em vigor. 
Seu conteúdo transfere-se para o acu- 
mulador no início do programa e, em se- 
guida, o número 16 é colocado no re- 
gistro B. A instrugáo MUL multiplica 
o conteúdo desses dois registros, colo- 
cando o resultado em D. 

Como o bloco gráfico de cada pré- 
mio tem dezesseis bytes de comprimen- 
to, precisamos multiplicar o nível vigen- 
te por dezesseis, para obtermos na ta- 


ИО bela o padrão do bloco a ele adequado. 
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O número obtido pela soma de 18142 
ao resultado da multiplicação indica a 
posição inicial do padrão do bloco de- 
sejado, na tabela de padrões. Esse apon- 
tador é então transferido para o regis- 
tro U, que funciona como apontador da 
pilha do usuário. 

O registro X recebe o valor 2814, po- 
sição de impressão do prêmio na tela 
gráfica. Em seguida, o processador sal- 
ta para o rótulo CHARPR, que impri- 
me o bloco gráfico correspondente. 

A instrução LDA 18238 repõe o ní- 
vel de dificuldade dentro do acumula- 
dor. Se o nível for zero, a instrução BEQ 
provoca um desvio para o rótulo ED. 
Como neste nível já nada mais precisa 
ser acrescentado ao cenário — com ex- 
ceção do prêmio —, a instrução RTS 
termina a sub-rotina. 

Se o nível for maior que zero, o pro- 
grama guarda seu nümero na pilha da 
máquina. A sub-rotina que cava os bu- 
racos na encosta é, entào, chamada. 

Depois que a escavação termina, o ni- 
vel é recuperado da pilha e comparado 
a 1. Se este for o número do nível atual, 
a instrução que desenha as cobras, JSR 
SNAKE, é ignorada e o processador re- 
torna da sub-rotina. 


BURACOS E COBRAS 


As rotinas que desenham os buracos 
e as cobras compõem-se de trés séries de 
três instruções, e funcionam da mesma 
maneira. Em cada série, o registro X re- 
cebe a posição da tela onde deve ser im- 
presso o topo do bloco gráfico, enquan- 
to o registro U recebe o endereço inicial 
do padrão do bloco na tabela. Em se- 
guida, o processador salta para a roti- 
na de impressão, HOLPR. 

Como todos os buracos são iguais, o 
apontador da tabela tem sempre o va- 
lor inicial 3071. Esse endereço não fica 
na tabela, e sim na tela, pois o buraco 
nada mais é que um bloco cor do céu. 
O mesmo acontece com as cobras, cujo 
bloco gráfico tem endereço inicial 18078 
na tabela de padrões. 

As cobras são impressas, evidente- 
mente, na mesma posição que os bura- 
cos que ocupam. O topo do primeiro 
buraco fica em 5095; o segundo, em 
4591 e o terceiro, em 3833. Tanto as co- 
bras quanto os buracos são desenhados 
sobre o perfil da montanha original. O 
restante do cenário permanece intacto. 


A ROTINA DE IMPRESSÃO 


As rotinas HOLES e SNAKES cha- 
mam a sub-rotina HOLPR, que é res- 








ponsável tanto pelo desenho dos bura- 
cos quanto pelo das cobras. 

O registro B recebe inicialmente o nú- 
mero 4 — os buracos têm quatro blo- 
cos de profundidade. Os registros U, X 
e B são guardados na pilha antes que a 
rotina CHARPR seja chamada. Esta é 
responsável pela impressão do bloco in- 
dicado pelo apontador de tabela de pa- 
drões na posição determinada por X. 

Assim, se estivermos no nível 1 e for- 
mos desenhar um buraco, o apontador 
da tabela, U, indicará seu padrão e a ro- 
tina se encarregará de colocá-lo na po- 
sição dada por X. Se estivermos no ni- 
vel 2 ou 3, U apontará para o padrão 
do bloco da cobra, que será impresso na 
posição X da tela. 

Uma vez feita a impressão B, X e U 
são recuperados da pilha. X recebe en- 
tão o valor X + 256, que corresponde à 
posição de impressão imediatamente in- 
ferior. U recebe o valor U+16, que 
aponta para o padrão do próximo blo- 
co gráfico na tabela. 

Em seguida, B é subtraído em uma 
unidade e, se ainda não foi reduzido a 
zero, o processador volta ao rótulo 
HOLPRI. Quando o conteúdo desse re- 
gistro chegar a zero, todos os quatro 






















blocos teráo sido desenhados, a instru- 
ção BNE HOLPRI será ignorada е о 
processador retornará da sub-rotina. 

A impressão do bloco é feita pela ro- 
tina CHARPR, que explicamos a seguir. 

Cada bloco gráfico impresso na tela 
tem dezesseis bits — dois bytes, portan- 
to — de largura e oito bits de profundi- 
dade. O registro B recebe, assim, o va- 
lor 2, para contar a largura do buraco. 
4 Esse contador é preservado na pilha, 
juntamente com a posigáo de impressáo 
contida no registro X. B recebe entào o 
valor 8, para contar a profundidade do 
bloco. 

O byte correspondente ao padráo da 
linha do bloco é recuperado da pilha do 
usuário, colocado no acumulador e, em 
seguida, transferido para a posigáo de 
impressáo apontada pelo registro X. Por 
meio desse processo, o bloco é impres- 
so linha por linha na tela. 

A instrugáo LEAX 32,X coloca o va- 
lor X+32 no registro X, movendo o 
apontador de posições de tela uma linha 
de pixels para baixo. O contador B é di- 
minuído em uma unidade e o processa- 
dor retorna para imprimir o próximo 
byte, até que B tenha sido reduzido a ze- 
ro — BNE CHARZ. 


Em seguida, X e B são recuperados 
da pilha e X recebe o valor X+1 — 
LEAX 1,X —, o que faz o apontador 
mover-se um byte para a direita na te- 
la. O contador B é então subtraído de 
uma unidade. Se ele ainda não tiver si- 
do reduzido a zero, o processador retor- 
na ao rótulo CHARI para imprimir 
mais uma coluna de oito bytes. Quan- 
do B já for igual a zero, as duas colu- 
nas estarão desenhadas e o processador 
retornará da sub-rotina CHARPR. 











560 push de 

570 ld c,3 

580 po ld hl, (62407) 
590 1d de,-5227 
600 ld (-5220),de 
610 pop de 

620 ld b,4 

630 pp add hl,de 
640 ld de, (-5220) 
650 ld a, (de) 

660 inc de 

670 ld (-5220),de 
680 push hl 


10 org 53682 

20 1d a, (-5228) 
30 rla 

40 rla 

50 ld b,56 

60 add a,b 

70 ld hl, (62407) 
80 1d de,254 

90 add hl,de 

100 call 77 

110 1d a,(-5228) 
120 ср 0 

130 jr z,ed 

140 push af 

150 call ho 

160 pop af 

170 ср 1 

180 jr z,ed 

190 call sn 

200 ed ret 

210 ho 1d de,457 
220 push de 

230 1d de,401 
240 push de 

250 1d de,314 
260 push de 

270 ld c,3 

280 po 1d hl, (62407) 
290 pop de 

300 ld b,4 

310 pp add hl,de 
320 ld a,254 

330 push hl 

340 push bc 

350 call 77 

360 pop bc 

370 pop hl 

380 14 4е,32 
390 ајп2 pp 

400 dec c 

410 jr nz,po 
420 ret 

430 sn 14 a,37 
440 14 (-5227),а 
450 add а,3 

460 14 (-5226),а 
470 адд а,1 

480 18 (-5225),а 
490 адд а, 3 

500 14 (-5224).а 
510 1d de,457 
520 push de 

530 ld de,401 
540 push de 

550 ld de,314 





690 push bc 
700 call 77 
710 pop bc 
720 pop hl 
730 1d de,32 
740  djnz pp 
750 dec c 
760 jr nz,po 
770 ret 

780 end 


ROTINA DE PREMIOS 


O conteúdo do enderego -5228 é co- 
locado no acumulador. O nível de difi- 
culdade do jogo ficará armazenado nes- 
sa posigáo de memória. 

O valor de A (0, 1, 2 cu 3) será utili- 
zado para gerar o código da tabela de 
padróes que corresponde ao prémio no 
nível vigente, ou seja: 


























nível valor de A prêmio código 

























1 0 sanduíche 56 
£ 1 maçà 60 
3 2 garrafa 64 
4 3 sorvete 68 


Armazenamos o código de padráo do 
sanduíche, 56, no registro B. Este será, 
portanto, o código-base. Em seguida, 
multiplicamos o conteúdo de A por qua- 
tro — a operação equivale a deslocar o 
conteúdo de A dois bits para a esquer- 
da, o que é feito pela instrução rla exe- 
cutada duas vezes. 

Somando o código-base contido em 
B ao valor de A, obtemos no acumula- 
dor o código do prêmio certo. 

O endereço inicial da tabela de nomes 
de VRAM, que está nas posições de me- 
mória 62407 e 62408, é colocado no par 
de registros HL. Adicionamos a esse en- 
dereço o deslocamento correspondente 
à posição na qual desejamos imprimir 
o prêmio — 256, que equivale ao topo 
da montanha. 

Para a impressão do bloco corres- 
pondente ao prêmio, utiliza-se a sub- 
rotina 77 da memória ROM. Esta colo- 
ca o valor do acumulador A na posição 
da VRAM apontada pelo par HL. No 
nosso caso; ela coloca o código do blo- 
co do prêmio na tabela de nomes. 

Lembre-se de que a tela, no modo de 










alta resolução, é um reflexo da tabela ae 
nomes da VRAM. 


O NÍVEL DE DIFICULDADE 


O conteúdo da posigáo de memória 
que guarda o nível de dificuldade é pos- 
to de volta no acumulador. Se for iqual 
a zero, a instrução jr z,ed salta para o 
final da rotina onde se encontra a ins- 
trucào ret. Caso contrário, o processa- 
dor continua preservando o nümero do 
nível na pilha. A sub-rotina hls, que de- 
senha os buracos ao longo da encosta, 
é entáo chamada. 

O nivel de dificuldade é recuperado 
da pilha e comparado a 1. Nesse nível 
temos vários buracos, mas nenhuma ser- 
pente dentro deles. Logo, se A contiver 
1, a instrução ep 1 resulta em zero, o que 
ativa o indicador de zeros. A instrução 
jr z,ed salta novamente para o final da 
rotina e retorna. 

Se o nível for superior a 1, a sub- 
rotina snp, que desenha as serpentes as- 
sassinas, é chamada e, depois, o progra- 
ma termina. Quando a rotina principal 
de controle estiver na memória, o pro- 
grama retornará a ela. Por enquanto, re- 
torna ao BASIC. 


OS BURACOS 


A próxima sub-rotina é totalmente 
dedicada a cavar buracos ao longo da 
encosta. Ela começa com o rótulo ho, 
chamado pela rotina principal quando 
surge a necessidade de acrescentar os bu- 
racos ao cenário. Inicialmente, ho arma- 
zena na pilha o endereço da tela corres- 
pondente à posição de impressão do to- 
po de cada buraco. Como são três bu- 
racos, isso é feito três vezes. 





Todos são desenhados da mesma ma- 
neira, por intermédio do laço ho que co- 
loca no par de registros HL o endereço 
inicial da tabela de nomes da VRAM, 
adicionando a ele o endereço da tela cor- 
respondente a cada buraco. 

O registro C é usado como contador 
para os trés buracos, e a instrução jr nz, 
ho testa o fim da rotina. 

Como cada buraco tem quatro blo- 
cos de profundidade, esse valor é colo- 
cado no registro B, que contém o núme- 
ro de execuções do laço hp. 

0 código da tabela de padrões do blo- 
co cor de céu é armazenado no acumu- 
lador A. Em seguida, a rotina 77 da 
ROM, cujo funcionamento explicamos 
anteriormente, é chamada. 

Para evitar possíveis alterações de 
correntes da rotina 77, as instruções 
pusch e pop são usadas para proteger os 
contadores no par BC e os endereços no 
par HL. O contador é recuperado da pi- 
lha e a instrução djnz subtrai uma uni- 
dade dele, saltando em direção ao rótu- 
lo hp se o registro B ainda não tiver si- 
do reduzido a zero. 

O laço, executado quatro vezes, tira 
uma “pá de terra” a cada volta. 





















AS COBRAS ASSASSINAS 


Cabe à rotina sn desenhar as cobras. 
O processo é basicamente igual ao da ro- 
tina ho e as cobras sáo desenhadas nas 
mesmas posigóes que os buracos. Há 
uma diferenga fundamental: para cavar 
um buraco, precisamos colocar o mes- 
mo padráo do bloco cor de céu quatro 
vezes; já para desenhar uma cobra te- 
mos que mudar o código do padráo pa- 
ra cada parte do animal. 

Essa tarefa seria muito simples se os 
códigos dos padróes que formam a co- 
bra estivessem em seqüéncia. Porém, co- 
mo vocé pode verificar na tabela de pa- 
dróes, isso nào ocorre. Armazenamos, 
assim, no início da rotina, os códigos dos 
padróes que formam a cobra — 37, 40, 
41, 44 — nos enderecos de -5227 até 
-5224. Depois, basta assegurar que es- 
ses enderecos sejam chamados seqüen- 
cialmente para cada cobra a ser desenha- 
da. Isso é feito por intermédio do par 
DE, que serve como ponte, armazenan- 
do o endereço inicial da tabela (-5227) 
nas posições -5220 e -5219. Esses ende- 
reços contêm o endereço do código do 
padrão correspondente a cada uma das 
partes da cobra. 

No mais, esta rotina é idêntica à que 
cava buracos. 


TESTAI 


Para testar a rotina, digite o seguin- 
te programa BASIC: 


10 DEFUSR1=-12144 
20 DEFUSR2=-11973 
30 DEFUSR3=-11854 
40 A=USRI (0) 

50 A=USR2(0) 

60 A=USR3(0) 

70 Goro 70 

80 END 


A linha 40 chama a rotina -12144, 
que coloca a tela no modo de alta reso- 
lução, e a 50 chama a rotina -11973, en- 
carregada de desenhar a montanha na 
tela. A linha 60 chama a rotina apresen- 
tada neste artigo. 

A tela é mantida no modo de alta re- 
solução pela linha 70. 

Para testar o funcionamento da ro- 
tina nos vários níveis de dificuldade, di 
gite POKE -5228,A, atribuindo à variá- 
vel A os valores 0, 1, 2 ou 3. 





IE 





OS SEGREDOS 
DO TRS-80 (2) 


Pode-se consultar, com o BASIC, as 
ровісбез da memória que armazenam o 
vídeo e as cadeias de caracteres. 
Usando esse recurso, você tornará seus 
programas bem mais rápidos. 


No artigo anterior desta série, vimos 
como manipular o conteüdo da memó- 
ria de vídeo do TRS-80 e compatíveis 
com o auxílio dos comandos PEEK e 
POKE. Podemos fazer isso porque o ví- 
deo do TRS-80 é mapeado diretamente 
em um segmento fixo da RAM, que co- 
meça na locação 15360 e se estende até 
a locação 16376. Cada caractere na tela 
é armazenado em uma posição corres- 
pondente dessa memória de 1024 bytes. 

Porém, os comandos PEEK e POKE 
são muito lentos quando usados dentro 
de laços FOR...NEXT para a transfe- 
rência, consulta ou escrita de grande 
quantidade de caracteres na tela. Há 
uma técnica bem mais poderosa e rápi- 
da, que aprenderemos neste artigo: é o 
uso da função VARPTR como aponta- 
dor de cadeias de caracteres para a tela. 

Essa técnica permite armazenar ins- 
tantaneamente 255 caracteres em exibi- 
ção na tela, em uma cadeia alfanuméri- 
ca (string). O limite de 255 caracteres 
(que corresponde a quatro linhas de ví- 
deo) é imposto pelo tamanho máximo 
de um string alfanumérico. Se quiser- 
mos deslocar a tela inteira, portanto, 
basta efetuar a transferência em ““par- 
tes” de 255 bytes de cada vez. 

Para entender como a técnica funcio- 
na, precisamos conhecer o processo de 
hrmazenagem de cadeias alfanuméricas 
na memória do TRS-80. Existe um es- 
paco na memória RAM, criado toda vez 
que o BASIC é inicializado. O argumen- 
to do comando CLEAR define o tama- 
nho desse espaço (o tamanho predefini- 
do é de cinqüenta bytes). 

Sempre que uma variável alfanumé- 
rica é definida (ou seja, sempre que nào 
é uma constante dentro de um progra- 
ma), o interpretador BASIC cria um par 
de bytes apontadores, que contém o en- 
dereco absoluto inicial da cadeia, na me- 
mória de strings. Nessa locagáo inicial, 
está armazenado um byte, que contém 


o comprimento da cadeia em bytes (daí 
a limitação intrínseca de 255 bytes por 
cadeia). Nas duas locações seguintes, en- 
contram-se os bytes (o menos significa- 
tivo e o mais significativo) do endereço 
inicial onde está armazenado o conteú- 
do da cadeia alfanumérica. 

Seu programa pode ter acesso direto 
a toda essa informação através da fun- 
ção VARPTR. Para uma variável V$, 
por exemplo, teríamos: 


VARPTR(VS) = locação do apontador de V$ 
PEEK(VARPTR(VS)) = comprimento de V$ 
PEEK(VARPTR(V$)+1) = endereço de VS 
PEEK(VARPTR(VS) +2) = enderego de VS 


Nada mais fácil, portanto, do que 
transferir 255 bytes da tela para uma va- 
riável alfanumérica: basta alterar o en- 
dereço armazenado nas locações 
VARPTR(VS$) - 1 e VARPTR(VS) 4-2 
de modo que passe a apontar para a lo- 
cação inicial da memória de vídeo que 
queremos transferir. Nenhum byte do 
conteúdo da tela precisa ser movido! 

A sub-rotina seguinte coloca o com- 
primento desejado e o endereço inicial 
de vídeo no bloco de apontadores de 
uma variável V$: 

1000 'SUBROTINA VTRANSF 
1010 V$=" ":POKE VARPTR(US),Ct 


1020 POKE VARPTR(VS)+1, Vt-INT 
(91/256) *256 
1030 POKE VARPTR(US)*2, INT(Ut 


/256)*60 
1040 RETURN 

A linha 1010 define V$ e armazena 
no primeiro endereco do bloco de apon- 
tadores o nümero de bytes de compri- 
mento (a variável inteira C%). 

As linhas 1020 e 1030 tratam de ar- 
mazenar no bloco de apontadores, res- 
pectivamente, o byte mais significativo 
eo byte menos significativo do endere- 
ço desejado de início no vídeo (a variá- 
vel inteira V%). 

Observe que as variáveis C% e V% 
estão definidas como inteiras. Para usar 
a sub-rotina, deve-se colocar em V% о 
endereço da posição de início na tela (0 
a 1023), e, em C%, o número de bytes 
a se transferir (0 a 255). Ao retornar da 
sub-rotina, V$ conterá os caracteres que 
estavam armazenados na tela, da posi- 
cão У% а У + С%. 


CÓPIA DA TELA 

Ш FUNCAO VARPTR E VÍDEO 

s TRANSFERÉNCIA 
APLICACOES 
IMPRIMINDO A TELA 





APL 





Essa rotina, que chamaremos de 
VTRANSE, possui numerosas aplica- 
ções. Eis aqui algumas delas: 

* copiar o conteúdo de uma tela de ví- 
deo na impressora; 

* armazenar o conteúdo de várias telas 
de vídeo na memória; 

* armazenar as telas em disco; 

e realizar animações gráficas, pela su- 
perposição rápida de porções de telas de 
vídeo previamente armazenadas em 
memória; 

* montar vídeos com várias “janelas” 
superpostas, independentes. 


Nos próximos artigos desta série, tra- 
taremos em detalhe das aplicações da ro- 
tina VTRANSF. 


IMPRIMIR A TELA 


O programa que se segue é um pri- 
meiro exemplo de utilização da sub- 
rotina VTRANSF. Ele imprime o con- 
teúdo corrente da tela em uma impres- 
sora, linha por linha: 


10 CLEAR 500 
20 Ct-64 
30 FOR У%-0 TO 960 STEP 64 


40 GOSUB 1000 : LPRINT VS 
50 NEXT Vt 
60 END 


O programa funciona da seguinte 
maneira: a linha 10 reserva quinhentos 
bytes de memória para strings. A linha 
20 define o comprimento C% da variá- 
vel alfa que receberá cópia de uma linha 
de vídeo. A linha 30 inicia um laço, que 
vai até a linha 50, percorrendo os ende- 
reços de vídeo (V %) desde a primeira até 
a última linha, de 64 em 64 posições. Fi- 
nalmente, a linha 40 chama nossa sub- 
rotina VTRANSF (que deverá ser colo- 
cada logo após a linha 60) e imprime a 
variável V$, que recebeu a cópia do 
vídeo. 

Se sua impressora não for do tipo 
gráfico, use esse programa apenas para 
copiar telas de texto, pois ele não con- 
verte os caracteres gráficos (129 a 191) 
que encontra na tela. 














КУЕ 


Terceira e última parte do jogo A Ra- 
posa e os Gansos, este artigo apresenta 
rotinas que possibilitam ao computador 
(jogar tanto pela raposa quanto pelos 
gansos. Na verdade, ele pode ser colo- 
- cado a jogar sozinho ou simplesmente 
“pode não jogar, se você tiver um par- 
ceiro humano; neste caso, o computa- 
'dor servirá apenas como tabuleiro e for- 
necedor de peças. 


210 LET P=B(G(1))+B(G(2))+B(G( 
3))+B(0(4)) 

220 LET X=F: IF B<B(32) THEN 
LET P=P-BX: LET X=33-F 

230 LET P=P*B(X): RETURN 

250 LET F=EN A(ABS P)-30: LET 
| B=p/B(F): IF B<O THEN) LET B=B 
+BX: LET F=33-F 

260 FOR-A-1 TO 4: LET G(A)*FN 
A(B)+1: LET B=B-B(G(A)): NEXT 
A: RETURN 











210 P*B(G(1))*B(G(2))*B(G(3))*B 
(G(4)) 

220 X=F:1F P<B(31) THEN P=P-BX: 
X=31-F 

230 P=P*B (X) : RETURN 

250 F=FNA(ABS (P))-31:B=P/B(F):1 
¿F BX0 THEN B=B+BX:F=31-F 

260 FOR A=1 TO 4:G(A)=FNA(B) :B= 
B-B(G(A)) : NEXT: RETURN 





O JOGO ARAPOSA 
EOS GANSOS (3) 






nu 


210 P=B(G(1))4B(G (2))+B(0(3))+B 
(G(4)) 

220 X=F:IF P<B(31) THEN P=P-BX: 
X=31-F 

230 P=P*B (X) : RETURN 

250 F=FNA(ABS(P))-31:B=P/B(F):1 
F B<O THEN B=B+BX:F=31-F 

260 FOR A=1 TO 4:G(A)=FNA(B) :B= 
B=B(G(A)) :NEXTERETURN 


(#15) 


210 P * B(G(1)) * B(G(2) * B(G 
(3) * B(G(4)) 

220 X * F: IF P « B(31) THEN P 
= p - BX:X = Jl -F 

230 P." P * B(X) : RETURN 

250 F » FN A( ABS (P)) - 31:B 
* P/ B(F): IF B« 0 THN B = B 
* BF 31 - F 

260 FOR A = 1 TO 4:G(A) = FN 
A(B):B.* B - B(G(A)): NEXT : RE 
TURN 


Essas sáo duas das mais importantes 
rotinas do programa. A rotina da linha 
2104 linha 230 avalia a posigáo emjo- 
go e a transforma em um número. De 
modo inverso, quando o computador ti- 
ver escolhido a melhor jogada, tem que 
converter um número em um movimen- 
to: As linhas 250 a 260 transformam o 
valor numérico em um conjunto de va- 

















As rotinas deste artigo permitem ao 


computador não só jogar pela WE 
raposa e pelos gansos como também 
estudar os próximos movimentos a 


para melhorar o nível da partida. 





lores necessários para posicionar as pe- » 
ças. Essas sub-rotinas são chamadas ` 
com muita fregiiência e, por isso, foram Y 
colocadas logo no início do programa. + 


A 
= Y 






boc 
1010 GOSUB 210 
1020 GOSUB 310: GOSUB 250 y 
1030 IF F>28 THEN PRINT АТ 21, 
0;"A RAPOSA VENCEU 
": 6070 1410 ы 


1032 GOSUB 410: IF V=H THEN PR: 





INT "OS GANSOS VENCERAM 
=: GOTO 1410 
1040 IF PF THEN GOTO 1110 
1050 INPUT "MOVER RAPOSA PARA” |, 
;B: IF Be-1 THEN GOSUB 2710: G — 7 
ото 1030 h 
1055 GOSUB 4000 f 
1060 FOR A-1 TO X(F): LET X-M(A 
E): IF X=B THEN IF NOT (EN X( 
X)) THEN LET F=B: GOSUB 210: G 
ото 1200 
1070 МЕХТ А: 
O NAO E LEGAL 
сото 1050 > 
1110 LET L-SF: LET M-SF: LET V( i 
M)-E*M: IF Mo4 THEN DIM R(HF43 А 
): DIM S(HF*3) y 
1112 GOSUB 1120: GOTO 1200 


yA 


PRINT AT 21,0;"ISS 












1120 IF L=1 THEN GOTO 410 
1122 IF L€M-2 THEN GOSUB 1610: 
IF V<>0 THEN RETURN 

1130/LET L=L-1: LET V(L)*H*L:.L 
ET A(L)=X(F): LET F(L)«F 

1140 LET F-M(A(L),F(L)) 

1150 iF FN-X(F)*0 THEN -GOSUB 1 
320: 
: LETSP. ID) ^F. 
DET ESPAL) : 
1160 LET A(L)*A(L)-1: 
THEN GOTO 1140 
1170 LET V-V(L): LET F*F(L): LE 
T L*L*l:- IF L=M THEN LET F-P(M 


IF V»U(L*1) THEN 
LET U=L+1: RETURN 
IF A(L)20 


-1): GOSUB 210: RETURN 

1172 IF L<M-2 THEN GOSUB 1510: 
RETURN 

1180 RETURN 








1010 SCREEN 1,0:GOSUB 210:GOTO 


1020 XX-FNXX (G) : YY-FNYY (G) : PUT ( 
XX,YY) - (XX*19, YY*19) , SQ, PSET: XX 
*FNXX (G(C) ) : YY-FNYY (G(C) ) *5: PUT 
(XX, YY) - (XX*19, YY49) , GS, PSET 
1030 CLS:IF F>27 THEN PLAY VS:P 
RINT 87,"А RAPOSA VENCEU” :GOTO 
1410 

1032 GOSUB 410:1F V-H THEN PLAY 
V$:PRINT €6,”08 GANSOS VENCERA 
M”:GOTO 1410 

1040 LINE(180,0)- (255,191) ,PRES 
ET,BF:IF PF THEN DRAW"BM180,50C 
4"*TH$:GOTO 1110 


IF V>V(L) THEN LET V(L)=0" 

















COMO JOGAR NOS NÍVEIS ІШ COMO JOGAR NOS NÍVEIS 
MAIS BAIXOS MAIS ALTOS 

A ROTINA DE MOVIMENTAÇÃO W Q ALGORITMO:ALFA-BETA, 
DA RAPOSA Ш TABELAS DE POSIÇÕES 





п COMO MOVER 0S-GANSOS 























1050- DRAW"BM180,80C4"--MU$ : XX*FN 
XX(F):YY9FNYY(F):GOSUB 1810:В-4 
*INT(YY/20):B*FNCN (B) 

1055 IF B=-1 THEN PLAY V$:PRINT 
$21 "OS GANSOS VENCERAM":GOTO 14 


1060 FOR A=0 TO X(F):X=M(A,F):1 
F X€B AND NOT FNX(X) THEN A*X(F 
) :XX* FNXX (F) : YYSFNYY (F) : PUT (XX, 
YY) - (XX*19, YY*19)., SQ, PSET:F*B:G 
OSUB 210:NEXT:GOTO 1200 

1070 NEXT:GOSUB 5000:GOTO 1040 
1110 L-SF:M*SP:V(M)*E*M:IF M»4 
THEN FOR A=0 TO HF:R(A)=0:NEXT 
1112 LF*F;GOSUB 1120:XX*FNXX(LF 
) : YYeFNYY (LF) : PUT (XX, YY) - (XX419. 
,YY*19),8Q,PSET:GOTO 1200 

1120. IF L-1 THEN 410 

1122 IF L<M-2 GOSUB 1610:1F У<> 
0 THEN RETURN 

1130 L*L-1:V(L) -H*L:A(L) *X CF) : £- 
(L) 
1140 F=M(A(L),F(L)) 

1150 IF FNX(F)=0-GOSUB 1320:1F 
V»V(L) THEN V(L)*V:P(L)*F:IF V5 
V(L*1) THEN F-F(L):L*L*1:RETURN 
1160 A(L)=A(L)-1:1F A(L)>=0 THE 
N 1140 

1170 U=V(L) :F=F(L) :L=L+1:1F L=M 
THEN F=P(M-1) :GOSUB.210: RETURN 
1172 IF LXM-2 GOSUB 1510 

1180 RETURN 


PN 


1010 GOSUB 210:GOTO 1030 
1020 GS(FNZZ (G) ,1) =G (C) :XX=FNXX 
(G(C)):YY=FNYY(G(C)):PUT SPRITE 
GS(FNZZ(G(C)),0), (RKX,YY),15 








PARAUMJOGO MAIS: RÁPIDO 


1030 IF F>27 THEN PLAYUS*+PORK*1 
TO500:NEXT;SCREENO: PRINT"A RAPO 
SA VENCEU!^:GOTO 1410 

1032 GOSUB' 410:IF U-H THEN PLAY 


MS tFORK*1TO5OQzNEXT: SCREENOSPRI. 
NT"OS GANSOS VENCERAM!” *GOTO 14 
10 

1040..LINE(168,0) -(255,29T) , 11,8 
F:IF PF THEN PRESET (188,50):PR 
INT&1,"Pensando";GOTO 11J0 

1080 PRESET-(188,80) : PRTNTE1,"P 
ага ?":XX*FNXX(F) : YY=FNYY (F) :GO 
SUB 1810: B*4*INT ((Y72) 720) : B*F. 
мсм 87 

1055 IF B=-1 THEN, PLAYVS; FORK=1 
T0500 :NEXT*SOREENO : PRINT^0B- GAN 
808 VENCERAM!":GOTO 1410 

1060 FOR-A*0 TO X4F)TX-M(A,F):I 
F X*B AND NOT FNX(X) HEN A-X(F 
):E*B:GOSUB 210:NEXT:GOTO 1200. 
1070 NEXT:GOSUB 5000:GOTQO 1040 
1110 L=SF:M=SF:V(M)=EXM:IF M>4 
THEN FOR.A*0 TO HF:R(A)*O:NEXT 
1112-LF-P:GOSUB 1120:GÓTO 1200 
1120 IF L=1 THEN,410 

1122 IF L<M-2 THEN GOSUB 161051 
F V<>0 THEN RETURN 

1130 LeL-1:V (L) =HALAGLISX (F) :E 
(L)=F 

1140 F=M(A(L) E (L)) 

1150-ІҒ ЕМХ(Р)-0 ТНЕМ СОБИВ 132 
OrIF V»V(L) THEN U(L)-U:P(L)*F: 
IF V>V(L+1). THEN F=F/(D)IU=L+1:R 
ETURN 

1160 A(L)=A(L)-1:IF A(L)>=0 THE, 
N 1140 

1170 U=V(L) :F=F(L) :L=L+1:1F L=M 
THEN F=P (M-1) :GOSUB2104RBETURN 
1172 1F L<M-2 THEN GOSUB. 1510 
1180 RETURN 

































4 (2) 


1010 GOSUB 210: GOTO 1030 
1020 XX = FN XX(G):YY = FN YY 
(G): HCOLOR= 0: DRAW GS AT XX + 
7.%Y + 5: HCOLOR= 3:XX = FN X 
X(G(C)):YY = FN YY(G(C)): DRAW 
08 АТ ХХ + 7,ҮҮ + 5 

1030 HOME : IF F > 27 THEN PR 
INT V$: HOME : VTAB 22: PRINT " 
A RAPOSA GANHOU!": GOTO 1410 
1032 GOSUB 410: IF V = H THEN 
PRINT V$: HOME : VTAB 22: PRIN 











T "OS GANSOS GANHARAM!": GOTO 1 
410 
1040 HOME : УТАВ 22: IF PF THE 
N PRINT "PENSANDO..." GOTO 1 
110 


1050 PRINT "MOVE PARA ONDE? "; 
:XX = FN XX(F):YY = FN YY(F): 
GOSUB 1810:B = 4 * INT (YY / 
20):B = FN CN(B) 

1055 IF B = - 1 THEN PRINT V 
$: HOME : VTAB 22: PRINT "OS GA 
NSOS VENCERAM!": GOTO 1410 

1060 FOR A = 0 TO X(F):X = M(A 
,.F): IF X = B AND NOT FN X(X) 
THEN A = X(F):XX = FN XX(F):Y 
Y = EN YY(F); HCOLOR= 0: DRAW 
FX AT XX + 2,YY + 8:F = B: HCOL 


OR= 3: GOSUB 210: NEXT : GOTO 1 
200 
1070 NEXT : GOSUB 5000: GOTO 1 
040 
1110 L = SF:M = SF:V(M) = E * M 


: IF M > 4 THEN FOR À = 0 TO H 
F:R(A) = 0: NEXT 

1112 LF = F: GOSUB 1120:XX = F 
N XX(LF):YY = FN YY(LF): HCOLO 
R= 0: DRAW FX AT XX + 2,YY + 8: 
HCOLOR= 3: GOTO 1200 

1120 IF L = 1 THEN 410 

1122 IF L <M- 2 THEN GOSUB 
1610: IF V < > 0 THEN RETURN 


1130 L = L - 1:9(L) = H * L:A(L 
) = X(F):F(L) = F 

1140 F = M(A(L),F(L)) 

1150 IF FN X(F) * 0 THEN GOS 
UB 1320: IF V > V(L) THEN V(L) 
= V:P(L) = F: IF V > U(L+1) T 








HEN F * F(L):L * L * 1: RETURN 
1160 A(L) * A(L) - 1: IF A(L) > 
= 0 THEN 1140 

1170 V = V(L):F = F(L):L = L + 
1: IF L * M THEN F * P(M - 1): 
GOSUB 210: RETURN 

1172 IF L < M - 2 THEN GOSUB 
1510 


1180 RETURN 


As linhas 1020 a 1180 manipulam os 
movimentos da raposa. A sub-rotina 
que desenha o tabuleiro é usada para 
mostrar o posicionamento atual das pe- 
cas. Em seguida, verifica-se na linha 
1030 se a raposa ganhou. Feito isso, a 
rotina comprova na linha 1032 se há pe- 
lo menos um movimento legal para a ra- 
posa (caso contrário a vitória caberá aos 
gansos). 

Se o jogador estiver controlando a ra- 
posa, as linhas 1050 a 1070 receberáo a 
jogada e verificarào sua validade. Se, ao 
contrário, quem estiver controlando a 
raposa for o computador, as linhas 1110 
a 1112 decidiráo pelo movimento. O nú- 
mero de lances que está sendo analisa- 
do, M, eo lance que é analisado no mo- 
mento, L, sáo definidos na linha 1110. 
As linhas 1120 a 1180 avaliam qual a 
melhor jogada. 

Quatro matrizes sáo usadas nessa ro- 
tina: A contém o número de movimen- 
tos a serem analisados; V, o melhor re- 
sultado até o momento; P, a jogada que 
provoca tal resultado, e F indica a posi- 
ção prévia da raposa. 





500 LET V=0: FOR C-1 TO 4: LET 
G-G(C): FOR A-1 TO Z(G): LET X 
=M(A,G): IF X<>F THEN IF NOT 

FN X(X) THEN RETURN 


502 NEXT A: NEXT C: LET V=1: 
RETURN 
1200 GOSUB 310: GOSUB 250 
1202 IF F>28 THEN PRINT AT 21, 
0;"A RAPOSA VENCEU 
": GOTO 1410 
GOSUB 500: IF U THEN PRIN 
21,0;"A RAPOSA VENCEU 

": GOTO 1410 
IF PG THEN GOTO 1310 
1220 INPUT "QUE GANSO QUER MOVE 
R ?";G: IF G=-1 THEN GOSUB 271 
0: GOTO 1202 
1225 GOSUB 4000 
1230 LET C=FN Z(G): IF C=0 THEN 
PRINT AT 21,0;"NAO HA GANSO E 


1204 
TAT 


1210 


M ";G;"": GOTO 1220 
1240 INPUT "PARA ONDE ";I: IF I 
=-1 THEN GOSUB 2710: GOTO 1202 


1250 IF FN X(1) THEN PRINT AT 
21,0;"AI JA TEM UM GANSO ! 

*: GOTO 1220 
1260 IF I=F THEN PRINT AT 21,0 
JA TEM UMA RAPOSA 


¡"AI 




































": GOTO 1220 
1270 FOR A=1 TO Z(G): IF M(A,G) 
*I THEN LET G(C)*1: GOTO 1010 
1280 NEXT A: PRINT AT 21,0;"I1S8 
O E ILEGAL R 
GOTO 1220 
1310 LET L=8G: LET M=SG: LET V( 
M)=H*M: IF M>4 THEN DIM R(HF+3 
): DIM S(HF+3) 
1312 GOSUB 1320: GOTO 1020 
1320 IF L-1 THEN GOTO 510 
1322 IF L<M-2 THEN GOSUB 1610: 


IF VX»0 THEN RETURN 
1324 LET L-L-1: LET V(L)=E*L: L 
ET C=1 


1330 LET C(L)=C: LET F(L)=G(C): 
LET A(L)=1: 1F A(L)>Z(G(C)) TH 
EN GOTO 1362 

1340 LET B=M(A(L),F(L)): LET X= 
FN X(B): LET G(C)=B: TF X OR B= 
F THEN GOTO 1360 
1350 GOSUB 1120: LET 
U<V(L) THEN LET У(1) = 
(L)=G(C)+C*32 

1355 IF VXV(L) THEN LET G(C)=F 


C-C(L): IF 
s LET P 





= 





i= 


(L): LET LeL*1: RETURN 

1360 LET A(L)=A(L)+1: IF A(L)<= 
Z(F(L)) THEN GOTO 1340 

1362 LET G(C)=F(L): LET C=C+l: 
IF C<5 THEN GOTO 1330 

1370 LET V=VW(L): LET L=+L+1: IF 
L=M THEN LET C=INT (P(L-1)/32) 
: LET G(C)*P(L-1)-C*32: GOSUB 2 
10: RETURN 

1372 IF L<M-2 THEN GOSUB 1510: 
RETURN 

1380 RETURN 





500 V=-1:FOR C=1 TO 4:G=G(C):IF 
Z(G)X0 THEN NEXT: RETURN 

502 FOR A=0 TO Z(G):X=M(A,G):V= 
Y AND(FNX(X) OR X=F):NEXT A,C:R 
ETURN 

1200 GOSUB 250:XX=FNXX(F) :YY=FN 
YY (F) *5: PUT (XX, YY) - (XX*19, YY*8) 
,FX,PSET 





1202 IF F>27 THEN PLAY VS:PRINT 
€6,"A RAPOSA VENCEU” :GOTO 1410 
1204 GOSUB 500:IF V THEN PLAY V 
$:PRINT "A RAPOSA VENCEU":GOTO 
1410 

1210 LINE(180,0)-(255,191),PRES 
ET,BF:IF PG THEN DRAW"BM180,50C 
4"*TH$:GOTO 1310 

1220 XX=FNXX (G(1)) :YY=FNYY (G(1) 
) :DRAW"BM180,80C2"+WG$:GOSUB 18 
10 

1225 G=4*INT (YY/20) :G=FNCN (G) 
1230 C=FNZ(G):IF C=0 GOSUB 5000 
:GOTO 1210 

1240 DRAW"BM180,110C3"*MW$:GOSU 
B 1810:1-4*INT (YY/20) : IeFNCN (I) 
1245 IF I=1 THEN PLAY VS:PRINT 
$7,"A RAPOSA VENCEU” :GOTO 1410 
1250 IF FNX(I) GOSUB 5000:GOTO 
1210 

1260 IF I-F GOSUB 5000:GOTO 121 
0 

1270 FOR A=-1 TO Z(G):IF A»-0 T 
HEN IF M(A,G)=I THEN XX=ENXX(G( 
C)) : YY=FNYY (G(C)) : PUT (XX, YY) - (X 


X+19,YY+19) ,SQ,PSET:G(C)=I:XX=F' 
NXX (I) : YY-FNYY (I) : PUT (XX, YY*5) - 
(XX*19,YY*14) , GS, PSET:A7Z(G) :NE 
XT:GOTO 1010 

1280 NEXT:GOSUB 5000:GOTO 1210 
1310 L=SG:M=SG:V (M)=H*M:IF M>4 
THEN FOR A=0 TO HF:R(A)=0:NEXT 
1312 GOSUB 1320:GOTO 1020 

1320 IF L=1 THEN 510 

1322 IF L<M-2 GOSUB 1610:IF U<> 
O THEN RETURN 

1324 L=L-1:V(L)=E*L:C=1 

1330 C(L)*C:F(L) *G(C) :A(L) *0: IF 
A(L)>Z(G(C)) THEN 1362 

1340 B*M(A(L),F(L)) :X*FNX(B) :G* 
G(C):G(C)=B:IF X OR B=F GOTO 13 
60 


1350 GOSUB 1120:C=C(L):IF V<V(L 
) THEN V(L)*U:P(L)*G(C) *C*32:IF 
V<V(L+1) THEN G=G (C) :G (C) =F (L) 
:LeL*l:RETURN 

1360 A(L)=A(L)+1:1F A(L)<=Z(F(L 
)) THEN 1340 

1362 0=0(C):G(C)=F(L):C=C+1:1F 
C<5 THEN 1330 

1370 V-V(L):LeL*l:IF L«M THEN C 
*INT(P (L-1) /32) :G*G (C) :G(C) *P(L 
-1) AND 31:GOSUB 210:RETURN 
1372 IF L<M-2 GOSUB 1510 

1380 RETURN 


nu 


500 V=-1:FOR C=1 TO 4:G=G(C):1F 
Z(G)<0 THEN NEXT:RETURN 

502 FOR A=0 TO Z(G):X=M(A,G):V= 
Y AND (FNX(X) OR X=F):NEXT:NEXT 
7 RETURN 

1200 GOSUB 250:XX=FNXX(F):YY=FN 
YY(F):PUT SPRITE FX, (XX, YY) ,6 
1202 IF F>27 THEN PLAYVS:FORK=1 
ICREENO : PRINT"A RAPO 
GOTO 1410 








SA VENCEU 





1204 GOSUB 500:IF Y THEN PLAYVS 
:FORK-1T0500:NEXT: SCREENO : PRINT 
"A RAPOSA VENCEU!”:GOTO 1410 
1210 LINE (188,0)-(255,191),11, 
BF:IF PG THEN PRESET (188,50):P 
RINT41,"Pensando” :GOTO 1310 


1220 XX=FNXX(G(1)):YY=FNYY(G(1) 
):PRESET (188,80) :PRINT41,”Qual 
?":GOSUB 1810 

1225 G=4*INT((YY-2)/20) :G=FNCN( 

в) 

1230 С=ЕМ2(б):1Р С=0 THEN GOSUB 
5000:бОТО 1210 

1240 LINE (188,0)-(255,191),11, 

BF:PRESET (188,80):PRINT41, г 

a ?":GOSUB 1810:I-4*INT((YY-2)/ 

20) : I-FNCN(I) 

1245 IF 1=1 THEN PLAYVS:FORK=1T 

0500:NEXT:SCREENO:PRINT"A RAPOS 

A VENCEU!”:GOTO 1410 

1250 IF FNX(I) THEN GOSUB 5000: 

сото 1210 

1260 IF I=F THEN GOSUB 5000:GOT 

0 1210 

1265 GS(FN22(G),1)*I 

1270 FOR A--1 TO Z(G):IF A»-0 T 
HEN IF M(A,G)*I THEN XX=FNXX (1) 
:YY=FNYY (1) :PUT SPRITE GS(FNZZ( 
I),0) , (XX, YY) ,15:A*Z(G) :G(C) *I: 

NEXT:GOTO 1010 

1280 NEXT:GOSUB 5000:GOTO 1210 
1310 L=SG:M=SG:V (M)=H*M:IF M>4 

THEN FOR A=0 TO HF:R(A)=0:NEXT 
1312 GOSUB 1320:G0TO 1020 

1320 IF L=1 THEN 510 

1322 IF L<M-2 THEN GOSUB 1610:1 
F U<>0 THEN RETURN 

1324 L=L-1:V(L)=E*L:C=1 

1330 C(L)=C:F(L)=G(C):A(L)=0:IF 
A(L)>Z(G(C)) THEN 1362 

1340 B=M(A(L),F(L)):X=FNX(B) :G= 
G(C):G(C)=B:IF X OR B=F THEN 13 
60 

1350 GOSUB 1120:C=C(L):IF V<V(L 
) THEN V(L)=V:P(L)=G(C)+C*32:1F 
V<V(L+1) THEN G=G(C):G(C)=F(L) 
:L=L+1: RETURN 

1360 A(L)=A(L)+1:IF A(L)<=Z(F(L 
)) THEN 1340 

1362 G=G (C) :G(C) =F (L) :C=C+1:IF 
С<5 ТНЕМ 1330 

1370 V=V(L):L=L+1:1F L=M THEN C 
=INT(P(L-1)/32) :G6=G(C) :G(C)=P(L 
-1)AND31:GOSUB 210:RETURN 

1372 IF L<M-2 THEN GOSUB 1510 
1380 RETURN 

































(41%)! 


500 V = 1: FOR C = 1 TO 4:G = G 
(C): IF G(C) < 0 THEN NEXT : R 
ETURN 

502 FOR A * 0 TO Z(G):X * M(A, 
G):V = V AND ( FN X(X) OR X * F 
): NEXT : NEXT : RETURN 


1200 GOSUB 250:XX - FN XX(F): 

ҮҮ = ЕМ YY(F): DRAW FX AT XX * 
2,YY * B 

1202 ІР Е > 27 THEN PRINT VS: 
HOME : VTAB 22: PRINT "A RAPOS 

A VENCEU!”: GOTO 1410 

1204 GOSUB 500: IF V THEN PRI 

NT V$: HOME : VTAB 22: PRINT "A 
RAPOSA VENCEU!": GOTO 1410 

1210 HOME : VTAB 22: IF PG THE 

N PRINT "PENSANDO...";: GOTO l 

310 

1220 XX = FN XX(G(1)):YY * FN 
YY(G(1)): PRINT "MOVE QUAL GAN 

80?": GOSUB 1810 

1225 G = 4 * INT (YY / 20):G = 
FN CN(G) 

1230 C = FN Z(G): IF C = 0 THE 

N GOSUB 5000: GOTO 1210 

1240 HOME : VTAB 22: PRINT "MO 

VE PARA ONDE? ": GOSUB 1810:I = 
4 * ІМТ (ҮҮ / 20):1 = FN CN( 

I) 

1245 IF I = 1 THEN PRINT VS: 

HOME : VTAB 22: PRINT "A RAPOSA 
VENCEU!”: GOTO 1410 

1250 


IF FN X(I) THEN GOSUB 5 































000: GOTO 1210 
1270 FOR A = - 1 TO Z(G): IF 
А> = 0 THEN IF M(A,G) * I TH 
EN XX = FN XX(G(C)) :YY = FN Y 
Y(G(C)): HCOLOR= 0: DRAW GS AT 
XX * 7,YY * 5:G(C) = I:XX -= EN 
XX(1):YY 9 FN YY(T): HCOLOR= 
3: DRAW GS AT XX + 7,YY + S:A = 
Z(G): NEXT : GOTO 1010 

1280 NEXT : GOSUB 5000: GOTO 1 
210 

1310 L = SG:M = SG:V(M) = H * M 
: IF M» 4 THEN FOR A * 0 TO H 
F:R(A) = O: NEXT 

1312 GOSUB 1320: GOTO 1020 
1320 IF L * l THEN 510 

1322 IF L < M - 2 THEN GOSUB 
1610: IF V « » 0 THEN RETURN 


1324 L = L - 1:V(L) = E * L:C = 
1 


1330 C(L) = C:F(L) = G(C):A(L) 
> 0: IF A(L) > Z(G(C)) THEN 136 


2 

1340 B = M(A(L),F(L)):X = FN X 

(B):G = G(C):G(C) = B: IF X OR 

B = F THEN 1360 

1350 GOSUB 1120:C = C(L): IF V 
< V(L) THEN V(L) * V:P(L) * G( 

C) * C * 32: IF V X V(L * 1) TH 

EN G = G(C):G(C) = F(L):L = L + 
1: RETURN 

1360 A(L) = A(L) + 1: IF A(L) < 
= Z(F(L)) THEN 1340 

1362 С = G(C):G(C) = F(L):C = € 
+ 1: IF C € 5 THEN 1330 

1370 У * V(L):L * L * 1: IFL = 
M THEN C * INT (P(L - 1) / 32 

):G = G(C):MD = 32:G(C) = FN M 


D(P(L - 1)): GOSUB 210: RETURN 
1372 IFL <M - 2 THEN GOSUB 
1510 


1380 RETURN 


A rotina que vai da linha 1200 à li- 
nha 1380 é responsável pela manipula- 
ção dos gansos. Uma parte dela — li- 
nhas 1220 a 1290 — é utilizada quando 
o jogador controla os gansos. Quando 
esse controle ao microcomputador, 
as linhas 1320 a 1380 encarregam-se da 
manipulação. 








410 LET V=H: FOR A=X(F) TO 1 
STEP -l: LET X=M(A,F): IF FN X 
(X) THEN NEXT A: LET L*1: 
RETURN 

420 LET B=F: LET F=X: GOSUB 
210: LET V=P: LET F=B: LET L=1 
: RETURN 


510 LET V=E: FOR C=1 TO 4: LET 
G=G(C): IF -B(G)>V THEN GOTO 
530 

520 FOR A=1 TO Z(G): LET X=M(À 
+6): IF FN X(X) OR (X=F) THEN 
NEXT A: GOTO 530 

528 LET V=B(X)-B(G): LET D=C: 
LET B=X 


530 NEXT C: LET G=G(D): LET G( 
D)*B: GOSUB 210: LET V=P: LET 
G(D)*G: RETURN 





410 V=H:FOR A=X(F)TO 0 STEP -1: 
X=M(A,F) :IF FNX(X)<0 THEN NEXT; 
L=1:RETURN 

420 B=F:F=X:GOSUB 210:V=P:F=B:L 
-1:À7 XT: RETURN 

510 V=E:FOR C=1 TO 4:G=G(C):1F 
-B(G)>V THEN 530 

520 FOR A-0 TO Z(G):X*M(A,G) : IF 
FNX(X) OR X=F THEN NEXT:GOTO 5 
30 

528 V=B(X)-B(G) :D=C:B=X 

530 NEXT:G-G(D) :G(D) *B:GOSUB 21 
0:V=P:G(D)=G:IF SG=1 THEN G(D)= 
B:C=D 

540 RETURN 


na 


410 V-H:FOR A-X(F) TO 0 STEP-1:. 
X-M(A,F):IF FNX(X)<0 THEN NEXT: 
L=1:RETURN 

420 B-F:F-X:GOSUB 210:V=P 
=1:A=0:NEXT:RETURN 









:F=B:L 


520 FOR A-0 TO Z(G):X-M(A,G) : IF 


FNX(X) OR X=F THEN NEXT:GOTO 5 
30 

528 V=B(X)-B(G) :D=C:B=X 

530 NEXT:G=G(D) :G(D)=B:GOSUB 21 
0:V=P:G(D)=G:IF SG=1 THEN G(D)= 





540 RETURN 


(411%) 


410 у = Н: FOR A = X(F) TO 0 ST 
EP - 1:X = M(A,F): IF FN X(X) 
< 0 THEN NEXT :L = 1: RETURN 


V são determinadas da forma já descri- 
ta. Nos dois casos, a instrução GOSUB 
210 escolhe o melhor movimento entre 
os que são avaliados. 





A TABEL 


1510 GOSUB 210: LET C-P 
1520 LET C=C-INT ((C/HF+C)-C)*H 
Е: IF C<0 OR C>=HF THEN GOTO 1 








420 B = F:F = X: GOSUB 21 = 
P:F * B:L * 1:A * 0: NEXT : RET 
URN 


510 V = E: FOR C = 1 TO 4:G = G 
(С): ІР - B(G) > V THEN 530 
520 FOR A = 0 TO Z(G):X = M(A, 
G): IF FN X(X) OR X = F THEN 
NEXT : GOTO 530 

528 V = B(X) - B(G):D = C:B = X 


530 NEXT :G = G(D):G(D) = B: G 
OSUB 210:У - (D) = IF SG 
= 1 THEN G(D) С” 
540 RETURN 


Essas sub-rotinas sào usadas apenas 
quando o computador está nos meno- 
res níveis de dificuldade e analisam ape- 
nas o próximo movimento. 

As linhas 410 e 420 analisam todos 
os movimentos possíveis para a raposa, 
usando o mapa da matriz M, montada 
a partir da linha 2110. A sub-rotina de- 
volve um valor P (configuração após a 
melhor jogada) e um valor V (avaliação 
do melhor resultado). 

As linhas 510 e 530 funcionam de ma- 
neira similar às anteriores, só que se en- 
carregam dos gansos. As matrizes P e 








520 

1550 FOR A=Ç+1 TO C+4: IF R(A)< 
>0 AND R(A)<>P THEN NEXT A: RE 
TURN 

1560 LET R(A)=P: LET S(A)=V: RE 
TURN 

1610 GOSUB 210: LET C=P 

1620 LET C=C-INT ((C/HF+C)-C)*H 
F: IF C<0 OR C>=HF THEN GOTO 1 
620 

1650 FOR A=C+1 TO C+4: IF R(A)< 
>0 AND R(A)<>P THEN NEXT A: LE 
T V=0: RETURN 

1660 LET V=S(A)*(R(A)=P): RETUR 
N 





1510 GOSUB 210:C=P 

1520 C=C-INT((C/HF+C)-C)*HF:IF 
С<0 OR C>=HF THEN 1520 

1550 FOR A=C TO C+C:IF R(A)<>0 
AND R(A)<>P THEN NEXT: RETURN 
1560 R(A)=P:S(A)=V:A=C+C:NEXT:R 
ETURN 

1610 GOSUB 210:C=P 

1620 C-C-INT((C/HF*C) -C) *HF:IF 
CX0 OR C>=HF THEN 1620 

1650 FOR A=C TO C+C:IF R(A)<>0 
AND R(A)<>P THEN NEXT:V=0:RETUR 
N 


1660 U=-S(A)*(R(A)=P) :A=C+C:NEX 
T:RETURN 

1810 SCREEN 1,0:PUT(XX,YY)-(XX* 
19,YY*19),8Q,NOT:FOR Z-1 TO 100 
:NEXT 

1820 PUT(XX,YY) -(XX*19, YY*19),S 
Q,NOT 

1830 KS=INKEYS:IF K$=""" AND YY 
>8 AND XX>8 THEN YY=YY-20:XX=XX 
-20:60Т0 1810 

1840 IF K$=CHR$(10) AND YY<129 
AND XX<129 THEN YY=YY+20:XX=XX+ 
20:GOTO 1810 

1850 IF KS=CHRS(8) AND XX>28 TH 
EN XX=XX-40:GOTO 1810 

1860 IF KS=CHRS(9) AND XX<128 T 
HEN XX-XX*40:GOTO 1810 

1870 IF K$*CHR$(13) THEN RETURN 
1875 IF K$="Q” THEN YY=0:XX=-12 
: RETURN 

1880 GOTO 1810 


nu 


“1510 GOSUB 210:C=P 

1520 C-C-INT((C/HF*C) -C) *HF:IF 
С<0 OR C>=HF THEN 1520 

1550 FOR A=C TO C+C:IF R(A)<>0 
AND R(A)<>P THEN NEXT:RETURN 
1560 R(A)=P:S(A)=V:A=C+C:NEXT:R 
ETURN 

1610 GOSUB 210:C=P 

1620 C=C-INT((C/HF+C)-C)*HF:IF 
С<0 OR C>=HF THEN 1620 

1650 FOR A=C TO C+C:TF R(A)<>0 








AND R(A)<>P. THEN NEXT :V=0:RETUR' 
N 


1660 V=-S(AJ*(R(A)=P) :A=C+C:NEX 
T:RETURN 

1810 LINE (XX,YY-2)-(XX+19,YY+1 
7),14,BF:FOR Z-1 TO 100:NEXT 
1820 LINE (XX,YY-2) - (XX*19, YY*1 
7),3,BF:FOR 2-1 TO 200:NEXT 
1830 KS=INKEYS:IF K$=CHHS(30) A 
ND YY>18 AND XX>18 THEN YY=YY-2 
0: XX=XX-20:GOTO 1810 

1840 IF K$-CHR$(31) AND YY<141 
AND XX<141 THEN YY=YY+20:XX=XX+ 
20:GOTO 1810 

1850 IF K$-CHR$(29) AND XX»38 T 
HEN XX-XX-40:GOTO 1810 

1860 IF KS*CHR$(28) AND XX<138 
THEN XX=XX+40:GOTO 1810 

1870 IF K$=CHR$(13) THEN RETURN 
1880 GOTO 1810 


(«3 


1510 GOSUB 210:C = P 
1520 C = C - INT ((C / HF + C) 
= C) * HF: IFCCOORC> = 
HF THEN 1520 

1550 "FORA = C TOC * C: IF R( 
À) < > O AND R(A) < > P THEN 
NEXT : RETURN 
1560 R(A) = P:S(A) 
C: NEXT : RETURN 
1610 GOSUB 210:C = P 
1620C * C- INT ((C / HF * C) 
С) * НЕ: IFC«00RC» = 
HF THEN 1620 

1650 FOR À = C TO C + C: IF R( 


"UA" C 


A) < > 0 AND R(A) < > P THEN 
NEXT :V = 0: RETURN 

1660 UV = S(A) * (R(A) = PJ:A = 
C * C: NEXT : RETURN 

1810 X0 - XX:YO - ҮҮ 

1820 HCOLOR= 0: GOSUB 1890: HC 
OLOR= 3:X0 = XX:Y0 = YY: GOSUB 
1890 

1830 GET K$: IF K$ - "A" AND Y 
Y > Yl * 5 AND XX » X1 * 5 THEN 
YY = YY - 20:XX = XX - 20: GOT 
o 1820 

1840 IP K = "2" AND YY < Y2 - 
38 AND XX < X2 - 38 THEN YY = 
YY + 20:XX = XX + 20: GOTO 1820 


1850 IF K$ = CHR$ (8) AND ХХ 
> X1 + 21 THEN XX = ХХ - 40: GO 
TO 1820 

1860 IF K$ = CHR$ (21) AND XX 
< X2 - 45 THEN ХХ = XX * 40: G 
ото 1820 

1870 IF K$ = CHRS (13) THEN 
HCOLOR= 0: GOSUB 1890: RETURN 


1880 GOTO 1820 

1890 HPLOT XO + 1,Y0 + 1 TO Х0 
+ 19,Y0 + 1 TO XO + 19,Y0 + 18 
TO X0 * 1,Y0 + 18 TO XO * 1,Y0 
* 1: RETURN 


Nos niveis de maior dificuldade será 
necessário usar o algoritmo alfa-beta — 
veja o primeiro artigo da série (página 
872). Na verdade, ele já foi digitado co- 
mo parte das rotinas de movimentagáo 
da raposa e dos gansos. 

Antes de utilizá-lo, porém, o progra- 
ma verifica se ele é necessário no mo- 
mento — será o nível de dificuldade su- 
ficientemente alto para justificar o seu 
emprego? 

A rotina das linhas 1110 a 1150 cui- 
da da raposa, enquanto a rotina das li- 































































nhas 1310 a 1350 dedica-se ao quarteto 
de gansos. 

O algoritmo é aplicado quando se 
executa o ültimo teste IF, no fim das li- 
nhas 1150 e 1350, depois de V(M) ter si- 
do adequadamente definida, de acordo 
com o nível de dificuldade. 

O algoritmo alfa-beta é mais eficien- 
te quando o computador discrimina 
quais sào os melhores movimentos rea- 
lizados inicialmente — para os gansos, 
о quadrado de nümero mais alto de ca- 
da fileira de quatro; para a raposa, o 
quadrado aberto a ela mais próximo do 
lado dos gansos. 

O algoritmo alfa-beta é usado em 
conjunto com uma tabela construída em 
função de movimentos que já foram 
considerados. Assim, o computador po- 
de se decidir mais rapidamente, quan- 
do se trata de uma jogada já estudada. 
Quanto maior for o tamanho da tabela 
que é possível montar no computador, 
mais rápido será o processamento. 

Inicializada nas linhas 2500, 2750 e 
2800, a tabela tem seu tamanho ideal de- 
finido por meio de valores teóricos. Ela 
foi dimensionada, no entanto, no limi- 
te da memória RAM disponível em ca- 
da microcomputador. 

A tabela é zerada nas linhas 1110 e 
1310; o conteúdo é verificado nas linhas 
1122 e 1322 e definido nas linhas 1172 
e 1372. 

O TRS-Color e o MSX usam um cur- 
sor para indicar as jogadas a serem exe- 
cutadas com as setas. O cursor do Ap- 
ple é movido para a esquerda e para a 
direita com as setas, e para cima e para 
baixo com as letras A e Z. 


A ARANHA 


MARGANA (1) 





Uma enorme e assustadora aranha está 
pronta a atacar Freddy. Sem uma boa 
dose de precisão e sangue-frio, ele 

não escapará. Mas não se assuste: tudo 
não passa de um terrível pesadelo. 


O jogo А Aranha Marciana será mon- 
tado em dois artigos. Neste, os desenhos 
são definidos e o programa inicializado. 
No próximo, o jogo passa a funcionar, 
com a adição das últimas rotinas. 


O ponto inicial para a montagem de 
um jogo é a criação de algum tipo de en- 
redo, ou mesmo de um personagem em 
torno do qual a ação se desenvolva. 

Neste jogo, nosso personagem é 
Freddy, um limpador de janelas que tem 
um medo doentio de aranhas. Ele pro- 
curou vários especialistas que tentaram, 
em vão, curá-lo da fobia. O problema 
chegou a uma tal gravidade que Freddy 
passou a ter sempre o mesmo pesadelo. 
Nele aparecem uma aranha marciana — 
particularmente grande, faminta e de 
aparência horrível —, uma coleção de 
balões, um arco e uma flecha. 

Com freqgiiência, ele acorda banha- 
do em suor, após ter sonhado que esta- 
va em sua escada, tentando desespera- 
damente flechar balões que, se atingis- 
sem a gaiola da aranha, acima de sua ca- 
beça, destravariam a porta que aprisio- 
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na o monstro. Ajude Freddy a estourar 
os balões, ou ele terá um trágico fim, co- 
mo almoço de uma horrenda aranha! 

Temos, assim, um enredo. Com re- 
lação aos pontos, eles serão dados para 
cada balão estourado. Mas, mesmo que 
Freddy consiga interceptar todos os ba- 
lões, seu problema não estará resolvido: 
a tortura continuará num nível de difi- 
culdade ainda maior com balões mais 
rápidos. Se deixar que três deles passem, 
a aranha marciana sairá da gaiola. 


O PROGRAMA 


Nosso jogo requer a animação de 
quatro figuras: a aranha, que se movi- 
menta na vertical e na horizontal; 
Freddy, que se move só na vertical; o ba- 
lão, que pode aparecer em qualquer 
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ponto da parte inferior da tela, mas que 
também se move na vertical, e a flecha. 
Esta normalmente se move na horizon- 
tal, mas acompanha o movimento ver- 
tical de Freddy. 

As figuras de maior interesse são a 
aranha e o balão. Muitas variáveis es- 
tarão associadas a elas, e será útil arma- 
zená-las em uma matriz unidimensional 
e usar uma constante como referência. 


Além do movimento, precisamos de- 
finir o desenho de todas as diferentes fi- 
guras — animadas ou não — que apa- 
recerão na tela. Como nos melhores jo- 
gos de computador, elas devem ser co- 
loridas. Freddy será montado em um 
bloco gráfico de três por dois caracte- 
res. Usaremos outros blocos de dois por 
dois caracteres para definir a aranha, 
um balão inteiro e um balão estourado, 


dois caracteres para o desenho da flecha 
e mais dois para o da escada. Assim, te- 
remos no final cerca de 26 caracteres. 


A primeira parte do programa defi- 
ne os gráficos e inicializa o jogo. 


AS 


DIM 8(7) 
LET ypos=2: LE 
LET c 


1000 DIM b(6): 
1010 LET xpos*-1: 
T colour-3: LET points-4: 








ount=5: LET maxcount=6 

1020 LET xinc=3: LET yinc=4: LE 
T picture=7 

1030 LET dest-65288 
1040 FOR i-0 TO 26*8-1: 
POKE dest*i,j: NEXT i 
1050 DATA 15,63,127,255,255,255 


READ 3: 





‚255,127 
1060 DATA 240,252,254,255,255,2 
55,255,254 

1070 DATA 127,63,63,31,15,7,3,6 
1080 DATA 254,252,252,248,240,2 
24,192,96 

1090 DATA 32,96,255,255,96,32,0 
n 

1100 DATA 5,10,252,252,10,5, ү: 0 
1110 DATA 1, 7,40,16,0 61 
1120 DATA 128,2,136,20,8,0, з 
3 

1130 DATA 161,0,0,16,50,17,64,1 
1140 DATA 133,0,0,8,20,136,2,12 
8 

1150 DATA 48,48,48,48,111,111,4 
B,48 

1160 DATA 12,12,12,12,246,246,1 
2,12 

1170 DATA 7,31,49,57,127,112,23 
7,255 

1180 DATA 224,248,140,204,254,1 
4,183,255 

1190 DATA 127,59,51,99,115,35,6 
,12 

1200 DATA 254,108,102,51,49,25, 
24,48 

1210 DATA 7,31,49,51,127,112,23 
5,255 

1220 DATA 224,248,140,156,254,1 
4,215,255 

1230 DATA 127,51,50,27,25,50,11 
2,224 

1240 DATA 254,204,108,102,54,22 
13,6 

1250 DATA 15,31,19,55,55,63,63, 
15 

1260 DATA 240,248,248,252,252,2 
52,252,240 

1270 DATA 251,219,139,219,219,2 
51,247,239 

1280 DATA 252,254,254,254,254,2 
54,254,252 

1290 DATA 95,127,31,31,31,63,12 
7,127 

1300 DATA 188,188,188,188,188,1 
24,252,248 

1310 LET hiscore-0 

1320 RETURN 





1000 DIM B(6),8(7),NU$(9) 

1010 XP=1:YP=2:PO=4:CT=5:MC=6 
1020 XI=3:YI=4:PI=7 

1022 DIM AD(14),EF(4),E(4),GJ(7 
),KL(4),MP(7),QT(7),UZ(14),SP(7 
),81(4),82(7) , BL(4) 

1023 PMODE 4,1:PCLS1:8G*PEEK(18 
8)*256 

1024 GOSUB 1500 

1025 GET(0,0)- (15,23) , AD, G: PCLS 





1 
1026 GOSUB 1520 


1027 GET(0,0)- (15,7) , EF, G:GET(0, 


,0)- (7,7) ,E,G: PCLS1 

1028 GOSUB 1500 

1029 GET(0,0)-(15,15) ,GJ, G: PCLS 
1 


1030 GOSUB 1520 

1031 GET(0,0)-(15,7) , KL, G: PCLS1 
1032 GOSUB 1500 

1033 GET(0,0)-(15,15) , MP, G:PCLS 
1 

1034 GOSUB 1500 

1035 GET(0,0)-(15,15) , QT, G: PCLS 


1 

1036 GO8UB 1500:8G=8G+512:GOSUB 
1520:8G=8G-512 

1037 GET(0,0)-(15,23),UZ,G:PCLS 
1 

1038 GET(0,0)-(15,15),8P,G 

1039 СЕТ(0,0)-(7,7),81,6 

1040 GET(0,0)-(15,7),82,G 

1041 РСІ.80:6ЕТ(0,0)-(7,7),ВІ.,6 
1050 DATA 15,63,127,255,255,255 
‚255,127 

1060 DATA 240,252,254,255,255,2 
55,255,254 
1070 DATA 
1080 DATA 
24,192,96 
1090 DATA 
,0 
1100 
1110 
1120 
3 
1130 
1140 
8 
1150 
8,48 
1160 
2,12 


1170 
7,255 
1180 DATA 224,248,140,204,254,1 
4,183,255 
1190 DATA 
‚12 

1200 DATA 
24,48 
1210 DATA 
5,255 
1220 DATA 
4,215,255 
1230 DATA 
2,224 
1240 DATA 


127,63,63,31,15,7,3,6 
254,252,252,248,240,2 


32,96,255,255,96,32,0 
DATA 5,10,252,252,10,5,0,0 
DATA 1,64,17,40,16,0,0,161 
DATA 128,2,136,20,8,0,0,13 


DATA 
DATA 


161,0,0,16,40,17,64,1 
133,0,0,8,20,136,2,12 


DATA 48,48,48,48,111,111,4 


DATA 12,12,12,12,246,246,1 


DATA 7,31,49,57,127,112,23 


127,59,51,99,115,35,6 
254,108,102,51,49,25, 
7,31,49,51,127,112,23 
224,248,140,156,254,1 
127,51,50,27,25,50,11 
254,204,108,102,54,22 
‚3,6 

1250 DATA 
15 

1260 DATA 
52,252,240 
1270 DATA 251,219,139,219,219,2 
51,247,239 

1280 DATA 252,254,254,254,254,2 
54,254,252 

1290 DATA 95,127,31,31,31,63,12 
7,127 

1300 DATA 188,188,188,188,188,1 
24,252,248 

1310 Н8-0 


1320 RETURN 
1500 FOR CL=0 TO 1:FOR CH=0 TO 


15,31,19,55,55,63,63, 
240,248,248,252,252,2 


1:FOR L=0 TO 7:READ J:POKE SG+C, 


L*256+CH+L*32,255-J:NEXT L,CH,C 


L 

1510 RETURN 

1520 FOR CH=0 TO 1:FOR L=0 TO 7 
:READ J:POKE SG*CH*L*32,255-J:N 
EXT L,CH 

1530 RETURN 

1600 DATA R6DBLGUBBRB,BRÓND8BR2 
, R6DAL6D4R6BR2BUB , RÓDANL3D4NL6B 
R2BUB , DARÓD4UBBR2 , NR6D4R6D4L6BE 


8 

1610 DATA D8R6U4L6U4BR8,R6ND8BR 
2, R6D8L6U8D4R6U4BR2 , D4R6D4U8L6B 
RB 

1620 FOR 1=0 TO 9:READ NUS(I):N 
EXT 

1625 DRAW"C1;S2" 

1630 RETURN 

1650 N$=STR$ (NU) : FOR 12=2 TO LE 
N(N$) 

1660 DI=ASC(MIDS(NS,12,1))-48:D 
RAW NUS(DI)+"BR2”:NEXT 12:RETUR 


N 

1700 COLOR O:LINE (178,2)-(200, 
7) ,PSET,BF:NU=HS:DRAW"C1;BM178, 
2”:GOSUB 1650: RETURN 


Y 


1000 
1005 
L=6 

1010 
1020 
1030 
1040 
1050 
1060 


DIM B(6),8(7) :SCREEN2,2 
Al=1:A2=2:BA=3:BE=4:FD=5:F 


XP- 
XI= 





YP=2:P0=4:CT=5:MC=6 
I=4:PI=7 

FOR I=1 TO 6:A$-"" 

FOR J=1 TO 32 

READ A:AS=AS+CHRS (A) 
SPRITES (T)=AS 

1070 NEXT:NEXT 

1100 DATA 0,0,0,0,7,13,31,18,15 
+10,10,18,10,2,4,0,0,0,0,0,208, 
176,248,72,240,80,80,72,80,64,1 
28,0 

1110 DATA 0,0,0,0,7,13,31,18,1 
5,10,10,9,8,8,4,0,0,0,0,0,208,1 
76,248,72,240,80,80,144,16,16,8 





‚0 

1120 БАТА 0,0,0,3,15,31,31,31, 
15,15,7,3,3,1,0,0,0,0,0,192,240 
+248,248,248,240,240,224,192,19 
2,128,0,0 

1130 DATA 0,0,0,0,8,4,0,13,1,0 
.4,4,8,0,0,0,0,0,0,16,32,0,0,12 
8,152,0,64,32,0,0,0,0 

1140 DATA 0,3,7,7,3,1,7,15,15, 
15,15,7,3,2,2,1,0,192,224,224,1 
92,128,224,240,240,240,240,224, 
192,192,192,128 

1150 БАТА 0,0,0,0,0,0,16,112,2 
55,112,16,0,0,0,0,0,0,0,0,0,0,0 
,8,16,240,16,8,0,0,0,0,0 

1310 HS=0 

1320 RETURN 






Esta parte do programa lé os dados 
das linhas DATA para montar os blocos 
gráficos (UDG ou sprites) do balão e da 
aranha nas matrizes B (ou b) e S (ou s), 
que são dimensionadas na linha 1000. 

As linhas 1010 e 1020 definem os va- 
lores iniciais para os apontadores das 















































matrizes, antes dos UDG ou sprites se- 
rem montados. As linhas 1030 a 


1040 (até 1070, no MSX) fazem— ~ 


a leitura dos dados em DATA *. 

e montam os blocos gráficos. Fi-N 
nalmente, a linha 1310 define o re- 
corde como 0. Essa linha é execu- 
tada apenas uma vez. O programa >, 
para o TRS-Color inclui uma roti- 

na a mais, que comega na linha 1600. 
Sua função é desenhar números na tela 
de alta resolução. 


ІМСІАЦ2АСАО 00.) 


3000 LET score=0: LET level=1 
3010 LET my=15 

3020 LET bl=15+5*level: LET ax= 
29: LET ау=16: LET dead=0: LET 
props-3 

3090 GOSUB 5000 

3150 PAPER 0: BORDER 0: CLS 
3160 FOR x=0 TO 28: PRINT AT 3, 
xi INK 0; PAPER 6;" ";AT 0,x;" 
*: NEXT x: GOSUB 6000 





3170 POKE 23607,6 PRINT AT 0, 
0; INK 0; PAPER 6;"N-";level;" 
B=";b1 ";"SC-";score;AT 0,2 









0;"RE=";hiscore 

3180 POKE 23607,252 

3190 FOR y=5 TO 21: PRINT AT y, 
30; INK 6;"kl": NEXT y 

3200 POKE 23607,252 

3210 GOSUB 4000 

3220 GOSUB 4200 

3240 RETURN 





3000 SC=0:LV=1 

3010 MY-15 

3020 BL=15+5*LV:AX=29:AY=16:DD= 
0:PP=3 

3090 GOSUB 5000 

3150 PMODE 4,1:COLOR 0,1:PCLS:S 
CREEN 1,1 

3160 FOR X=0 TO 28:PUT(X*8,24)- 
(X*8+7,31),BL, PSET:PUT(X*8,0)-( 
X*8*7,7),BL,PSET:NEXT X:GOSUB 6 
000 

3165 DRAW"S4;BM2,2;Cl;D4R3BR2BU 
1R2BU1L2;BM48,2;D4R4U2L4R3U2L3B 
R6BD2R2BD1L2;BM100,2;L4D2R4D2L4 
BR6NR4UAR4 ; BM160,2;D4U2R4D2U4BR 
2В41.2041.284;52” 

3170 DRAW"Cl;BMl14,2;":NU-LU:GOS 
UB 1650 

3171 DRAW"BM58,2;":NU-BL:GOSUB 
1650 7 
3172 DRAW"BMl114,2; t 

1650 

3173 DRAW"BM178,2;" 

1650 

3190 FOR Y=5 TO 21:PUT(240,Y*8) 

7(255,Y*8*7) ,KL, PSET:NEXT Y 

3210 GOSUB 4000 


- T 3240 RETURN 


e nu 


w: 77300 SC=0:LV=1 


A 
Y E 


3220 GOSUB 4200 


3010 MY=16 

3020 BL=15+5*LU:AX=29:AY=16:DD= 
0:PP=3 

3090 GOSUB 5000 

3160 LINE (0,0)-(231,31),6,BF:L 
INE (0,7)-(80,24),14,BF:LINE (8 
7,7)-(152,24),14,BF:LINE (159,7 
)- (224,24) , 14, BF 

3170 GOSUB 1700 

3180 GOSUB 6000 

3190 LINE (240,31)-(240,190),1: 
LINE (255,31)-(255,190),1:FOR I 
=2 TO 15:LINE (240,1*16)-(255,I 
*16),1:NEXT s 
3210 GOSUB 4000 

3220 GOSUB 4200 

3230 RETURN 

As linhas 3000, 3010 e 3020 zeram o 
placar, inicializam o nível de dificulda- 
de em 1 e definem uma série de variá- 
veis auxiliares. A linha 3150 determina 
as cores da tela (menos no MSX) e as 
linhas 3160 a 3170 exibem o placar e ou- 
tras informações necessárias. 

O programa do Spectrum inclui um 
POKE na linha 3170 e outro na 3180. 
A posição de memória 23607 guarda o 
apontador do conjunto de caracteres. 
Normalmente, ela tem o valor 60, que 
aponta para o conjunto de caracteres da 
ROM. Nesse programa, entretanto, o 
valor colocado no endereço 23607 para 
indicar a posição dos caracteres é 252. 
Isso permite ao computador usar as le- 
tras minúsculas, além das maiúsculas e 
dos números, como gráficos. 

O programa reserva uma área da me- 
mória usando CLEAR e ali coloca os 
UDG. Devido ao seu efeito sobre as sub- 
rotinas, esse comando deve ser utiliza- 
do no programa principal, o que fare- 
mos na segunda parte do jogo. Portan- 
to, se você quiser executar as linhas aqui 
apresentadas, digite antes CLEAR 
65287. 

A linha 3190 se incumbe de desenhar 
a escada, e as sub-rotinas chamadas nas 
linhas 4000 e 4200 desenham, respecti- 

amente, Freddy e a aranha. 


FREDDY E A FLECHA 





4000 INK 7: PRINT AT my,3 > 
;AT my*l,30;"wx";AT my*2,30;"yz 
": IF ax-29 THEN PRINT AT ay,a 
x;"e"; 

4010 RETURN 

4110 INK 7: PRINT AT ay,ax;"ef” 
: RETURN 
































































As figuras montadas pelo programa tal como aparecem na tela 


dos microcomputadores da linha Spectrum. 





4000 PUT(240,MY*8) - (255, MY*8B*23 
),UZ,PSET:IF AX=29 THEN PUT(AX* 
B, AYX*B) - (AX*B*7, AY*B*7) , E, PSET 
4010 RETURN 

4110 PUT(AX*B8,AY*B8) - (AX*8*15,AY 
*8*7) ,EF, PSET: RETURN 


nau 


4000 PUT SPRITE 2,(240,MY*8),1, 
FD: IF AX=29 THEN PUT SPRITE 3,( 
AX*B,AY*B) , 4, FL 

4010 RETURN 

4110 PUT SPRITE 3, (AX*B,AY*B) ,4 
,FL'RETURN 





Essa rotina desenha Freddy sobre a 
escada e sua flecha. A posicào do nos- 
so personagem é determinada pelo va- 
lor de MY. A flecha, por sua vez, é de- 
senhada pela linha 4110 na posicào da 
tela indicada pelos valores de AX e AY. 


A ARANHA MARCIANA 


4200 IF s(picture)-1 
4250 

4210 PRINT AT s(ypos),s(xpos 
mn";AT s(vpos)*l,s(xpos);"op 
RETURN 

4250 PRINT AT s(vpos),s(xpos);" 
qr";AT B(ypos)*l,s(xpos) ;"st": 
RETURN 


THEN GoOTO` 











4200 X2=S(XP)*8:Y2=S(YP)*8:IF S 
(PI)=1 THEN 4250 


4210 PUT(X2,Y2)-(X2+15,Y2+15),M 
P, PSET:RETURN 
4250 PUT(X2,Y2)-(X2+15,Y2+15),0 
T, PSET: RETURN 


nau 


4200 X2-S(XP) *B:Y2-S(YP) *B:IF S 
(PI)=1 THEN 4250 
4210 PUT SPRITE 1,(X2,Y2),12,A1 
: RETURN 
4250 PUT SPRITE 1,(X2,Y2),12,A2 
: RETURN 

A rotina que desenha a aranha se as- 
semelha à anterior, exceto num detalhe: 
duas imagens sáo usadas para essa figu- 
ra. Colocadas alternadamente no mes- 
mo lugar da tela, pelas linhas 4210 e 
4250, simulam o movimento das pernas 
da aranha. 


SOBEM OS BALOES 


4300 PRINT AT b(ypos),b(xpos) ; 
BRIGHT 1; INK b(colour);"ab";AT 
b(ypos)+1,b(xpos);"cd”: RETURN 


5000 LET range=INT (RND*6) 

5010 LET b(xpos)=(4*range)+INT 
(RND*4) 

5020 LET b(ypos)=20 

5030 LET b(maxcount)=5-level 
5040 LET b(count)=1 

5050 LET b(colour)=INT (RND*5)+ 
3 

5060 LET b(points)=10-range 
5070 RETURN 


4300 X2-B(XP) *B:Y2-B(YP) *B:PUT( 
X2,Y2) - (X2*15,Y2*23) , AD, PSET:RE, 


RG*RND (6) -1 
B(XP) * (4*RG) *RND (4) -1 
B(YP) 720 

B(MC)=5-LU 

B(CT)=1 

B(P0)=10-RG 

RETURN 


5010 
5020 
5030 
5040 
5060 


nau 


4300 X2-B(XP) *8:Y2-B(YP) *8: PUT 
SPRITE 4,(X2,Y2) , 9, BA: RETURN 
5000 RG=INT(RND(1)*6) 

5010 B(XP)*(4*RG) *INT (RND(1)*5) 
5020 B(YP)=20 

5030 B(MC)=5-LV 

5040 B(CT)=1 

5050 B(PO)*10-RG 

5070 RETURN 





A linha 4300 simplesmente desenha os 
balões na tela. As linhas restantes encar- 
regam-se de inflar um balão toda vez que 
um outro estourar ou alcançar a gaiola 
da aranha (os balões podem aparecer em 
qualquer um dos seis pontos da parte in- 
ferior da tela, flutuando em seguida pa- 
ra cima, na direção vertical. A variável 
MAXCOUNT (ou, ainda, maxcount ou 
MC, conforme o computador) determi- 
na o quanto o balão se moveu, ou seja, 
o nível que ele atingiu. Em seguida, o 
programa define a cor do balão e seu va- 
lor em pontos. Este dependerá de sua 
proximidade da escada de Freddy. 


= 


6000 IF level<>1 THEN POKE 236 

07,60: РВІМТ АТ в(уров),в(хров) 

1" "ТАТ в(уров) +1,8(хров):" " 
POKE 23607,252 

6010 FOR x-10 TO 30 STEP 9 

6020 PRINT INK 6;AT l,x;"" 

2,x;"" 

6030 NEXT x 

6040 LET s(xpos)*1: 

=1: LET s(xinc)*1: LET s(vinc)- 

0: LET s(count)=4: LET s(maxcou 

nt)=4: LET s(picture)=1 

6050 RETURN 





¡AT 


LET s(ypos) 





6000 IF LV<>1 THEN X2=S(XP)*8:Y 
2=8 (YP)*8:PUT(X2,Y2)-(X2+15,Y2+ 
15) ,SP,PSET 

6010 FOR X=10 TO 30 STEP 9 
6020 PUT(X*8,8)-(X*8+7,15),BL,P 
SET: PUT (X*8,16)- (X*8+7,23),BL,P 
SET 

6030 NEXT X 

6040 S(XP) *1:8(YP) *1:8 (XI) *1:8(, 
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YI)=0:S(CT)=4:S(MC)=4:S(PI)=1 
6050 RETURN 


nu 


6000 S(XP)-1:S (YP) -1:8 (XI) -1:8( 
YI)20:8(CT) 24:8 (MC) 24:8 (PI) -1 
6010 RETURN 

Trés portas fecham a gaiola da ara- 
nha, para manté-la presa. Os usuários 
do Spectrum notaráo que o caractere lis- 
tado como ? é, de fato, um quadradi- 
nho gráfico, obtido com a tecla 8 em 
modo gráfico. 


dd: PERSAS 


A primeira seção do programa defi- 
ne os gráficos e inicializa o jogo. 


A INICIALIZACÁO 


1000 DIM B(6),8(7),NUS(9): SCA 
LE= 1: ROT= 0: HCOLOR= 3 

1010 ХР = 1:ҮР = 2:РО = 4:СТ = 
5:MC = 6 

1020 XI = 3:YI = 4:PI = 7 

1025 А1 = 1:A2 = 2:BA = 3:BE = 
4:FD = 5:FL = 6 





1030 DATA 6,0,14,0,75,0,136, 
0,1,1,21,1,158,1 
1040 DATA 45,45,45,45,77,58, 


63,63,63,63,63,63,55,173,240 
1050 DATA 43,45,45,44,45,53,4 
5,37,45,62,54,63,63,63,63,63,63 
.188 

1060 DATA 10,62,62,62,54,109, 
145,37,37,36,36,100,73,17,54,54 


1070 DATA 54,53,109,193,193,1 
93,45,36,39,39,36,0 

1080 DATA 45,45,45,45,117,57 
,63,63,63,63,63,63,55,45,222 
1090 DATA 45,45,37,45,45,46,4 
5,44,53,55,62,63,63,63,63,63,39 
‚151 

1100 DATA 49,54,62,62,62,79,7 
3,72,1,193,193,39,39,108,73 
1110 DATA 9,54,55,183,74,73,7 
3,39,39,39,36,36,0 

1120 DATA 45,45,45,53,63,63, 
63,63,55,45,45,45,45,45,44,54 
1130 DATA 63,63,63,63,63,63,5 
5,45,45,45,45,45,45,45,44,54,63 


1140 DATA 63,63,63,63,63,63,5 
5,45,45,45,45,45,45,45,53,63 
1150 DATA 63,63,63,63,63,63,5 
5,45,45,45,45,45,45,45,53,63,63 
‚63 

1160 DATA 63,63,63,63,46,45, 
45,45,45,45,45,62,63,63,63,63,6 


43 
-1170 DATA 55,45,45,45,45,45,5 
3,63,63,63,63,63,46,45,45,45,45 
‚62 
1180 DATA 63,63,63,55,45,45,4 
5,53,63,63,55,62,87,73,73,8,39, 
4,0 


1190 DATA 46,110,9,44,172,146 
.57,223,219,59,191,146,45,37,77 
+9,53,46,45,0 

1200 DATA 45,45,45,53,63,63, 
63,63,46,45,45,45,45,44,54,63 

1210 DATA 63,63,63,63,46,45,4 
5,45,45,62,63,63,63,55,45,45 

1220 DATA 45,45,222,63,63,62, 
63,63,46,45,45,37,45,45,45,45,5 
3,63,63 

1230 DATA 63,63,62,63,63,63,4 
6,45,45,45,37,45,45,45,53,63 

1240 DATA 63,63,62,63,63,63 
,63,46,45,45,45,45,45,44,45,53 
1250 DATA 63,55,62,63,63,63,6 
3,60,54,45,45,45,45,45,62,63,63 


1255 DATA 63,63,46,45,45,45,5 
3,63,63,63,63,46,45,45,45,62,63 
‚63,55 

1260 DATA 45,45,45,62,63,63,4 
6,45,45,62,63,63,55,45,45,45,5, 





0 

1270 DATA 45,44,54,119,33,36 
,44,54,54,37,36,172,42,45,45,45 
.45,5,0 


1280 FOR І = 16384 ТО 16816: В 
EAD C: POKE 1,C: NEXT 

1290 P = 233: POKE P,64: POKE P 
- 1,0 

1300 HS - 0 

1310 RETURN 


Essa parte do programa lé os dados 
das linhas DATA para montar, nas ma- 
trizes B e S (dimensionadas na linha 
1000), os blocos gráficos do baláo e da 
aranha. 

As linhas 1010 a 1025 determinam os 
valores iniciais para os apontadores das 
matrizes. As linhas 1280 a 1290 fazem 
a leitura dos dados em DATA (linhas 
1030 a 1270) e a montagem dos blocos 
gráficos. Finalmente, a linha 1310 defi- 
ne o recorde como 0. Essa linha será exe- 
cutada apenas uma vez. 

Adicione agora este programa: 


3000 3С = 0:10 = 1 

3010 МҮ = 15 

3020 ВІ = 15 + 5 * LV:AX = 28:A 
Ү = 16:00 = 0:Рр = 3 

3090 GOSUB 5000 

3150 HGR : GOSUB 1700 

3160 FOR Y - 0 TO 3: HPLOT O,Y 
TO 234,Y: HPLOT 0,Y + 23 TO 23 
4,Y *:23: NEXT 

3170 FOR X = 0 TO 3: HPLOT 
77,3 TO X + 77,23: HPLOT X 
54,3 TO X + 154,23: HPLOT X 
31,3 TO X * 231,23: NEXT 
3175 GOSUB 6000 

3180 HPLOT 235,25 TO 235,160: 
HPLOT 255,25 TO 255,160 

3210 GOSUB 4000 

23220 GOSUB 4200 

3240 RETURN 


x+ 
So 
*2 


As linhas 3000, 3010 e 3020 zeram o 
placar, inicializam o nível de dificulda- 
de em 1 e definem uma série de variá- 
veis auxiliares necessárias ao jogo. As 
linhas 3160 a 3180 mostram o placar e 


outras informações. A linha 3190 dese- 
nha a escada, e as sub-rotinas chama- 
das nas linhas 4000 e 4200 desenham, 
respectivamente, Freddy e a aranha. 
A rotina seguinte desenha Freddy na 
escada e sua flecha. A posição do nos- 
so personagem é determinada pelo va- 
lor de MY. A flecha, por sua vez, é de- 
senhada pela linha 4110 na posição da 
tela indicada pelos valores de AX e AY. 


4000 DRAW FD AT 240,MY * 8: IF 
AX = 28 THEN DRAW FL AT AX * 
B,AY * B 

4010 RETURN 

4110 DRAW FL AT AX * B,AY * 8: 
RETURN 


А АВАМНА МАВС!АМА 


4200 X2 = S(XP) * 8:Y2 = S(YP) 


* 8: IF S(PI) = 1 THEN 4250 
4210 DRAW Al AT X2,Y2: RETURN 
4250 DRAW AZ AT X2,Y2: RETURN 


A rotina que desenha a aranha é mui- 
to parecida com a anterior, exceto por um 
detalhe: duas imagens são usadas para es- 
sa figura (A1 e A2). Elas são colocadas 
alternadamente no mesmo lugar da tela, 
pelas linhas 4210 e 4250, simulando que 
as pernas da aranha se movem. 


4300 X2 - B(XP) * 8:Y2 = (B(YP) 
* 1) * B: HCOLOR= 0: DRAW BA A 
T X2,Y2: HCOLOR= 3 
8: DRAW BA AT X2,Y2: 
5000 RG = INT ( RND (1) * 6) 
5010 B(XP) = (4 * RG) + INT ( 
RND (1) * 5) 

5020 B(YP) = 20 








5030 B(MC) = 5 - LU 
5040 B(CT) = 1 
5050 B(PO) = 10 - RG 


5070 RETURN 


A linha 4300 desenha os balóes na te- 
la. As linhas restantes encarregam-se de 
inflar um baláo toda vez que um deles 
estourar ou alcançar a gaiola da aranha. 

Os balões aparecem em qualquer um 
dos seis pontos da parte inferior da te- 
la, flutuando em seguida verticalmente. 
A variável MC determina o nível que o 
balão atingiu. Por fim, o programa es- 
tabelece o valor, em pontos, do balão, 
segundo sua proximidade da escada. 

А rotina final dessa parte do jogo é 
responsável pela contagem do número 
de portas (máximo de três) que estão 
mantendo a aranha dentro da gaiola. 


6000 ІЕ 10 < > 1 THEN X2 - S( 
XP) * B:Y2 - S(YP) * 8: DRAW AL 
GUMACOISA 


6040 S(XP) = 1:S(YP) = 1:S(XI) 
= 1:S(YI) = 0:S(CT) = 4:S(MC) = 
4:s(PI) = 1 
6050 RETURN 
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OJOGO 
DAVIDA 


Programe seu micro para simular a 
еїегпа Їш!а до$ $еге$ ипїсе!ш!аге$ 

pela vida. Depois, desafie um parceiro 
para jogar. O arranjo inicial da 

colónia de bactérias definirá o vencedor. 


Neste fascinante jogo, o vídeo repre- 
senta um mundo bidimension 
células podem viver, multiplicar-se e 
morrer. O Jogo da Vida, como é deno- 
minado, foi inventado por um 
inglés há alguns anos, para ser jogado 
em um tabuleiro como o de xadrez. Em 
sua versão computadorizada, bastante 
popular entre os usuários de mierocom- 
putadores, a tela é dividida em um pa- 
drào quadriculado (invisivel a o jo- 
gador). Cada quadradinho pode abrigar 
uma célula — uma baci , рог ехсіп- 
plo. Essa célula terá, de acordo com sua 
Чїзӊрозїйо по йїаргата, а!ё шї тах- 
mo de oito vizinhos. 

As regras do Jogo da Vida determi- 
nam quando uma célula deve sobrevi- 
ver ou morrer, e, também, quando uma 
nova célula deve nascer. Sáo elas: 










































* Uma célula nasce sempre que e 


um espago cereado por exatamente trés 
уігіпһов. 
* Uma célula consegue sobreviver até a 





o seguinte quando tem dois ou 
(UTEM 


gera 
três v 



























ulas que não se enquadrarem nas 
situações anteriores morrem, Em um es- 
paço com mais de três vizinhos, por 
exemplo, supõe-se que falta! їтешо 
ou oxigênio para todas as células. 

do nessas regras, o programa 
determina o futuro de cada quadrado na 
tela e mostra como a colônia 
montada pelo jogador, se desenvolve de 
o. Cada gera 
ропас а шт сісіо ДШ К МЕЕ 
eulos para todo o quadriculado. 



























do número de quadradinhos 
o cálculo de uma geragáo será muito de- 
morado se se utilizar um programa es- 
crito em linguagem BASIC, Por isso, 
montamos o progi m linguagem de 
máquina, o que lhe permitirá observar 
ита регас̧до да соібпіа а сайа верип 
do, aproximadamente. 

Como as geracóes sáo exibidas em 
cores diferentes, o efeito visual é muito 
interessante, Vocé verá, na tela, como 
as colónias se espalham, mudam, frag- 
mentam- les menores, mor- 
rem ou rejuvenescem. 
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A forma inicial da colônia é funda- 
mental para o desenrolar do jogo. Al- 
guns padróes condenam a colónia ao 
fim após algumas ge ; outros pos- 
s ie ua sobrevivi por centenas 
. Certas compo- 
sicóe: Pp ainda, que a col 
nia oscile entre um padrào e outro en- 
quanto durar a simulação. 






















AS REGRAS DA VIDA 

A DISPOSICAO INICIAL 

DA COLÓNIA 

COMO CRIAR UMA COLÓNIA 
0 PROGRAMA EM CÓDIGO 





Cabe ao jogador estabelecer o padrão 
inicial, entrando as posicóes das primei 
ras células. Um dos objetivos do jogo 
consiste em criar uma colónia que dure 
o maior número possivel de gerações — 
o programa informa quantas gerações 
se passaram. Entretanto, às vezes, vale 
a pena competir simplesmente para ver 
quem E colônia com efeito mais 
interessante. Existem alguns padròes, 
emplo, que se deslocam em uma 
direção, recriando sua forma original a 
'0 OU cinco geragóes, com um 
efeito adicional: a eliminação de todas 
as células que vão sendo encontradas no 
сапїпһо. 

Você poderá aproveitar tal efeito pa- 
rà desenvolver um jogo em que dois 
oponentes montam formas '*devorado- 
ras", ganhando aquele que destruir mais 
depressa à colónia do outro. 


PROGRAMA 


Nào entraremos em detalhe quanto 
ao funcionamento do programa em lin- 
guagem de máquina. Este é carregado 
e acionado por meio de um programa 
em linguagem BASIC que utiliza os co- 
mandos POKE e USR. Os códigos de- 
cimais correspondentes ao programa es- 
tão armazenados nas instruções DATA 
que começam na linha 500 (no Spec- 
trum) ou 1000 (no TRS-Color). A parte 
do programa escrito em BASIC simples- 
mente lê esses códigos, colocando-os nu- 
ma parte protegida da memória. Além 
disso, ela é respon | pela criacáo da 
tela e pela entrada da colónia inicial. 
iste jogo é um interessante exemplo 
do uso de programas em código de má- 
quina a partir de um programa em BA- 
5С, DUE aqui as versóes pa- 
ra os micros da linha Spectrum e TRS- 
Color. Os programas para outras má- 
quinas serào dados posteriormente. 


5 CLEAR 2867 FOR N-USR "A 
” TO USR "A"+7: READ A: 

POKE N,A: NEXT N 

6 DATA 0,24,60,102,102,60,24 
.0 

7 GOSUB 200 

10 POKE 23658,8: BRIGHT 1: 















































































BORDER 0: INK 6: PAPER 0: CLS 


20 FOR N=0 TO 21: PRINT AT N, 
0; PAPER 1;” ”: NEXT N 
30 PLOT 63,0: DRAW 0,175: 
DRAW 192,0: DRAW 0,-175: DRAW 
-255,0: DRAW 0,175: DRAW 63,0 
40 PRINT AT 2,1; PAPER 2; INK 
7:” VIDA ”; PAPER 0; ІМК 6;АТ 
5,1:7 СЕН ";АТ 6,1;" 0000 " 
70 RAND USR 28672: LET X-20: 
LET Y-10 

B0 PRINT AT Y,X; OVER l;"HE: 
FOR N=1 TO 10: NEXT N: PRINT 
AT Y,X; OVER 1;” ” 

90 LET AS=INKEYS: TF AS="" 
THEN GOTO 80 

92 IF AS-"Q" THEN GOTO 110 
94 IF CODE A$=13 THEN PRINT 
AT Y,X;CHR$ 144: РОКЕ 30000%( 
(Y-1)*23)+(X-8) , 144: GOTO 80 
95 IF AS-"M" THEN PRINT AT Y 
E POKE 30000+((Y-1)*23) 
*(X-8),32: GOTO 80 

100 LET X=X-(AS="5")*(X>8) +(AS 
="8")*(X<30): LET Y=y-(AS="7") 
*(Y>1)+(A$="6")*(Y<20): GOTO 
80 

110 OVER 0: RAND USR 28711 
120 PRINT AT 21,1; FLASH 1l;”QU 
ALQUER TECLA PARA RECOMECAR": 
FOR Nel TO 200: NEXT N 

130 LET AS-INKEYS: IF AS-"" 
THEN GOTO 130 

140 GOTO 10 

200 LET L=500: RESTORE L: FOR 
N-28672 TO 28951 STEP 8 

210 LET T-0: FOR D-0 TO 7 

220 READ A: POKE N+D,A: LET T= 
T+A: NEXT D: READ A: IF ACT 
THEN PRINT FLASH l;"ERRO DE 


С 
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DADOS NA LINHA ";L: STOP 

230 LET L=L+10 

240 МЕХТ М 

250 RETURN 

500 DATA 33,25,117,1,211,3,62, 
32,484 

510 DATA 119,35,13,32,249,5, 
242,6,701 

520 DATA 112,33,48,48,34,0,113 
134,422 

530 DATA 2,113,33,48,117,34, 
252,112,711 

540 DATA 33,248,118,34,254,112 
,201,243,1243 

550 DATA 42,252,112,6,1,197,88 
‚6,704 

560 DATA 8,80,62,22,215,123, 
215,122,847 

570 DATA 215,126,35,254,32,40, 
10,214,926 

580 DATA 142,245,62,16,215,241 
.215,62,1198 

590 DATA 144,215,4,120,254,31, 
32,233,1033 

600 DATA 193,4,120,254,21,32, 
214,42,880 

610 DATA 252,112,237,91,254, 
112,229,213,1500 

620 DATA 1,200,1,197,221,33,4, 
113,770 

630 DATA 1,0,7,213,221,94,0, 
221,757 

640 DATA 86,1,229,25,235,225, 
26,254,1081 

650 DATA 32,209,40,1,12,221,35 
1,221,771 

660 DATA 35,5,242,107,112,126, 
254,144,1025 

670 DATA 121,56,18,254,2,40,4, 
254,749 

680 DATA 3,32,14,126,254,32,32 





е 





,11,504 

690 DATA 58,251,112,24,6,254,3 
,40,748 

700 DATA 242,62,32,18,35,19, 
193,13,614 

710 DATA 32,185,5,242,99,112, 
209,225,1109 

720 DATA 237,83,252,112,34,254 
+112,33,1117 

730 DATA 4,113,43,126,60,254, 
58,40,698 

740 DATA 4,119,195,203,112.62, 
48,119,862 

750 DATA 195,186,112,62,22,215 
,62,6,860 










760 DATA 215,62,2,215,33,0,113 
462,702 

770 DATA 16,215,62,6,215,6,4, 

126,650 

780 DATA 35,215,16,251,58,251, 
112,60,998 

790 DATA 254,151,32,2,62,144, 

50,251,946 

800 DATA 112,62,127,219,254,31 
,218,40,1063 

810 DATA 112,251,201,149,248, 

118,48,117,1244 

820 DATA 48,49,54,49,233,255, 

234,255,1177 

830 DATA 1,0,24,0,23,0,22,0,70 
840 DATA 255,255,232,255,0,0,0 
,0,997 


Para entrar a colónia inicial, mova o 
cursor usando as teclas de controle (fle- 
chas). Pressione < ENTER > para criar 
uma célula na posição desejada, M pa- 
ra matar uma célula, e Q para terminar 
a entrada e iniciar o jogo. 


10 CLSO:CLEAR 200,30999 

20 FOR K=0 TO 11:T=0:FOR J=0 TO 
16:READ A:POKE 31000*K*17*J,A: 

T=T+A:NEXT:READ S 

30 IF T<>S THEN PRINT” ERRO NOS 
DADOS DA LINA";1000*K*10;"NAO 
CORRA O PROGRAMA !!":END 

40 NEXT 

50 CLS 0:FOR K-0 TO 3:PRINT ек” 
32,"geracao";:POKE 31203*K,48:N 

EXT:POKE 65475,0 

60 PMODE 3:POKE 179,128:PCLS 
70 DEFUSRO=31000 

80 x=2064:Y=1 

90 P=PEEK(X):POKE X,(P OR 5*Y)A 

ND(NOT(P AND 5*Y)) 

100 АЗ=1МКЕҮ$:1Р А$=” " THEN 90 
110 РОКЕ Х,Р 

120 IF A$=""" AND X>1183 THEN X 

-X-32 

130 IF AS=CHR$(10) AND X<3040 T 
HEN X=X+32 

140 IF AS=CHR$(8) AND (X>1152 O 

R(X=1151 AND Y=1)) THEN Y=Y+1:1 

Е Ү>2 THEN Y=1:X=X-1 

150 IF AS=CHR$(9) AND (X<3071 O 

R(X=3071 AND Y=2)) THEN Y=Y-1:1 
F Y<1 THEN Y=2:X=X+1 

160 IF AS=CHR$(13) THEN 180 

170 GOTO 90 

180 H=USRO (0) 

190 IF INKEYS<>"Q” THEN 180 

200 GOTO 50 

1000 DATA 182,121,226,139,16,18 
3,121,226,142,121,227,108,132,1 

66,128,129,58,2425 








É possível usar um sintetizador de voz 
para animar o jogo? 

Você pode tornar o jogo ainda m: 
interessante programando seu micro 
para an ou descrever 
O que se passa na te 

Recorra ao manual do se: 
dor para ver como introduzir 

que tornarão possível fa 
quina falar 

Já publicamos em INPUT um artigo 
que examina em detalhe o uso de sin 
tetizadores de voz. Consulte-o. 


1010 DATA 37,9,134,48,167,31,14 
0,121,231,37,239,198,4,206,4,11 
,142,1759 

1020 DATA 121,231,166,130,167,1 
92,140,121,227,38,247,51,200,28 
‚90,38,238,2425 

1030 DATA 142,13,0,204,0,0,237, 
129,140,28,128,37,249,142,4,128 
+206,1787 

1040 DATA 13,64,166,128,133,10, 
39,2,141,47,51,65,133,5,39,2,14 
1,1179 

1050 DATA 39,51,65,140,12,0,37, 
233,142,4,128,206,13,64,166,132 
‚52,1484 

1060 DATA 2,230,192,134,10,141, 
52,230,192,134,5,141,46,53,2,16 
7,128,1859 

1070 DATA 140,12,0,37,231,57,52 
,2,108,200,192,108,200,64, 31,48 
.196,1678 

1080 РАТА 63,39,8,108,200,191,1 
08,95,108,200,63,193,63,39,8,10 
8,200,1794 

1090 DATA 193,108,65,108,200,65 
.53,130,165,98,39,19,193,2,39,3 
2,193,1702 

1100 DATA 3,39,28,230,98,67,52, 
2,228,224,231,98,32,17,193,3,38 
,1583 

1110 DATA 13,230,98,196,143,250 
.121,226,52,2,234,224,231,98,57 
.0,0,2175 





Para entrar a colónia inicial, movi- 
mente o cursor utilizando as teclas de 
controle (flechas). Pressione a barra de 
espaço para criar ou eliminar uma célu- 
la na posição desejada, e a tecla < EN- 
TER» para terminar a entrada e iniciar 
о јово. 

Um detalhe importante: este progra- 
ma nào funcionará em um TRS-Color 
ou compatível que tenha um acionador 
de disquetes conectados, pois usa uma 
área de memória reservada. 














Desenhar na tela do computador usando 
centenas de comandos em BASIC náo é 
um procedimento razoável. Com o auxílio 
de um tablete gráfico, você trabalhará 
tão facilmente quanto com lápis e papel. 








Uma área de aplicação em que os 
computadores realmente excederam to- 
das as expectativas é a do desenho 
xiliado por computador, ou CAD (do in- 
glés Computer Aided Design). Máqui- 
nas de todos os tamanhos, dos micros 
domésticos aos computadores de gran- 
de porte (mainframes), têm sido usadas 
nas mais diversas áreas do desenho e do 
projeto gráfico. Desenhistas de moda, 
por exemplo, ou empresas de constru- 
ção civil, já empregam programas de 
CAD, e não apenas em projetos com- 
plexos. 

Muitos micros domésticos foram pla- 
nejados de modo a ter boa capacidade 
gráfica simplesmente para a implemen- 
tação de jogos do tipo videogame. Des- 
se ponto de partida, porém, desenvol- 
veram-se programas de desenho gráfi- 
co com recursos espetaculares, sobretu- 
do se levarmos em conta o tamanho e 





custo dos micros a que se destinam, 

Um dos periféricos mais úteis para a 
exploração da capacidade gráfica dos 
computadores é o tablete gráfico, tam- 
bém chamado de mesa digitalizadora. O 
tipo mais comum permite que o usuá- 
rio desenhe sobre uma superfície dura 
(o tablete), com o auxílio de uma cane- 
ta, O movimento da caneta no tablete 
é duplicado na tela do computador por 
meio de uma criativa combinação de 
hardware e software. 

Para obter resultados equivalentes, 
sem empregar um tablete gráfico, seria 
preciso recorrer a um considerável vo- 
lume de programação. Mesmo assim, 
não se conseguiria o mesmo grau de fle- 
xibilidade, sobretudo na alteração ou 
eliminação de partes do desenho, 

Até os tabletes mais simples permi- 
tem o desenho de linhas sobre a tela. De- 
pendendo do programa com o qual são 





usados, podem-se “pintar” áreas intei- 
ras com uma certa cor, entre as dispo- 
níveis em seu micro. Os programas pos- 
sibilitam ainda a mudança instantânea 
de cores no desenho, sob o comando de 
algumas teclas ou por seleção feita no 
próprio tablete. Efeitos de “pinceladas” 
de diferentes larguras também podem 
ser simulados pelo programa, em com- 
binação com o tablete. 


TIPOS DE TABLETE 


Existem diversos tipos de tablete pa- 
ra microcomputadores pessoais. O mais 
conhecido no Brasil é o KoalaPad, des- 
tinado aos modelos da linha Apple. De 
baixo custo em relação aos demais, 
apresenta algumas limitações, como a 
baixa resolução gráfica, 

Muitos outros modelos de tablete, co- 
mo o DigiPad, o GrafPad (para o Spec- 
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trum) e o BitPad One (para diversos ti- 
pos de micro), podem ser encontrados no 
exterior. No Brasil, sào mais comuns os 
tabletes digitalizadores para uso profis- 
sional, como os da marca Digigraf, bas- 
tante caros. 

Os tabletes gráficos sào vendidos em 
tamanhos que variam conforme a área 
de desenho disponível. Normalmente, 
suas medidas sáo especificadas segundo 
as dimensóes padronizadas das folhas de 
papel (padrào DIN), tal como A3, A4, 
A6 etc. Medem, assim, de 100 x 100 
mm (os menores, como o KoalaPad) a 
250 х 300 mm (tabletes médios, usados 
com micros pessoais). Os modelos uti- 
lizados com mesas digitalizadoras de 
grande porte, para aplicações em enge- 
nharia, chegam a'ter/1000 x 750 mm. 
O tamanho, evidentemente, afeta o grau 
de precisão que se consegue atingir ao 
desenhar na superfície do tablete. 


AA 


ANA 


Os tabletes variam também confor- 
me o cursor. Este pode ser um ponteiro 
ou uma caneta, preso ou nào ao tablete 
por um fio, ou, entáo, uma “mira” for- 
mada por uma lente de vidro ou plásti- 
co, com uma cruz ao centro. 

Existem ainda alguns tipos de digita- 
lizadores gráficos que funcionam de mo- 
do diferente dos tabletes: sáo os pantó- 
grafos, ou tragadores de régua. Esses 
dispositivos utilizam um brago articula- 
do que se move em duas direções, X e 
Y. Na ponta do braço, prende-se uma 
caneta ou um lápis. O sistema pode ser 
mais barato do que um digitalizador de 
desempenho médio, mas, em contrapar- 
tida, sua precisão é menor. Além disso, 
não é fácil desenhar à mão livre com o 
pantógrafo, Em algumas situações, po- 
rém, esse dispositivo mostra-se de bas- 
tante utilidade — por exemplo, quando 
as coordenadas de pontos isolados pre- 


rj ш 
um AS AO eh 


AS 
Еа» 


cisam ser lidas rapidamente pelo com- 
putador. 


COMO FUNCIONA 


O tablete gráfico emprega o princí- 
pio da digitalização de curvas, ampla- 
mente usado em informática, já que 
muitas aplicações computacionais con- 
sistem na transformação adequada de 
um fenômeno analógico para uma se- 
quiência de números binários (digitais). 

Um sinal analógico varia continua- 
mente e pode assumir qualquer valor 
fracionário, dentro de certos limites mí- 
nimo e máximo. Um exemplo de medi- 
dor analógico é o indicador de veloci- 
dade de um automóvel. Mas, como sa- 
bemos, o computador só é capaz de pro- 
cessar sinais digitais, ou seja, represen- 
tados por meio dos nümeros binários 0 
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€ 1. A digitalizacáo é justamente o pro- 
cesso de transformação de um sinal ana- 
lógico em um sinal digital que o com- 
putador possa “entender” e armazenar. 
O tablete gráfico, ou mesa digitaliza- 
dora, transforma desenhos em números 
(as coordenadas dos pontinhos que 
constituem as linhas do desenho). O 
computador, por sua vez, volta a trans- 
formar os números em desenhos, 
exibindo-os na tela com o máximo de fi- 
delidade ao original. Sem a tradução de 
uma figura em números, o computador 
não poderia “entender” o desenho. 
O processo de digitalização consiste 
em dividir uma curva no maior número 
possível de segmentos iguais, ou uma 
área no maior número possível de qua- 
dradinhos de igual tamanho. Quanto 
maior o número de partes, maior o de- 
talhamento do desenho a ser entrado no 
computador. Contornos de figuras ou 
retas inclinadas em ziguezague são típi- 
cos de desenhos de baixa resolução. 
O número e o tamanho dos quadra- 
dos de divisão da imagem dependem do 
tipo do tablete gráfico, assim como do 
computador. Em sistemas profissionais 
de alta resolução, o tamanho de um pi- 
xel chega a um centésimo de milímetro, 
e os contornos das figuras produzidas 
têm uma aparência contínua (como os 
desenhos animados gerados por compu- 
tador). Os tabletes gráficos para micros 


não têm uma resolução tão alta, eviden- 
temente, mas um décimo de milímetro 
já é suficiente para a produção de tra- 
balhos de boa qualidade. 

A área do tablete (bem como a do 
vídeo) é dividida em um quadriculado 
imaginário, cujo número de linhas e co- 
lunas varia de acordo com o computa- 
dor empregado ou, ainda, com o grau 
de resolugáo gráfica (baixa, média e al- 
ta, nos micros das linhas Apple, MSX 
e TRS-Color) selecionado pelo progra- 
ma ou pelo usuário, 

É importante lembrar que a resolu- 
çšo máxima do tablete pode ser diferen- 
te da resolução gráfica da tela. Não tem 
sentido, por exemplo, utilizar um tablete 
com resolução de 100 000 pontos na 
área total, se a tela só representa 45 000 
pontos. Estaremos desperdiçando recur- 
sos, a um certo preço, pois o computa- 
dor não seria capaz de utilizar tanta in- 
formação gráfica. A situação contrária 
também ocorre — ou seja, pode-se uti- 
lizar um computador de alta resolução 
gráfica com um tablete de baixa re- 
solução. 

Muitos tabletes digitalizadores têm, 
no entanto, superfícies quadriculadas 
que permitem estabelecer uma corres- 
pondência com a representação na tela. 
As linhas e colunas podem ser numera- 
das, como se costuma fazer com a gra- 
de de referência de uma mapa. 


Nesse tipo de grade, cada quadradi- 
nho tem duas coordenadas — o núme- 
ro da linha e o número da coluna — que 
correspondem, aproximadamente, às 
coordenadas X e Y do ponto do centro 
do quadradinho. Em um sistema onde 
o ponto de origem estivesse no canto in- 
ferior esquerdo do tablete, o quadradi- 
nho de número 10/23, por exemplo, e: 
taria a uma distância de dez quadra: 
nhos da esquerda, na horizontal, e a 23 
quadradinhos de distância da borda in- 
ferior, na vertical. Isso significa, portan- 
to, que um desenho — uma reta, por 
exemplo — pode ser convertido em uma 
série de números. Estes correspondem 
às coordenadas dos quadradinhos que 
a reta vai cruzar ao ser traçada sobre a 
superfície do tablete. 


А бЕВАСАО 00 $\М 


Existem diversas maneiras de produ- 
zir e enviar ao computador os pares de 
nümeros correspondentes aos pontos da 
superfície do tablete. 

Alguns tipos de mesa digitalizadora 
requerem uma caneta ou um apontador 
especial e dependem do contato direto 
da ponta desse dispositivo contra uma 
parte ativa da superfície; já outros exi- 
gem simplesmente o posicionamento 
próximo à superfície. 














Entre as técnicas mais comuns de di- 
gitalização estão incluídas a conversão 
AD direta, a digitalização por grade de 
contato e a digitalização por grade de 
proximidade. 

A conversão AD direta é usada ape- 
nas pelos digitalizadores do tipo panto- 
gráfico ou de régua. O método mais 
simples é o do digitalizador de régua. 
Este tem dois braços articulados: um 
que se move na direção horizontal, e ou- 
tro, na vertical. Potenciômetros são co- 
nectados a cada braço, por meio de en- 
grenagens ou de polias. À medida que 
deslocamos os braços pela superfície, os 
potenciômetros giram, produzindo uma 
voltagem contínua proporcional à dis- 
tância percorrida naquela direção, des- 
de a origem. Desse modo, obtemos as 
coordenadas X e Y dos pontos. 

O digitalizador pantográfico, por sua 
vez, possui dois braços, articulados em 
um “ombro” e um “cotovelo”, cada 
um dispondo de um potenciômetro. As 
coordenadas X e Y, nesse caso, têm que 
ser calculadas por métodos trigonomé- 
tricos, a partir dos ângulos de posicio- 
namento de cada braço. 

Um conversor AD, ou analógico- 
digital, é responsável pela conversão da 
voltagem gerada nos potenciômetros. O 
conversor AD utiliza um processo de 
comparação escalonada: uma voltagem 
de referência, gerada internamente no 
conversor AD, é aumentada passo a 
passo, em pequenos incrementos fixos. 
A cada passo, ela vai sendo comparada 
com o sinal de entrada. Quando, final- 
mente, as duas voltagens se igualam, o 
número de passos que foram necessários 
é enviado ao computador. A voltagem 
de referência é então zerada, e o proces- 
so recomeça para um novo ponto do si- 
nal de entrada. A freqüéncia de amos- 


К К O RR 


tragem corresponde ao número de ve- 
zes que isso é feito por segundo. 

O digitalizador pantográfico requer 
dois conversores AD, um para cada po- 
tenciômetro. A resolução do conversor 
(ou precisão) é dada pelo número má- 
ximo de “partes” (valor do incremen- 
to) em que uma voltagem de entrada po- 
de ser dividida, e está relacionada ao nú- 
mero de bits do conversor. Assim, um 
conversor de oito bits, por exemplo, po- 
de gerar apenas um número entre 0 e 255 
— Ou seja, a voltagem máxima é dividi- 
da em 256 pedacinhos. 

A informagáo gerada por cada con- 
versor é transferida diretamente para a 
memória do computador, através de al- 
guma porta de entrada (serial ou para- 
lela). Se a frequência de amostragem for 
muito grande, será necessário utilizar 
uma quantidade muito grande de me- 
mória, Por isso, a maioria dos progra- 
mas gráficos não armazena toda a infor- 
mação de um desenho em detalhes, mas 
simplesmente vai convertendo as coor- 
denadas em linhas na tela. 


SENSORES DE SUPERFICIE М 


O funcionamento dos tabletes exis- 
tentes para micros baseia-se, geralmen- 
te, em dois tipos distintos de mecanis- 
mo. Ambos dependem de sensores ocul- 
tos sob a superfície do tablete. 

Os tipos sensíveis ao contato direto 
são formados por duas folhas de plásti- 
co. Uma delas contém fios paralelos, es- 
paçados na direção horizontal; a outra, 
fios espaçados na direção vertical. Ao 
se encostar a ponta do estilete ou da ca- 
neta na superfície do tablete, o contato 
elétrico estabelecido entre os fios hori- 
zontais e verticais, naquele ponto, infor- 


ma ao computador as coordenadas do 
mesmo. Pode-se reconhecer facilmente 
esse tipo de tablete, já que qualquer ins- 
trumento pontiagudo, ou mesmo o pró- 
prio dedo, é capaz de ativar o sistema. 

As mesas digitalizadoras mais preci- 
sas, entretanto, utilizam o princípio da 
proximidade por indução eletromagné- 
tica. A malha de fios embutida sob a su- 
perfície recebe correntes elétricas em um 
sistema de varredura constante. Na pon- 
ta da caneta ou do cursor especial exis- 
te uma bobina detetora, que não preci- 
sa estar em contato direto com a super- 
fície. Pode-se, assim, colocar sobre es- 
ta uma folha de papel com o desenho 
já feito e copiá-lo. 


0 SOFTWARE 


Embora sejam muitas as diferengas 
dos tabletes digitalizadores quanto ao 
hardware, o que realmente conta, em 
termos da exploracào dos recursos de 
cada um, é o software. Como este tam- 
bém é o responsável pela definigáo das 
características do desenho e pela facili- 
dade com que ele pode ser executado, 
a maior preocupacáo do usuário deve 
ser a escolha do programa aplicativo. 
Para que náo se cometam erros, convém 
sempre assistir a uma demonstração 
completa do sistema. 

Evidentemente, o que o software é 
capaz de fazer depende muito do mode- 
lo do seu computador. Quanto mais rá- 
pido ele for, e quanto maior a sua me- 
mória, mais espaço existirá para a ope- 
ração de um tablete sofisticado. Aplica- 
ções em alta resolução, assim como pro- 
gramas com recursos embutidos, exigem 
muita memória. É interessante, portan- 





No menu de abertura, o KoalaPad mostra as opções disponíveis. 


A largura das “pinceladas” pode ser escolhida à vontade. 
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to, utilizar disquetes, que facilitam o ar- 
mazenamento de telas e expandem a ca- 
pacidade do sistema, pelo uso do disco 
como memória virtual. 

O mesmo acontece com a capacida- 
de gráfica do sistema. Um bom progra- 
ma para tabletes gráficos explora até o 
limite máximo os recursos disponíveis 
no microcomputador. 

Muitos programas controlados ape- 
nas pelo teclado, como o publicado no 
artigo da página 414, sáo similares, em 
operação, ao software destinado aos ta- 
bletes. Porém, quanto à facilidade, ra- 
pidez, conveniência e flexibilidade, é 
enorme a diferença entre um sistema 
operado por teclado e o operado por um 
tablete. Um sistema controlado por te- 
clado não permite, por exemplo, o de- 
senho a mão livre. 


O UTILIZAR UM TABLETE GRÁFII 


As combinações específicas entre 
computador/tablete variam bastante, 
pelas razóes expostas anteriormente. 
Entretanto, todos os programas existen- 
tes foram projetados para trabalhar si- 
mulando o ato de desenhar ou pintar so- 
bre uma folha de papel. É isto, mais do 
que qualquer outra coisa, que dá aos ta- 
bletes gráficos tanta vantagem em rela- 
ção aos demais métodos de criação de 
imagens de alta resolução no microcom- 
putador. 

Em geral, um menu de abertura, co- 
mo o existente para o KoalaPad, ofere- 
ce ao usuário diversas opções quanto à 
técnica e tipo de desenho que se preten- 
de executar. A escolha pode ser feita pe- 
lo teclado, ou, mais comumente, usan- 
do-se o próprio tablete gráfico como se 
fosse a paleta de um artista. A tela exi- 





A opção de “zoom” possibilita o desenho de pixels individuais, 


be potinhos de tinta, pincéis e outros 
materiais, que são selecionados com o 
cursor do tablete. Quando o cursor cor- 
respondente na tela estiver no lugar de- 
sejado, pressiona-se um botão ou tecla. 

O desenho é executado na tela a mão 
livre, seja usando apenas a imaginação, 
seja seguindo um modelo feito sobre pa- 
pel, que pode ser afixado ao tablete. Ca- 
be ao programa receber os sinais gera- 
dos pelo tablete, interpretá-los e colo- 
car instantaneamente a imagem traçada 
sobre a tela. 


OS PROGRAMAS E SEUS RECURSOS 


Algumas vezes, é difícil traçar uma 
reta, ou uma figura geométrica regular, 
a máo livre. Para isso, a maioria dos 
programas possui um menu de curvas e 
de figuras geométricas — como triángu- 
los, retángulos, arcos, círculos, elipses, 
retas etc. — que podem ser escolhidas, 
posicionadas sobre a tela e tragadas au- 
tomaticamente, no tamanho que se 
desejar. 

Os programas também oferecem o re- 
curso de apagar e corrigir partes do de- 
senho, ou, nos sistemas mais so! 
dos, de voltar atrás, desfazendo-se a úl- 
tima operação realizada. Se isso não for 
suficiente para a obtenção do resultado 
pretendido, pode-se ainda recorrer ao 
recurso de apagar toda a tela e começar 
tudo de novo. 

É possível mudar a cor usada nos tra- 
ços do desenho, assim como no preen- 
chimento automático de áreas delimita- 
das (paint), a qualquer instante, Deve- 
se, inicialmente, delinear o desenho uti- 
lizando uma determinada cor. Em segui- 
da, coloca-se o cursor gráfico no inte- 











rior da área assim demarcada, e a sele- 
ção adequada é realizada. Se o espaço 
não estiver completamente fechado, a 
cor “escapa” para fora do mesmo, po- 
dendo tomar toda a tela. Por isso, con- 
vém sempre completar o desenho antes 
de começar a colori-lo. 

Opções mais especializadas variam de 
programa para programa. Alguns pos- 
sibilitam o traçado automático de ima- 
gens especulares (cópia invertida), ou a 
cópia de uma parte do desenho em ou- 
tra posição. Esta operação é chamada 
de “carimbo”, pois permite ao usuário 
criar, por exemplo, uma floresta intei- 
ra a partir do desenho de uma única ár- 
vore, ou, para maior variação, de sua 
cópia especular. 


IO GUARDAR UMA IMAGEM 


Se vocé completou um desenho bo- 
nito e elaborado, certamente desejará 
armazená-lo permanentemente. Muitos 
softwares gráficos oferecem essa poss 
bilidade por meio de um comando — 
dentro, é claro, das limitações impostas 
pelo hardware que você tem à dispos 
ção. As figuras armazenadas podem ser 
recuperadas depois, com um comando 
de leitura, e os recursos do programa 
permitirão, ainda, que você as modifi- 
que. Se quiser, combine-as com outras 
figuras, que podem ser obtidas da bi- 
blioteca de ícones, fornecidos junto com 
o sistema ou criados por você. 

Armazene o desenho por tempo in- 
determinado ou utilize-o em outro pro- 
grama — num jogo, por exemplo. 

Para obter uma cópia da sua “obra 
de arte”, fotografe a tela usando um fil- 
me em cores, ou copie o desenho em um 
plotter ou impressora gráfica. 














Um recurso útil às composições é a repetição de elementos-chave. 


AVALANCHE: A 
ROTINA PRINCIPAL 


Já criamos uma página-título e uma 
página de instruções. Temos um tema 
musical e um cenário. Para completar 
o jogo, falta apenas uma rotina que 
controle as demais e dê vida a Willie. 


Este é o sétimo artigo da série Ava- 
lanche e você deve estar pensando, com 
razão, que já é hora de colocar o pro- 
grama em funcionamento. 

Um jogo em linguagem de máquina, 
porém, precisa de uma rotina principal 


que chame as rotinas de instrução, de exe- 
cução musical e de criação do cenário. 
Essa rotina deve ainda acertar os valores 


das variáveis do jogo, tais como o placar, 
o número de vidas e o nível de dificuldade. 
Sua origem será o endereço a ser chama- 
do quando quisermos rodar o programa. 

Depois de pronto, o programa será 
executado 'omaticamente assim que 
for lido da fita cassete. Por enquanto, 
contudo, não há razão para isso. Além 
do mais, precisamos ter acesso aos có- 
digos do programa para terminá-lo, o 
que seria absolutamente impossível s 
sua execução fosse automática. 


A listagem apresentada a seguir cor- 
responde à rotina principal que dá iní- 


TAREFAS DA ROTINA 
PRINCIPAL 

ORIGEM 

ACERTOS INICIAIS 
DANDO A PARTIDA 


versão do nosso jogo para os mi- 
crocomputadores Spectrum. 


10 REM org 58576 

20 REM gbin call ti 
30 REM ld a,5 

40 REM 1d (57343),a 
50 REM ld a,0 

60 REM 1d (57344),a 
70 REM 1d hl,0 

80 REM 1d (57337),hl 
90 REM 1d (57339),hl 
100 REM ld (57341),h1 
110 REM nlv ld a,19 
120 REM 1d (msk+1),a 
130 REM ret 

140 REM org 58035 
150 REM ti * 

160 REM org 58281 

170 REM mask * 
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A origem é o endereco que chamare- 
mos por intermédio do comando RAN- 
DOM USR para que o programa seja 
executado. Não se esqueça de anotá-lo. 

Os rótulos que fazem parte da lista- 
gem não são chamados por esta seção 
do jogo. Eles serão utilizados por roti- 
nas futuras, quando nosso personagem 
tiver morrido e você quiser começar o 
jogo novamente. 


O programa começa chamando a 
sub-rotina ti, que imprime os títulos e 
a página de instrução. 

Vários parâmetros relativos à conta- 
gem de pontos são então estabelecidos. 
O escore propriamente dito é colocado 
nos endereços 57337 a 57342, O núme- 
ro de vidas fica em 57343 e o nível de 
dificuldade em 57344. 


Linz aet] 


Para que o jogador tenha direito a 
cinco vidas, o número 5 é colocado em 
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57343, com o auxílio do acumulador. 
Zero é colocado do mesmo modo em 
57344, fazendo com que o nível de difi- 
culdade inicial seja O. 

O escore inicial, zero, é acertado co- 
locando-se O nos endereços 57337, 
57338, 57339, 57340, 57341 e 57342, por 
meio do par de registros HL. 

Em seguida, A recebe o valor 19, e 
a rotina musical msk é ajustada para 
executar as dezenove primeiras notas da 
melodia Greensleeves, 


Esta é a rotina que dá início à versão 
do nosso jogo para o TRS-Color. 


10 ORG 19426 
20 GBIN JSR START 


30 LDA 45 

40 STA 18239 

50 CLR 18238 

60 LDX 418240 

70 LDB 46 

80 GBINI CLR ,X* 
90 DECB 

100 BNE GBINI 

110 RTS 

120 START EQU 19000 





A origem corresponde ao endereco a 
ser chamado por intermédio da instru- 
ção EXEC, quando quisermos iniciar a 
execução do programa. Não se esqueça 
de anotar esse número 

Os rótulos da listagem não são utili- 
zados nesta parte da rotina. Eles serão 
chamados por outras seções do progra- 
ma, que publicaremos mais tarde. Sua 
função é recomeçar o jogo, caso você 
queira prosseguir quando Willie for fa- 
talmente vitimado. 


NDO A PARTIDA 


Antes de mais nada, o programa cha- 
ma a sub-rotina START, responsável 
pela impressáo da página-título e da pá- 
gina de instruções, que abrem o jogo 
Em seguida, são estabelecidos diversos 
valores iniciais que influem na contagem 
final de pontos. 

O nível de dificuldade do jogo é ar- 
mazenado no endereço de memória 
18238. O número de vidas, por sua vez, 
fica em 18239. O escore propriamente 
dito é guardado em seis bytes, a partir 
do endereço 18240. 











PRIMEIROS ACERTOS 


O nümero inicial de vidas de Willie, 
5, é colocado no acumulador e transfe- 
rido para 18239. A instrugáo CLR lim- 
pa a posigáo de memória 18238, para ze- 
rar o nível de dificuldade. 

O registro X recebe o enderego ini- 
cial dos bytes de escore e o contador B 
recebe o número 6 — número de bytes 
de escore. A instrução CLR ,X + lim- 
pa o conteúdo da posição de memória 
apontada por X e soma uma unidade ao 
valor de X. DEC B diminui B em uma 
unidade. A instrução BNE retorna ao 
rótulo GBINI para apagar o próximo 
byte até que B seja zero. Esse pequeno 
laço limpa todas as posições de 18240 a 
18245 — o que equivale a zerar todos 
os endereços que se referem ao escore, 
um depois do outro. 


SE 


Esta é a rotina principal que dá iní- 
cio ao jogo na versáo do MSX. 


10 org -11670 
20 cin call -12288 


30 call -12166 
40 ld a,5 
50 1а ( 
60 1d a,0 
70 14 (-5228),а 
80 ld hl,0 

90 14 (-5219),һ1 
100 1d (-5217),hl 
110 1d (-5215),hl 
120 hlv 1d a,19 
130 14 (-12162).а 
140 ret 

150 end 


A origem dessa rotina é o endereco 
que vocé chamará por intermédio de 
dois comandos, DEFUSR e USR(0), pa- 
ra começar a execuçào do jogo. Nào se 
esqueça de anotar esse número. 

Os rótulos que precedem as instru- 
ções não são chamados nesta parte do 
programa, Serão utilizados pelas rotinas 
que inicializam o jogo quando o pobre 
Willie tiver sido morto e você quiser jo- 
gar de novo. 


DANDO A PARTIDA 


Inicialmente a rotina chama as 
sub-rotinas -12228 e -12166. Enquanto 
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a primeira imprime o título e a página 
de instruções, à segunda cabe executar 
a música Greensleeves. 

Os vários parâmetros da contagem de 
pontos são, então, inicializados. O es- 
core propriamente dito é colocado nos 
endereços -5219 até -5214. O número de 
vidas fica em -5221 e o nível de dificul- 
dade, em -5228. 


ACERTOS INICIAIS 


O número 5 é colocado em -5221, por 
meio do acumulador, para que o joga- 
dor inicie a partida dispondo de cinco 
vidas. Do mesmo modo, 0 é colocado 
em -5228, para que o nível de dificulda- 
de inicial seja igual a 1. 

Os endereços -5219, -5218, -5217, 
-5216, -5215 e -5214, por sua vez, sào 
preenchidos com o valor 0, por intermé- 
dio do par de registros HL, zerando o 
escore inicial. 

Em seguida, a rotina responsável pela 
música — colocada no endereço -12166 
— é ajustada para executar exclusiva- 
mente as dezenove primeiras notas da 
melodia Greensleeves. 
















































CELTI m 


As mais modernas versóes do inter- 
pretador BASIC desenvolvido pela em- 
presa norte-americana Microsoft foram 
implementadas nos microcomputadores 
das linhas TRS-80, TRS-Color, MSX e 
ІВМ-РС. Tanto elas quanto o MBASIC 
(usado em qualquer micro que tenha o 
sistema operacional compatível com o 
CP/M) possuem diversos recursos para 
dar acesso direto às posições absolutas 
de memória do computador, bem como 
à execução de programas em código de 
máquina a partir de um programa em 
BASIC. 

Já estudamos os principais elementos 
do BASIC para efetuar essas funções: 
o PEEK e o POKE. Porém, para uma 
interação mais eficaz entre programas 
em linguagem de máquina e programas 
em BASIC, outros comandos são neces- 
sários. Destacam-se, entre eles, o DE- 
FUSR, o USR e o VARPTR. 

Em artigos anteriores, vimos diver- 
sos exemplos de como executar um pro- 
grama em linguagem de máquina a par- 
tir de um programa em BASIC. O mé- 
todo mais comum consiste em armaze- 
nar o programa em código de máquina 
em uma parte nào usada da memória 
RAM (ou seja, em uma parte nào sujei- 
ta a ser invadida pelo programa BASIC 
ou por sua área de variáveis), e execu- 
tá-lo por meio de um comando USR co- 
locado em um ponto qualquer do pro- 
grama em BASIC. O comando DE- 
FUSR, ou equivalente, é usado para in- 
dicar a locagáo inicial do programa em 
linguagem de máquina. 

Esse método, entretanto, apresenta 
alguns problemas: 

* O programa em código de máquina 
precisa ser montado à parte e armaze- 
nado em fita ou disco, para, então, ser 
carregado na memória. 

* É necessário reservar uma parte pro- 
tegida da memória para armazenar o 
programa, o que pode ser inconvenien- 
te em muitos tipos de aplicação. 


A FUN 'ARPTR 


Examinaremos, neste artigo, uma 
técnica alternativa, que consiste na uti- 


ROTINA EM CÓDIGO 
DE MÁQUINA (1) 


lização da função VARPTR para arma- 
zenar programas em linguagem de má- 
quina dentro do próprio programa em 
BASIC. Essa técnica proporciona pode- 
rosos recursos de programação para os 
usuários das linhas TRS-80, TRS-Color 
e MSX (os micros das linhas Sinclair e 
Apple dispõem do comando CALL, 
equivalente ao USR, mas não têm a fun- 
ção VARPTR). Veremos aqui como em- 
pregar a função VARPTR em micros da 
linha TRS-80; em artigos futuros trata- 
remos do TRS-Color e do MSX. 

O “truque” é muito simples: em vez 
de armazenarmos um programa em có- 
digo de máquina numa parte reservada 
de memória, nós o “enxertamos” dentro 
do programa em BASIC que o utilizará. 
Assim, quando o programa em BASIC 
for carregado da fita ou disco, para ser 
executado, trará junto, automaticamen- 
te, o programa ou programas em lingua- 
gem de máquina. Esse método permite 
a definição e armazenamento do núme- 
ro que quisermos de rotinas em lingua- 
gem de máquina, cada qual bem identi- 
ficada dentro do programa em BASIC. 

Mas onde armazenar código de má- 
quina dentro de um programa em BA- 
SIC? Existem diversas técnicas disponí- 
veis. As mais flexíveis, entretanto, usam 
o seguinte recurso: uma constante alfa- 
numérica (por exemplo, PG$) é defini- 
da dentro do programa, com um com- 
primento correspondente ao número de 
bytes do programa em código de máqui- 
na. Suponhamos, por exemplo, que a 
rotina em código de máquina terá doze 
bytes de extensão. Definimos, então: 


20 PG$-" " 


Observe que foram colocados doze 
espacos em branco entre as aspas da li- 
nha 20. No lugar desses espacos, porém, 
poderiam introduzir quaisquer caracte- 
res, iguais ou diferentes. O que vale é 
o nümero correto de caracteres. Muitos 
programadores preferem usar uma se- 
qüéncia numérica para assegurar que o 
número de bytes seja correto: 


20 PG$-"123456789012" 


Feito isso, carregamos os bytes dis- 
poníveis (que estáo automaticamente fi- 
xos e reservados na área de memória de 
programa) na variável PG$, com os có- 


Programas sofisticados e rápidos 
exigem a combinação de código 

de máquina e BASIC. Aprenda aqui 
uma série de truques para tornar 
mais eficaz a interação entre ambos. 


digos decimais, binários, octais, ou he- 
xadecimais correspondentes ao progra- 
ma em código de máquina. 

Um pequeno programa, contendo 
um laco FOR...NEXT, pode se encar- 
regar dessa tarefa. Ele lerá os códigos, 
armazenados em linhas DATA, e os co- 
locará nas locações absolutas de memó- 
ria, correspondentes à variável PGS, 
usando comandos POKE 

A operação só precisa ser feita uma 
vez. Depois, o programa de carregamen- 
to pode ser apagado. 

O processo é simples, mas há um de- 
talhe técnico a ser resolvido: a localiza- 
ção das posições da memória onde PG$ 
está armazenada. Teoricamente, pode- 
mos fazer esse cálculo para qualquer 
programa, desde que saibamos a loca- 
ção absoluta da memória onde ele co- 
meça (geralmente fixa para cada tipo de 
computador), e quantos bytes gasta ca- 
da linha do programa até chegarmos à 
linha em que PG$ é definida. 

Na prática, porém, tal cálculo é difi- 
cil e demorado, podendo tornar-se real- 
mente trabalhoso se o programa ainda es- 
tiver em desenvolvimento. Nesse caso, ca- 
da alteração no programa, feita acima da 
linha onde a variável PG$ é definida, al- 
tera a sua locação na memória. 


Му S VARIÁVEIS? 


Felizmente, é possível encarregar o 
próprio programa de calcular automa- 
ticamente a localizacào de PG$ na me- 
mória. Para isso, devemos usar a fun- 
ção VARPTR, cujo nome deriva da ex- 
pressão inglesa VARiable PoinTeR, ou 
apontador de variável. 

Para entender como essa função tra- 
balha, precisamos saber como o compu- 
tador armazena cadeias alfanuméricas 
na memória. Como vimos no artigo da 
página 947, seu programa pode ter aces- 
so direto a toda essa informação por 
meio da função VARPTR. 

Recapitulando: toda vez que uma va- 
riável alfanumérica é definida, o inter- 
pretador BASIC cria três bytes aponta- 
dores, que contêm o comprimento da 
cadeia alfanumérica e o endereço abso- 
luto de onde ela se inicia. Por exemplo, 
para uma variável A$: 











VARPTR(AS) = locação do apontador de A$ 
PEEK(VARPTR(AS)) = comprimento de A$ 
PEEK(VARPTR(AS)+1) = byte menos 
significativo 
do endereço 
de A$ 

byte mais 
significativo 
do endereço 
de A$ 


IM PROGRAMA IPLET 


Sabendo como determinar o endere- 
go inicial de uma variável string na me- 
mória, fica fácil escrever um programa 
para carregar código de máquina na 
mesma. Vejamos, por meio de um 
exemplo, como isso funciona. 

A rotina em linguagem de máquina, 
apresentada a seguir, preenche toda a te- 
la com um caractere qualquer, previa- 
mente colocado na primeira posigáo da 
tela (por exemplo, se colocarmos * na 
posição O da tela, uma chamada à roti- 
na preencherá a tela com asteriscos qua- 
se que instantaneamente). 


10 ORG OBFFOH ¡ORIGEM 

20 LD HL,15360 ¡HL APONTA Р/0 
30 LD DE,15361 E APONTA P/1 
40 LD BC,1023 OR 1023 VEZES 


PEEK(VARPTR(AS$)+2) = 








50 LDIR EPETE 
60 RET ¡VOLTA AO BASIC 
70 END 


Quando traduzido por um Assem- 
bler, esse curto programa daria doze 
bytes em hexadecimal: 


Linha 20: 21 00 3C 
Linha 30: 11 01 3C 
Linha 40: 01 FF 03 
Linha50: ED BO 
Linha 60: C9 


que, em decimal, correspondem a: 
33,0,60,17,1,60,1,255,3,237,176 


.201 
Vamos escrever agora nosso progra- 
ma principal — ou seja, o programa em 
linguagem BASIC que utiliza a rotina 
em código de máquina. 
Náo rode o programa ainda, pois o 
código de máquina náo foi carregado: 








O USO DE ROTINAS EM 





USR EM UM PROGRAMA 











CÓDIGO DE MÁQUINA M DIFERENÇAS ENTRE O BASIC 
DENTRO DE PROGRAMAS BASIC PARA CASSETE E PARA DISCO 
E OS COMANDOS USR E DEFUSR Ш UM PROGRAMA PARA 





п COMO ARMAZENAR ROTINAS 


10 CLS: PRINT” PROGRAMA DE TESTE 
20 PG$-" 

30 D=PEEK (VARPTR(PG$)+1) + 256 
* PEEK(VARPTR (PG$) *2) 

40 DEFUSRO=D 

80 PRINT: INPUT "CARACTERE "¡CS 
90 CLS:PRINT C$ 


*100 X-USRO (0) 


110 FOR І=1 TO 1000:МЕХТ І 
120 GOTO 10 


O programa funciona da seguinte 
maneira: a linha 20 define um string fi- 
xo, PG$, na memória de programa, 
com o comprimento de doze bytes. 

As linhas 30 e 40 localizam o endere- 
ço da variável PG$ e o definem como 
início de uma rotina de máquina. 

O comando usado para isso denomi- 
na-se DEFUSR, que é uma abreviatura 
da expressão DEFine USeR function. 
Seu objetivo é informar ao programa 
principal o endereço absoluto inicial da 
rotina. Nos microcomputadores da 1і- 
nha TRS-80 com BASIC para disco, 
podem-se definir até dez rotinas de 
usuário simultaneamente, por meio dos 
comandos DEFUSRO a DEFUSR9, que 
corresponderão às chamadas USRO a 
USR9. 

Para os microcomputadores da linha 
TRS-80 com BASIC para cassete, pode- 
se definir apenas uma rotina USR. Nesse 
caso, não se pode contar com o coman- 
do DEFUSR para informar o seu ende- 
reço de partida. Temos, assim, que dar 
dois POKE em um apontador específi- 
co da memória de trabalho do compu- 
tador. Eles correspondem aos bytes de 
endereço 16526 (para o byte menos sig- 
nificativo) e 16527 (para o byte mais sig- 
nificativo). Esse processo torna possível 
copiar diretamente os bytes obtidos pe- 
la função VARPTR. Para computado- 
res com BASIC para cassete, portanto, 
devemos substituir as seguintes linhas no 
programa anterior: 


30 POKE 16526, PEEK (VARPTR ( 
PG$)*1) 
40 POKE 15527,PEEK(VARPTR( 
PG$)*2) 


Como a variável PGS está fixa den- 
tro do programa, a definição com DE- 
FUSR ou com POKE só precisa ser rea- 
lizada uma vez. 

A linha 80 pede ao usuário que entre 
pelo teclado o caractere com que deseja 






PREENCHER A TELA 


preencher a tela. A linha 90 limpa a mes- 
ma e coloca o caractere indicado na pri- 
meira posição. 

Finalmente, a linha 100 executa a ro- 
tina, por meio da função fictícia USR (da 
expressão, em inglês, USeR function). 
Como não se trata de um comando, USR 
pode ser colocada dentro de uma expres- 
são matemática válida. No exemplo, não 
precisamos passar nenhum argumento 
para a rotina de máquina (o que seria fei- 
to por meio do yalor entre parênteses), 
nem obter um valor de retorno (o que se- 
ria feito através do próprio valor da fun- 
ção USR). Como vimos anteriormente, 
nos microcomputadores com BASIC pa- 
ra disco, cada DEFUSRn (onde n é um 
número inteiro entre O e 9) corresponde 
à rotina USRn. 

Como os computadores com lingua- 
gem BASIC para cassete aceitam ape- 
nas uma rotina de usuário, devemos 
substituir a linha 100 por: 


100 X=USR (0) 


PROGRAM, CARREGAMENTO 


Antes de usar ou gravar o programa 
principal, é necessário carregar o pro- 
grama de código de máquina na variá- 
vel PG$. Para fazê-lo, anexe ao progra- 
ma anterior as seguintes linhas: 


50 FOR It-D TO D*12:READ Nt : 
POKE It,Nt : NEXT It 

60 DATA 33, 0, 60, 17, 1, 
1, 255, 3, 237, 176, 201 
70 STOP 


O programa pode ser apagado com: 


60, 


DELETE 50-70 


Vocé notará que, ao listar o progra- 
ma principal, a linha 30 nào estará mais 
vazia: ela conterá códigos gráficos e até 
mesmo comandos em linguagem BA- 
SIC, dependendo da linha do computa- 
dor que vocé estiver usando. 

Vocé pode agora gravar e executar o 
programa quantas vezes quiser, sem ter 
que carregar separadamente o progra- 
ma em linguagem de máquina. E, é cla- 
ro, até dez variáveis alfanuméricas di- 
ferentes poderáo ser usadas no mesmo 
programa. Elas definiráo rotinas de má- 
quina separadas, que seráo chamadas de 
USRO, USR1, USR2 etc. 





A ARANHA 
MARCIANA 
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O jogo está completo. Armado com suas 
flechas, Freddy observa os balóes que 
comegam a subir. Precisará de muito 
sangue frio para estourá-los e impedir 
que a aranha venha em sua direcáo. 


Já digitamos as rotinas encarregadas 


de inicializar o jogo e de fazer a monta- 


WA 





AS 
v x 

































10 
15 


30 
50 
70 
90 


10 
0 
50 


20 





GOSUB 3000 





ТЕ ax<>29 THEN GOSUB 300 
2 ^ 70 GOSUB 400 
E 90 GOSUB 500 
100 GOSUR 200: IF dead=0 THEN 
(4 бото 50 
10 CLS 3: PRINT 6266,"INICIALIZ 


ANDO” ; : SCREEN 0,1 


GOSUB 1000 
GOSUB 1600 
GOSUB 3000 
IF AX<>29 THEN GOSUB 300 
GOSUB 400 
GOSUB 500 


100 GOSUB 210:IF DD=0 THEN 50 


CLS:COLOR 1,14,14 

OPEN "GRP:" FOR OUTPUT AS $1 
GOSUB 1000 

GOSUB 3000 

IF AX<>29 THEN GOSUB 300 
GOSUB 400 

GOSUB 500 


100 GOSUB 210:IF DD=0 THEN 50 





gem dos gráficos. 10 TEXT HOME PRINT "UM MOM 
Vamos agora completar o programa,  ENTO..." 
adicionando as rotinas de animação. 15 HIMEM: 18817 
20 GOSUB 1000 
30 GOSUB 3000 
O LAGO PRINCIPAL 50 IF AX € > 28 THEN GOSUB 3 
00 
70 GOSUB 400 
A 90 GOSUB 500 
CLEAR 65287 100 GOSUB 210: IF DD = O THEN 
GOSUB 1000 50 ” 


Esse programa, o principal do jogo, 
foi estruturado de modo a chamar ape- 
nas as sub-rotinas necessárias. Primei- 
ramente, ele define a tela e reserva es- 
pago na parte superior da memória (Ap- 
ple, TK-2000 e Spectrum). As sub- 
rotinas chamadas nas linhas 20 a 30 (lis- 
tadas no artigo anterior) têm a função 
de definir os blocos gráficos e iniciali- 
zar o valor do recorde. 

O laço principal do programa vai da 
linha 50 à linha 100, e se repete enquan- 
to Freddy estiver vivo (variável dead ou 
DD maior do que zero). Esse laço é res- 
ponsável pelo movimento da flecha, dà 
aranha, de Freddy e dos balões. Cada 
rotina chamada atualiza as variáveis 
dentro do laço. 


HORA DO "ALMOCO 


І 
Г 
1 
i 
1 
1 
f 
( 


105 LET s(xinc)=1 
110 FOR x=s(xpos) TO 29: GOSUB ' 
500: NEXT x 


120 LET s(yinc)-1: LET s(xinc) + 









-0 

125 FOR y-s(ypos) TO 19 

130 IF y=my AND ax=29 THEN 
POKE 23607,60: PRINT AT my*l, 





29;" ": РОКЕ 23697,252 
140 GOSUB 500 

150 NEXT y 

160 POKE 23607,60: PRINT AT 10 
,0; INK 2; PAPER 7; BRIGHT 1; 
FLASH 1;"Voce esta morto! Out 
ra jogada ?";: POKE 23607,252 
165 LET aS=INKEYS: IF ag="" 
THEN GOTO 160 

170 1F a$- OR a$-"S" THEN 
сото 30 

175 IF aSC»"n" AND a$4»"N" 
THEN СОТО 160 


180 POKE 23607,60: CLS : STOP 


105 S(XI)*1 
110 FOR X=S(XP) TO 29:GOSUB 500 
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FLECHAS CONTRA BALÕES 
FREDDY SOBE 

E DESCE A ESCADA 

A ANIMAÇÃO DA ARANHA 
ESTOURANDO BALÕES 


O JOGO COMPLETO M 
LAÇO PRINCIPAL Mi 
A ARANHA 
ATACA FREDDY M 
BALÕES EM MOVIMENTO Ш 











:NEXT X 
120 S(Y1)=1:S(XI)=0 £ 


125 FOR Y=S(YP) TO 19 






130 IF Y=MY AND AX=29 THEN PUT( т 
232, (MY*1) *8) - (239, (MY*1)*8*7), 
S1,PSET 
140 GOSUB 500 «or D) p 
150 NEXT Y 
1:8 


160 FOR SL-180 TO 160 STEP - 
OUND SL,l:NEXT:CLS:PRINT 6256," 
VOCE ESTA MORTO ! 

QUER RECOMECAR (S/N) ?" 
165 AS-INKEYS:IF A$-"" THEN 165 
170 IF A$-"S" THEN 30 
175 IF AS<>"N” THEN 160 
180 CLS: END 


gw 
Š 


105 S(XI)=1 

110 FOR X=S(XP) TO 29:GOSUB 500 
:NEXT X 

120 S(YI)=1:S(XI)=0 

125 FOR Y=S(YP) TO 19 

130 IF Y=MY THEN PUT SPRITE 2,( 
X2,Y2),0,FD:PUT SPRITE 3,(X2,Y2 
),0,FL 

140 GOSUB 500 

150 NEXT Y 

160 PLAY”ABCDEF”:FOR X=1 TO 300 
:NEXT:SCREENO:CLS:PRINT"Vocé es 
tá morto!":LOCATE 0,12:PRINT"Jo 
9a novamente? (S/N)" 

165 AS-INKEYS:IF A$-"" THEN 165 
170 IF A$-"S" THEN RUN 

175 IF AS<>"N” THEN 160 

180 CLS:END 


SS 


en. 





) 
























976 





105 S(XI) = 1 






110 FOR X = S(XP) TO 29: GOSUB 
500: NEXT X 

120 S(YI) = 1:S(XI) = 0 

125 FOR Y = S(YP) TO 19 

130 HCOLOR- 0: FOR X = 16 TO 2 
4: HPLOT 230,Y * 8 * X TO 260,Y 
* B * X: NEXT : HCOLOR= 3 

140 GOSUB 500 

150 NEXT Y 

160 FOR SL = 1 TO 5: PRINT CH 
R$ (7);: NEXT : TEXT : HOME : P 
RINT "VOCE ESTA MORTO!": VUTAB 1 
5: PRINT "QUER RECOMECAR? (S/N) 
170 GET AS 

180 IF AS - "S" THEN НОМЕ 
ото 30 

190 HOME : END 


Após a remogáo de todas as portas da 
gaiola da aranha, a variável dead (ou 
DD, nos outros microcomputadores) as- 
sume o valor 1 e as linhas 105 a 180 são 
executadas (190 no Apple e no TK-2000). 

A aranha move-se horizontalmente 
até chegar logo acima de Freddy. Em se- 
guida, realiza um movimento vertical, 
alcançando nosso infeliz personagem, 
que é, então, devorado. Quando isso 
ocorre, o jogador tem a opção de jogar 
mais uma vez (linhas 160 a 180). No pro- 
grama do Spectrum, deve-se colocar o 
valor 60 na posição 23607 para que to- 
do o conjunto de caracteres seja usado 
novamente. 


A" ú 
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SOBEM OS BALÓES 





210 LET b(count)=b(count)-1: 
IF b(count)<>0 THEN GOTO 280 
220 LET b(count)=b(maxcount) 
PRINT AT b(ypos)*l,b(xpos);" 
"ҙ: LET b(ypos)-b(ypos)-1: IF 
b(ypos)=4 THEN GOSUB 600 
POKE 23607,60: PRINT AT 1,10+( 
3-props)*9;"";AT 2,10*(3-props 
)*9;" ": POKE 23607,252: LET 
props=props-1 

225 IF props=0 THEN LET dead= 
1 


230 IF ((ay<>b(ypos) AND ay<>b 
(уроз) +1) OR (ax€b(xpos)-l OR 
ax»b(xpos)*1)) THEN GOTO 250 


240 LET score=score+b (points) 
GOSUB 600: TF score>hiscore 
THEN LET hiscore=score: POKE 
23607,60: PRINT AT 0,23; INK O 
; PAPER 6;hiscore: POKE 23607, 
252 

245 GOTO 380 

250 GOSUB 4300 

280 RETURN 

210 B(CT)=B(CT)-1:1F B(CT)<>0 T 
HEN 280 

220 B(CT)=B(MC) 

221 B(YP)*B(YP)-1: IF B(YP)=4 T 
HEN X2=B(XP)*8:Y2=B(YP)*8+8:PUT 


(X2,Y2) -(X2*15, Y2*15) , SP, PSET:G 
OSUB 600:X2-(10* (3-PP) *9) *B: PUT 
(X2,8) - (X2*7,15) , S1, PSET: PUT (X 
2,16)-(X2+7,23),S1,PSET:PP=PP-1 
225 IF PP=0 THEN DD=1 
230 IF ((AY<>B(YP) AND AY<>B(YP 
)+1) OR (AX<B(XP)-1 OR AX>B(XP) 
+1)) THEN 250 
240 SC=SC+B(PO) :X2=B(XP)*8:Y2=( 
B(YP)+1)*8:PUT(X2,Y2)-(X2+15,Y2 
+15) ,SP,PSET:GOSUB 600:IF SC>HS 


THEN HS=SC:GOSUB 1700 
245 GOTO 400 

250 GOSUB 4300 

280 RETURN 


210 
HEN 
220 B(CT)=B(MC) 

222 B(YP)=B(YP)-1:1F B(YP)=4 TH 
EN GOSUB 600:LINE ((10+((3-PP)* 
9))*8,7)-((10+((3-PP)*9))*8+7,2 
4),14,BF:PP=PP-1 

225 IF PP-0 THEN DD*1 

230 IF ((AY<>B(YP) AND AY<>B(YP 
)+1) OR (AX<B(XP)-1 OR AX>B(XP) 
+1)) THEN 250 
240 SC=SC+B(PO) 
>HS THEN HS=SC:GOSUB 
245 GOTO 400 

250 GOSUB 4300 

280 RETURN 


B(CT)=B(CT)-1 
280 


IF B(CT)<>0 T 





GOSUB 600:1F SC 
1700 


В(СТ) = В(СТ) - 1: IF B(CT) 
0 THEN 280 

B(CT) - B(MC) 

2 B(YP) * B(YP) - 1 

4 THEN X2 - B(XP) * 8:Y2 - B 

(YP) * 8 + 8: HCOLOR= 0: DRAW B 

A AT X2,Y2: GOSUB 600: HCOLOR= 

0: FOR X - 0 TO 6: HPLOT X * (4 
PP) * 77,4 TO X * (4 - PP) * 
75,22: NEXT :PP = PP - 1 

225 IF PP = 0 THEN DD = 1 

230 IF ((AY < > B(YP) AND AY 

< 2» B(YP) * 1) OR (AX € B(XP) 

- 1 OR AX > B(XP) + 1)) THEN 25 

0 

240 SC - SC * B(PO) 

* B:Y2 - (B(YP) * 1) * 8: HCOLO 

R- 0: DRAW BA AT X2,Y2: HCOLOR* 
3: GOSUB 600: IF SC > HS THEN 

HS = SC: GOSUB 1700 

245 GOTO 400 

250 GOSUB 4300 

280 RETURN 


TF B(YP) 








X2 * B(XP) 


Os elementos mais importantes da 
matriz do baláo sáo b (count) e b (max- 
count), para o Spectrum, e B (CT) e B 
(MC), para as outras linhas. Cada vez 
que a rotina é acionada, a linha 210 de- 
crementa b (count) ou B (CT), quando 
ela atinge 0, o balào se move. Em segui- 
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da, a linha 220 copia o número de b 


A velocidade do balão é determinada pe: 
lo valor de b (maxcount) — ou B (MC). 
A linha 220 verifica se o balão foi atin- 
gido ou se chegou ao topo da tela. 

Se o balão foi atingido, o placar é i 
crementado; se ele chegou ao topo, um: 
porta é removida. Quando todas as por- 
tas forem removidas, a variável dead (ou 
DD) assume o valor J]. 





O ESTOURO DO BAI 





300 PRINT AT ay;ax;" ": ГЕТ 
ах=ах-1: IF ax<0 THEN LET ax= 
29: PRINT AT my*1,29;"e": LET 
ау=ту+1: RETURN 

310 IF ((ay=b(ypos) OR ay=b (WY 
08)+1) AND (ax=b(xpos) OR ах= 
(xpos)+1)) THEN LET score=sco “ 
re+b(points): GOSUB 600: IF sc 
ore>hiscore THEN LET hiscore= 
score: POKE 23607,60: PRINT AT 
0,23; INK 0; PAPER 6;hiscore: 
POKE 23607,252 

330 IF ax<>29 THEN GOSUB 4100 
340 RETURN 


300 PUT(AX*B,AYX*B) - (AX*8*15,AY* 
8+7) ,82,РЗЕТ:АХ=АХ-1:ІҒ АХ<0 TH 
ЕМ АХ=29:РОТ (232, (МҮ+1) *8) – (239 
y (MY+1)*8+7) E, PSET:AY=MY+1:RET 
URN 

310 IF ((AY-B(YP) OR AY-B(YP)*1 
) AND (AX=B(XP) OR AX-B(XP)*1)) 
THEN SC=SC+B(PO) :Х2=В (ХР) *8:Ү2 
=В (ҮР) *8+8:РОТ (Х2,Ү2) - (X2*15,Y2 
+15) ,SP,PSET:GOSUB 600:IF SC>HS 
THEN HS=SC:GOSUB 1700 

330 IF AX<>29 THEN GOSUB 4110 
340 RETURN 


300 AX-AX-1:IF AXX0 THEN AX-29 
PUT SPRITE 3, (232, (MY)*B) , 4, FL: 
AY-MY:RETURN 

310 IF ((AY=B(YP) OR AY=B(YP)+1 
) AND (AX=B(XP) OR AX=B(XP)+1)) 














(maxcount) para b (count) — ou B (MC) 
para B (CT), nos demais computadores 










с 


































NS 


THEN SC=SC+B (PO) :GOSUB 600: 1F 
SC>HS THEN HS=SC:GOSUB 1700 
330 IF AX<>29 THEN GOSUB 4110 
340 RETURN 








300 HCOLOR- 0: 
8,AY * 8: HCOLOR= 
1: IF AX € 0 THEN AX - 
FL AT AX * B,(MY * 1) 
MY * 1: RETURN 
310 IF ((AY = B(XP) OR AY = B( 
YP) + 1) AND (AX = B(XP) OR AX 
= B(XP) + 1)) THEN SC = SC + B( 
PO):X2 = B(XP) * 8:Y2 = B(YP) * 
8: HCOLOR= 0: DRAW BA AT X2,Y2 
HCOLOR- 3: GOSUB 600: IF SC > 
HS THEN HS - SC: GOSUB 1700 
330 IF AX « > 28 THEN GOSUB 
4110 
340 RETURN 


Esta e a rotina que anima a flecha. 
Ela apaga a imagem anterior e coloca a 
nova na posição seguinte, determinada 


DRAW FL AT AX * 
3:AX 












E 


pum 


S 
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N 


peia variável AX. Essa variável é decre- 
mentada na linha 300. Para evitar que 
a flecha seja posta fora da tela, AX é 
recolocada em 29 (28, no Apple e no 
TK-2000) sempre que atinge um valor 
inferior a zero. Quando o valor de AX 
é 29 (ou 28), a flecha está com Freddy, 
e, como o balão não pode ser estoura- 
do, a rotina é abandonada. 

Logo depois do disparo da flecha — 
AX < >29 —, a linha 310 verifica se ela 
atingiu o balão e, em caso positivo, au- 
menta o placar. A rotina da linha 600, 
que promove o estouro do balão, é, en- 
tão, chamada. 

A linha 330, por sua vez, chama a 
sub-rotinà que desenha a flecha na po- 
sição de Freddy. 


FREDDY NA ESCADA 


400 LET a$-INKEY$: IF a$-"" 
THEN RETURN 

410 IF a$-"Z" OR a$-"z" THEN 
GOTO 450 

420 IF a$-"c" OR a$-"C" THEN 
GOTO 440 

430 IF a$<>” ” THEN RETURN 
432 IF ax<>29 THEN RETURN 
434 LET ax-28: PRINT AT ay,29; 
" ": RETURN 


M 440 IF my=19 THEN RETURN 








445 PRINT AT my,30; INK 6;"kl" 
LET my-my*l: PRINT AT ау,29; 
" ": IF ax-29 THEN LET ay-ay* 


1 
446 сото 470 
450 IF my-5 THEN RETURN 








460 PRINT AT my*2,30; INK 6;" 
КІ": LET my-my-l: PRINT AT ay, 
29;" ": IF ax-29 THEN LET ay* 
ау-1 


470 GOSUB 4000: 


400 
N 


RETURN 


IF PEEK(337)=255 THEN RETUR 
410 
420 
430 
RN 
432 IF AX<>29 THEN RETURN 

434 AX=28:PUT(232,AY*8)-(239,AY 
*8+7) ,S1,PSET: RETURN 

440 IF MY-19 THEN RETURN 

445 PUT(240,MY*8) - (255,MY*8*7) , 
KL,PSET:MY=MY+1:PUT(232,AY*8)-( 
239,AY*8+7),S1,PSET:IF AX=29 TH 
EN AY=AY+1 

446 GOTO 470 

450 IF MY-5 THEN RETURN 

460 PUT(240,MY*8+16)- (255,MY*8+ 
23),KL, PSET: MY *MY-1:PUT(232,AY* 
8)-(239,AY*8*7) , S1, PSET:IF AX-2 
9 THEN AY=AY-1 

470 GOSUB 4000:RETURN 


nu 


400 
410 
420 
430 
432 
434 
440 
445 
+1 

446 
450 
460 
-1 

470 GOSUB 4000:RETURN 


(sk) [có] 


IF 
IF 
IF 


PEEK(341)=247 THEN 450 
PEEK(342)=247 THEN 440 
PEEK(345)<>247 THEN RETU 


AS=INKEYS 

IF AS=CHR$(30) THEN 450 

IF AS=CHR$(31) THEN 440 

IF AS<>CHR$(32) THEN RETURN 
IF AX<>29 THEN RETURN 
AX=28: RETURN 

IF MY=21 THEN RETURN 
MY-MY*1:IF AX=29 THEN AY=AY 


GOTO 470 
IF MY=5 THEN RETURN 
MY=MY-1:IF AX=29 THEN AY=AY 


400 POKE - 16368,0: FOR X = 1 
TO 10: IF PEEK ( - 16384) > 1 
27 THEN X = 10: NEXT :PK = PEE 
K ( - 16384): GOTO 410 

405 POKE - 16368,0: NEXT : RE 
TURN 

410 IF PK = 218 THEN 440 

420 IF PK = 193 THEN 450 

430 IF PK «X > 160 THEN RETUR 
N 

432 IF AX < > 28 THEN RETURN 
434 AX = 27: HCOLOR= 0: DRAW FL 
AT 224,AY * 8: HCOLOR= 3: RETU 
RN 

440 IF MY = 19 THEN RETURN 
445 HCOLOR= 0: DRAW FD AT 240, 


MY * 8:MY = MY * 1: 


IF AX = 28 


THEN DRAW FL AT AX * 8,AY * 8: 


AY = AY * 1 

446  HCOLOR- 3: DRAW FD AT 240, 
My * 8 

448 GOTO 470 

450 IF MY = 5 THEN RETURN 
460 HCOLOR= 0: DRAW FD AT 240, 
MY * 8:MY = MY - 1: IF AX = 28 
THEN DRAW FL AT АХ * 8,AY * 8: 
AY = AY - 1 

465 DRAW FD AT 240,MY * 8 

470 HCOLOR= 3: GOSUB 4000: RET 
URN 


Em todos os programas, as linhas 400 
a 420 léem o teclado, enquanto as linhas 
430 e 440 verificam se a barra de espa- 
ços foi pressionada e se Freddy está com 
a flecha. 

Enquanto nosso personagem se mo- 
vimenta para cima ou para baixo na es- 
cada, os caracteres desta tém que ser re- 
postos (ou a escada acabará desapare- 
cendo). Se AX = 29 (28, na versáo pa- 
ra o Apple e o TK-2000), a flecha tam- 
bém deve ser movimentada, 

Para que o programa funcione ade- 
quadamente no TK-2000, os usuários 
precisaráo adaptar o trecho que vai da 
linha 400 até a linha 405. Consulte o ar- 
tigo de Programagáo BASIC que trata 
da substituicáo da funcáo INKEYS nes- 
se microcomputador e faca, entáo, as al- 
terações que forem necessárias. 


AS PERNAS DA ARANHA 


500 LET temp*s(xpos)*s(xinc) 
510 IF temp<l OR temp>8+(3-pro 
ps)*9 THEN LET s(xinc)*-s(xin 
c): GOTO 500 

520 POKE 23607,60: PRINT AT s( 
vpos),s(xpom);" ";АТ в(уров)% 
l,s(xpos);" POKE 23607,252 
530 LET s(ypos)=s(ypos)+s(yinc 
): ШЕТ s(xpos)=temp: LET s(pic 
ture)=1-s (picture): GOSUB 4200 
540 RETURN 








500 ТЕ=8 (ХР) +8 (ХІ) 

510 ІР ТЕ<1 ОВ ТЕ>8%(3-РР)%9 ТН 
EN S(XI)=-S(XI):GOTO 500 

520 X2-S(XP) *B: Y2-8 (YP) *B: PUT (X 
2,Y2)-(X2*15,Y2*15) , SP, PSET 

530 S(YP)=S(YP)+8(Y1) :S(XP)=TE: 
S(PI)*1-S(PI):GOSUB 4200 

540 RETURN 


nu 


500 TE=S(XP)+S(XI) 

510 IF ТЕ<1 OR TE>8+(3-PP)*9 ТН 
ЕМ S(XI)=-S(XI):GOTO 500 

530 S(YP)*S(YP) *8(YI) :S(XP) -TE: 
S(PI)=1-S(PI):GOSUB 4200 

540 RETURN 


[co] [ak] 


500 TE = S(XP) + S(XI) 

510 IF TEX 1 OR TE >8 + (3.- 
PP) * 9 THEN S(XI) = - S(XI): 
GOTO 500 

520 X2 = S(XP) * 8:Y2 = S(YP) * 
8: HCOLOR= 0: DRAW S(PI) + 1 A 


T X2,Y2: HCOLOR- 3 

530 S(YP) = S(YP) + S(YI):S(XP) 
= TE:S(PI) = 1 - S(PI): GOSUB 
4200 

540 RETURN 


A última rotina de animação trata da 
aranha marciana. Para tornar o jogo 
mais emocionante, ela não fica parada 
esperando por seu “almoço”. Ao con- 
trário, movimenta-se impacientemente 
entre a parede e as portas. Desenhamos, 
por isso, duas figuras para a aranha. O 
número da figura corrente, manipulado 
pela linha 530, é guardado em s (pictu- 
re), no programa do Spectrum, e em S 
(PD, no dos demais micros. 

As linhas 500 e 510 têm a função de 
impedir que a aranha escape de sua gaio- 
la antes que todas as portas tenham si- 
do removidas. 


ERA UMA VEZ UM В, 


600 PRINT AT Ь(уров),Ь(хров); 
BRIGHT l; INK b(colour);"gh”; 
AT b(ypos)*l,b(xpos);"ij" 
610 POKE 23607,60 
620 PRINT AT 0,14; 
PAPER 6;score 

630 SOUND .5,-20 
635 LET bl=bl- 
INK 0; PAPER 6;bl;: 
THEN PRINT INK 0; 


ІМК 0; 





PRINT AT 0,7; 
IF bl=9 
PAPER 6;" 


637 IF bl=0 THEN LET bl=15+5* 
level: LET level-level*l: LET 
props-props-1: PRINT INK 0; 
PAPER 6;AT 0,7;bl;AT 0,2;level 
: GOSUB 6000 
640 РВІМТ АТ Ь (уров) ,Ь (хров);" 
";AT b(ypos)*l,b(xpos);" " 
650 PRINT AT ay,ax;" ^": LET a 
x*29: LET ay-my*l 
660 POKE 23607,252: GOSUB 4000 
: GOSUB 5000: RETURN 








600 X2-B(XP) *B: Y2-B(YP) *B:PUT ( 
X2,Y2) -(X2*15,Y2*15) , GJ, PSET 
620 COLOR O:LINE(114,2)- (150,7) 
+PSET,BF:NU=SC:DRAW"C1;BM114,2” 
:GOSUB 1650 

630 PLAY"V31;T200;02;BAGFEDC;01 
; BAGFEDC" 

635 BL-BL-1:COLORO:LINE(58,2)-( 
68,7) , PSET, BF: DRAW"BM58,2;82;Cl 
":NU=BL:GOSUB 1650 

637 IF BL=0 THEN PP=3:LU=LV+1:B 














































38 PROGRAMAÇÃO DEJOGOS 38 
E 

L=15+5*LV:COLORO:LINE (14,2)-(24 
+7),PSET,BF:LINE (58,2)-(68,7),P 
SET,BF:NULV:DRAW"BMl4,2;Cl":GO 600 HCOLOR= 3:X2 = B(XP) * 8:Y 
SUB 1650:GOSUB 6000:NU=BL:DRAW” 2 = B(YP) * 8: DRAW BE AT X2,Y2 
BM58,2;Cl":GOSUB 1650 
640 X2=B(XP)*8:Y2=B(YP)*8:PUT(X 610 BL = BL - 1 
2,Y2)-(X2+15,Y2+15),SP,PSET 620 IF BL - 0 THEN PP - 3:10 = 
650 PUT(AX*B,AYX8)-(AX*B*15,AY* Ly + 1:BL = 15 + 5 * LU 
8+7),82,PSET:AX=29:AY=MY+1 630 
660 GOSUB 4000:GOSUB 5000:RETUR 640 HCOLOR= 0:X2 = B(XP) * 8:Y 
Б 2 = B(YP) * 8: DRAW BE AT X2,Y2 

650 DRAW FL AT AX * 8,AY * 8:A 

Фе мы Х = 28:AY - MY + l: HCOLOR= 3 

PRITE 4, (222) ,9 pe PUT S 660 GOSUB 4000: GOSUB 5000: RE 
630 BL=BL-1 Qul 
640 IF BL=0 THEN PP=3:LU=LV+1:B В 
Le1545*LU - Essa rotina promove o estouro do ba- 
650 GOSUB 1700 lão quando ele é atingido pela flecha. 


660 PUT SPRITE 3,(AX*8,AY*B),4, 
FL:AX=29:AY=MY 

670 GOSUB 4000:GOSUB 5000:RETUR 
N 

















Ela é muito simples: apenas coloca na 
tela a imagem do baláo estourado, apa- 
gando-a em seguida. 

Depois de cada estouro, atualiza-se 
o número de balões restantes e, se for 
necessário, também o nível de dificul- 
dade. A flecha deve voltar, então, à po- 
sição de Freddy, para que ele possa es- 
tourar o próximo balão. 


ШИНЕНЕЕ П 8 00 80 PROGRAMACO BASIC (8000000007 


ALAVANCAS, 
POLIAS E ROLDANAS 


A mecánica é a área da física que 
estuda as forgas que interagem entre 
0s corpos. Utilize o computador para 
analisar alguns de seus princípios, 
simulando situacóes da vida cotidiana. 


Os grandes monumentos antigos — 
como as pirámides do Egito e os tem- 
plos incas — sempre nos intrigaram, 
pois os povos que os construíram nào 
possuíam a avançada tecnologia de que 
dispomos nos dias de hoje. 

Nenhum construtor contemporáneo 
se atreveria a executar uma obra como 
aquelas sem ter em máos um equipa- 
mento que o ajudasse a cortar, transpor- 


tar e erguer a grandes alturas as gigan- 
tescas pedras que as compóem. No en- 
tanto, nossas mais sofisticadas máquinas 
sáo projetadas a partir dos mesmos prin- 
cípios que orientavam os antigos enge- 
nheiros. A ciéncia que estuda tais prin- 
cípios é a mecánica. 

As forças que atuam sobre um siste- 
ma estático (como um edifício) ou diná- 
mico (como as engrenagens de uma má- 
quina) são percebidas de modo quase 
instintivo. Assim, quando levantamos 
uma xícara de café, calculamos automa- 
ticamente a forga exata para fazé-lo sem 
derramar o líquido. Do mesmo modo, 
ao escolhermos uma tábua para uma es- 
tante, sabemos mais ou menos qual a es- 
pessura que ela deve ter para suportar 
um determinado peso. 





= A ALAVANCA 
= DISTÁNCIA X PESO 
SISTEMAS DE POLIAS 
POUPANDO ESFORCOS 

O ELEVADOR HIDRÁULICO 





Em situações simples, como as men- 
cionadas, apenas estimamos as forças 
em questão. Porém, em alguns casos, os 
cálculos devem ser muito precisos. í 
que entram os computadores. 

Vocë pode, é claro, usar dados obti- 
dos através de suas próprias experién- 
cias para planejar simulacóes envolven- 
do forgas. Assim, em programas de jo- 
gos, é possível estimar, com uma boa 
margem de acerto, a que distáncia uma 
bola vai parar depois de ter sido golpea- 
da por um bastáo. 

Mas o computador em geral requer 
dados muito precisos. Quando um en- 
genheiro está projetando uma ponte, 
por exemplo, ele precisa saber exata- 
mente a forga que atua sobre cada es- 
trutura e o seu limite máximo de resis- 




















téncia. Aprendemos, aqui, a calcular 
forcas em sistemas simples, onde as car- 
gas podem ser variáveis. 


A ALAVANCA 


O transporte de cargas muito pesadas 
torna-se um sério problema à medida 
que vào sendo construídas estruturas ca- 
da vez maiores. Durante a década de 60, 
o foguete Saturno V, que levaria o ho- 
mem até a Lua, era transportado em 
uma grande plataforma móvel, a maior 
até entáo fabricada. 

Atualmente, as plataformas de petró- 
leo do mar do Norte sáo transportadas 
por terra em veículos que flutuam sobre 
um colcháo de ar. Esses equipamentos, 
e muitos outros mais simples, dependem 
sempre de algum tipo de máquina que 
lhes dê pressão, tração ou movimento. 
Essas máquinas, por sua vez, não pas- 
sam de montagens mais complexas de 
alguns instrumentos básicos, já conhe- 
cidos e usados há séculos. 

Entre os mais primitivos deles está a 
alavanca. Em sua forma mais simples, 
ela consiste de um bastão. Uma das ex- 
tremidades desse bastão fica embaixo da 
carga e a outra é levantada para empur- 
rá-la. Usando esse artifício, uma pessoa 
pode mover objetos muitas vezes mais 
pesados que ela. Como afirmava Arqui- 
medes, o grande matemático do mun- 
do antigo, poderíamos levantar a Ter- 
ra, se tivéssemos um bastão bem longo 
e um ponto de apoio. 

Esse ponto de apoio está situado em 
algum lugar entre as duas extremidades 
do bastão. Digite este programa para ver 
uma simulação do funcionamento de 
uma alavanca. 


A RR A E Revo RA MAÇÃO BASIC lao | | nn 


30 BORDER 0: PAPER 0: 

CLS : OVER 1 

40 INPUT "Distancia do apoio 

a partir da esquerda (1-8 

m) ";d 

50 IF 4<1 OR d>8 THEN GOTO 

40 

60 LET w=(10-d)/d 

70 PRINT AT 1,0;"Peso necessa 

rio para equilibrar 100 KG="; 

w*100;"KG" 

100 PLOT INK 4;0,15: DRAW 
INK 4;255,0: FOR n-0 TO 55: 
PLOT (28*20*d)-n/3,71-n 

110 DRAW INK 7;2*((28*20*d)- 
PEEK 23677),0: NEXT n 

120 LET a-d-10: LET a-ATN (a/( 
l-a*a))*2*ATN (1) 

130 FOR b-a TO 2*ATN (1) STEP 
(2*ATN (1)-a)/10 
140 FOR k=1 TO 2: 
GOSUB 1500 

160 NEXT k 

170 NEXT b 

180 LET B-2*ATN (1): 
1000: GOSUB 1500 
190 IF INKEYS="" THEN GOTO 
190 

200 RUN 
1000 PLOT 120-100*SIN (b),71-20 
*d*COS (b) 
1011 DRAW 127+100*SIN (b)-PEEK 
23677,71*(200-20*d)*COS (b)-PEE 
K 23678 
1025 DRAW 0,-8: DRAW -10,0: DRA 
W 0,-10: DRAW 20,0: DRAW 0,10: 
DRAW -9,0: POKE 23678, (PEEK 236 
78)+6 
1030 RETURN 
1500 PLOT 128-100*SIN (b),70-20 
*d*COS (b) 
1510 LET e=SQR (SQR w) 
1520 DRAW 0,-8: DRAW -10*e,0: D 
RAW 0,-10*e: DRAW 20*e,0: DRAW 
0,10*e: DRAW -9*e,0 


INK 7: 


GOSUB 1000: 


GOSUB 





1530 RETURN 





10 PMODE 3,1:PCLS 

20 COLOR 3:LINE (0,180)-(255,19 
1),PSET,BF 

30 CLS 

40 INPUT” DISTANCIA DO APOIO A 
PARTIR DA ESQUERDA (l-8 M) ^"; 


D 

50 IF D<1 OR D>8 THEN 30 

60 W=(10-D)/D 

70 PRINT:PRINT"PESO NECESSARIO 


PARA EQUILIBRAR 100 KG =";W*100 
;"KG" 

80 FOR G=1 TO 4000:NEXT 

90 SCREEN 1,0 

100 COLOR 2:LINE(28*20*D,150)-( 
18*20*D,179),PSET 

110 LINE -(38*20*D,179),PSET:LI 
NE -(28*20*D,150) , PSET: PAINT (28 
+20*D,160),2 

120 A=10-D:A=ATN(A*A-1) 

130 FOR AN=A TO 2*ATN(1) STEP ( 
2*ATN (1) -A) /10 


140 C=4:GOSUB 1000:C=3:GOSUB 15 
00 

150 FOR G=1 TO 500:NEXT 

160 C=1:GOSUB 1000:GOSUB 1500 
170 NEXT 

180 AN-2*ATN(1):C*4:GOSUB 1000: 
C=3:GOSUB 1500 

190 IF INKEYS-"" THEN 190 

200 RUN 


1000 COLOR C:LINE (128-100*SIN(A 
N) ,149-20*D*COS (AN) ) -(134*100*8 
IN (AN) ,149* (200-20*D) *COS (AN)) , 
PSET 


1020 DRAW"D2L6D6R10U6L8” 

1030 RETURN 

1500 COLOR C:LINE (132-100*SIN(A 
N) ,147-20*D*COS (AN) ) - (132-100*8 
IN (AN) -SQR (V) *7, 147-20*D*COS (AN 
) -SOR (W) *7) , PSET, BF 

1530 RETURN 








эи чи: 





III 
na 


5 SCREEN 0:MAXFILES-1:COLOR 15, 
1,1 

10 INPUT"distància do ponto de 
apoio (1-8m) ";D 

15 IF D<1 OR D>8 THEN 10 

20 W-(10-D)/D 

25 SCREEN 2:0PEN"GRP:" FOR OUTP 





UT AS #1 
30 PRESET (0,0) 
35 PRINT $1,"PESO QUE EQUILIBRA 





NT (W*100) ;"KG" 

40 LINE(0,180)-(255,191),3,BF 
45 FOR I-0 TO 10 

50 LINE (28*20*1,180)-(28*20*I, 
191),6 

55 NEXT I 

60 LINE (28+20*D,150)-(18+20*D,1 
79) ,2:LINE-(38+20*D,179) ,2:LINE 
-(28+20*D,150),2:PAINT(28+20*D, 
160),2 

65 A=10-D:A=ATN(A*A-1) 

70 FOR AN=A TO 2*ATN(1) STEP (2 
*ATN (1) -A) /10 

BO C=4:GOSUB 1000:C=3:GOSUB 1500 
90 FOR G=1 TO 500:NEXT G 

100 C=1:GOSUB 1000:GOSUB 1500 
110 NEXT AN 

120 AN=2*ATN(1):C=4:GOSUB 1000: 
C=3:GOSUB 1500 

130 IF INKEY$="" THEN 130 

140 RUN 

1000 LINE (128-100*SIN (AN) ,149- 
20*D*COS (AN) ) - (134+100*SIN(AN) , 
149* (200-20*D) *COS (AN) ) ,C 

1010 DRAW"D2L6D6R10U6L8” 

1020 RETURN 

1500 LINE (132-100*SIN(AN),147- 
20*D*COS (AN) ) - (132- 100*SIN (AN) — 
SQR (W) *7,147-20*D*COS (AN) -SQR (V 
)*7),C,BF 

1510 RETURN 


#15) 


5 НОМЕ : НОВ: 


HCOLOR= 3 


10 УТАВ (23): INPUT "DISTANCIA 
DO PONTO DE APOIO(1-8M)=";D 

15 IFD<10RD> 8 THEN 5 
20 Ww = (10 - D) / 10 

30 VTAB (24): PRINT "PARA EQUI 
LIBRAR 100 KG E PRECISO ";W * 1 
00;" KG" 

40 HPLOT 28 * 20 * D,120 TO 18 
* 20 * D,149 

50 HPLOT TO 38 + 20 * D,149 T 
о 28 + 20 * D,120 
60 А = 10 - D:À = 
1) 

70 FOR AN * A TO 2 * АТМ (1) 
STEP (2 * ATN (1) - A) / 10 
80 HCOLOR= 3: GOSUB 1000 

90 FOR G = 1 TO 1000: NEXT С 
100 HCOLOR= 0: GOSUB 1000 


110 NEXT AN 
120 AN = 2 * 
3: GOSUB 1000 
130 GET AS: RUN 


ATN (Až A- 


ATN (1): HCOLOR= 


1000 X = 128 - 100 * SIN (AN): 
Ү = 119 - 20 * D * COS (AN):R 
= 134 + 100 * SIN (АМ) :8 = 119 
* (200 - 20 * D) * COS (AN) 


1010 HPLOT X,Y TO R,S 

1020 HPLOT R,S TO R,S * 2 TO R 
- 6,8 * 2 TO R - 6,8 * 8 TO R 
* 6,8 * 8 TO R * 6,8 * 2 TO R,S 
^2 


1500 HPLOT 132 - 100 * SIN (A 
N),117 - 20 * D * COS (AN) TO 
132 - 100 * SIN (AN),117 - 20 
жр ж COS (AN) - SQR (W) * 7 
TO 132 - 100 * SIN (AN) - SQR 
(м) * 7,117 - 20 * D *. COS (A 
N) - SQR (W) * 7 

1510 HPLOT 132 - 100 * SIN (A 


N) - SQR (W) * 7,117 - 20 * D 
* COS (AN) - SQR (W) * 7 TO 1 
32 - 100 * SIN (AN) - SQR (W) 
* 7,117 - 20* D* COS (AN) T 
0 132 - 100 * SIN (AN),117 - 2 


0*D* COS (AN) 
1520 RETURN 




































































Ao executar o programa, o compu- 
tador pedirá que vocé digite a distáncia 
do ponto de apoio (D), a partir da ex- 
tremidade esquerda de uma barra de 10 
m. Ele imprime, então, o peso necessá- 
rio para equilibrar 100 kg na outra pon- 
ta (W). O ponto de apoio é desenhado 
pelas linhas 100 e 110 (TRS-Color e 
Spectrum), 40 e 50 (Apple e TK-2000) 
e 60 (MSX). Um laço controla a anima- 
ção da alavanca — linhas 130 a 170 
(TRS-Color e Spectrum) e 70 a 110 
(MSX, Apple e TK-2000) —, chaman- 
do a sub-rotina 1000, que desenha a bar- 
ra, e a 1500, que desenha os pesos. 

Introduza diferentes valores para D 
e note que, quanto mais distante do pon- 
to de apoio, menor é o peso necessário. 
Do mesmo modo, uma distância mais 
curta requer um peso maior. 


Eg di: 


Existe uma fórmula matemática bem 
simples para o cálculo de distáncias e pe- 
sos em alavancas; basta que vocé saiba 
onde se encontra o ponto de apoio. Se- 
gundo essa fórmula, a carga, multipli- 
cada pela distáncia até o ponto de apoio, 
é igual ao peso usado vezes a distáncia 
até esse ponto. Em termos de variáveis, 
seria o seguinte: 


C x DC = P x DP 


No programa anterior, usamos W no 
lugar de P. A barra mede 10 m, logo, 
DC é igual a 10 menos DP. Se a carga 
fosse de 1 kg, o peso necessário para 
equilibrá-la seria entào: 


W = (10 — DE)/DE 


conforme usamos nas linhas 60 (TRS- 
Color e Spectrum) e 20 (MSX, Apple e 
TK-2000). A variável DE (D, no progra- 
ma) foi introduzida por você. 

As balanças mecânicas utilizam esse 
princípio. Toma-se um ponto de apoio 
no meio da barra e coloca-se o peso a 
ser medido em uma das extremidades. 
A partir daí, adicionam-se massas já co- 
nhecidas do outro lado, até atingir o 
equilíbrio. O peso do objeto será a so- 
ma dessas massas. Isso funciona muito 
bem para pequenos pesos, mas, quan- 
do se trata de grandes cargas, o proce- 
dimento é outro. Nesse caso, o ponto de 
apoio é colocado bem próximo da car- 
ga e calcula-se o peso aplicando a fór- 
mula já explicada. 

Depois de ter brincado um pouco 
com seu programa, você estará pronto 
para identificar o funcionamento de ala- 
vancas em qualquer tipo de máquina. 








Ao trabalhar com uma chave inglesa ou 
com o macaco do seu carro, nunca se 
esquega de que a distáncia que vocé to- 
mar do ponto de apoio poderá reduzir 
muito o seu esforço. 


SISTEMAS DE POLIAS 


As alavancas são muito úteis para pu- 
xar e empurrar objetos, mas, quando se 
quer levar uma carga a grandes alturas, 
é necessário utilizar as polias. Digite o 
programa a seguir para vê-las em fun- 
cionamento. 


10 CLEAR 32399: RESTORE 
GOSUB 510: BORDER 0: PAPER 0: 
INK 7: CLS 

20 PRINT AT 10,0;"Quantas rol 
danas (2, 4 ou 6)?" 

30 LET a$-INKEY$: IF a$4»"2" 

AND a$<>"4" AND a$<>"6” THEN 
GOTO 30 


40 PRINT TAB (10);a$: LET np= 


VAL (a$): LET 1=25*np-50 

45 IF np=2 THEN POKE 32431, 
46 IF np=4 THEN POKE 32431, 
ru IF np=6 THEN POKE 32431, 
50 PRINT PRINT "Sao necessa 


rios ";INT (1000/np);" quilogo 
ramas": PRINT "para levantar 
1 tonelada" 

55 FOR m-1 TO 500: 
60 CLS : GOSUB 1000 
70 LET sp=120 

90 FOR k-1 TO 50 
100 RAND USR 32400 
105 PLOT OVER 1;191-1-np,s8p: 
DRAW OVER 1;8,0 

110 PLOT OVER 1;191-1-np,sp: 
DRAW OVER 1;8,0 
120 LET sp=sp-np: 
THEN LET sp=120 


NEXT m 


IF sp<=0 


150 NEXT k 





160 IF INKEYS-"" THEN GOTO 
160 

170 RUN 

510 FOR n=32400 TO 32491 

520 READ a: POKE n,a 

530 NEXT n 

540 DATA 62,60,79,230,192,15, 


15,15,198,64,103,121,230,7,132 
,103,121,135,135,230,224,111, 

62 

550 DATA 175,254,192,208,145, 

216,8,14,14,125,177,111,62,30, 
254,32,208,145,216,60,79,6,0, 

197,229,17,224,91,237,176,225 

560 DATA 193,217,8,167,40,30, 

71,217,124,60,87,93,230,7,32, 

10,123,198,32,95,56,4,122,214, 
8,87,235 

570 DATA 229,197,237,176,193, 

225,217,16,227,217,201 





580 RETURN 

1000 PLOT 0,170: DRAW 255,0 
1010 FOR k=1 TO np STEP 2 

1020 CIRCLE (232-k*26),140,13 
1030 CIRCLE (258-k*26),50,13 
1040 NEXT k 

1050 PLOT 245,170: DRAW 0,-125 
1060 FOR k=1 TO np-1 

1070 PLOT 246-k*26,140: DRAW 0, 
-90 

1080 NEXT k 

1090 PLOT 197-1-np,140: DRAW O, 
-140 

1100 PLOT 208,141: DRAW (256-np 
*26)-PEEK 23677,0 

1110 PLOT 234,50: DRAW (282-np* 


26)-PEEK 23677,0 





1120 PLOT 206,170: DRAW 0,-28: 
PLOT 258-np*26,170: DRAW 0,-28 
1130 PLOT 231-1*2/3,50: DRAW 0, 
-20 

1140 PLOT 232-1/3,50: DRAW 0,-2 
0 

1145 DRAW (231-1*2/3)-PEEK 2367 
7,0 

1150 PLOT 231-1/2,29: DRAW 0,-1 
0 

1160 DRAW -9,0: DRAW 0,-10: DRA 
W 19,0: DRAW 0,10: DRAW -9,0 


1170 PLOT 180-1,0: DRAW (180-1- 
20/SQR (np))-PEEK 23677,0: DRAW 
0,(20/SQR (np))-PEEK 23678: DR 





AW (180-1)-PEEK 23677,0: DRAW O 
,0-PEEK 23678 


1210 RETURN 





10 PMODE 3,1:DIM P(280) 

20 CLS:PRINT "QUANTAS ROLDANAS 
(2, 4 OU 6) ? "; 
30 AS=INKEYS:IF AS<>"2” AND AS< 
>"4" AND AS<>"6” THEN 30 

40 PRINT AS:NP=VAL (AS) :L=25*NP= 
50 

50 PRINT:PRINT"SAO NECESSARIOS 
"11000/NP:PRINT"QUILOGRAMAS PAR 
A LEVANTAR 1 TON.”:FOR G=1 TO 4 
000 :NEXT 

60 PCLS:SCREEN 1,0:GOSUB 1000 
70 GET(249,172)-(215-L,106),P,G 
:SP=38 

80 COLOR 4,1 

90 FOR K=106 TO 49 STEP -1 

100 PUT (249,K*66)-(215-L,K),P 
PSET 

110 LINE (191-L-NP, SP) - (199-L-NP 
,SP),PRESET 

120 SP-SP*NP:IF SP>191 THEN SP= 
38 

130 LINE (195-L-NP,33)-(195-L-NP 
,191),PSET 

140 LINE (191-L-NP,SP)- (199-L-NP 
,SP),PSET 

150 NEXT 

160 IF INKEYS="" THEN 160 

170 RUN 

1000 LINE(0,0)- (255,10) , PSET, BF 
1010 FOR K=1 TO NP STEP 2 

1020 CIRCLE (232-K^26,33),13,2:P 
AINT(232-K*26,33),2 

1030 CIRCLE (232-K*26,33),14,4, 
Yit 

1040 CIRCLE (258-K*26,121),13,2 
:PAINT (258-K*26,121),2 

1050 CIRCLE (258-K*26,121),14,4 
‚1,0,.5 

1060 NEXT 

1070 LINE(245,10)-(245,121),PSE 
+ 

1080 FOR K=1 TO NP-1 

1090 LINE (246-K*26,33)-(246-K* 
26,121),PSET 

1100 NEXT 








1110 LINE(195-L-NP,33)- (195-L-N 
P,191),PSET 

1120 COLOR 4,3:LINE(208,32)- (25 
6-NP*26,34) , PRESET, BF 

1130 LINE(234,120) -(282-NP*26,1 
22),PRESET,BF 

1140 LINE(206,10)-(206,33) , PSET 
:LINE (258-NP*26,10) -(258-NP*26, 
33),PSET 

1150 LINE(232-L*2/3,121)- (232-L 
*2/3,141) , PRESET 

1160 LINE(232-L/3,121)- (232-L/3 
,141) ,PRESET 

1170 LINE -(232-L*2/3,141),PRES 
ET 

1180 LINE(232-L/2,141)-(232-L/2 
+ 151), PRESET 

1190 DRAW"L9DI9RI9UI9L9" 

1200 ГІМЕ (180-1,191) - (180-1-20/ 
SOR (NP) ,191-20/SQR (NP) ) , PRESET, 
BF 

1210 RETURN 


nau 


100 SCREEN 0:COLOR 15,1,1:PRIN 
T TAB(7)"Quantas poliasB(2,4 ou 
6)?"; 

110 А5“ІМКЕҮЗ:ІР А9<>"2" АМО АЗ 
<>"4" АМО А8 <>"6" ТНЕМ 110 

120 PRINT A$:NP*UAL (A$) :L*25*NP 
-50 

130 PRINT: PRINT TAB(7)"Forca n 
ecessária INT (1000/NP) ;"Kg": 
PRINT TAB(7)"para levantar 1 to 
nelada":FOR G=1 TO 4000:NEXT 
1000 CLS:SCREEN 2 

1010 LINE(0,0)-(255,10),5,BF 
1020 FOR K=1 TO NP STEP 2 

1030 CIRCLE(232-K*26,33),13,2:P 
AINT(232-K*26,33),2 

1040 LINE(232-K*26,33)-(232-K*2 
6,10) 

1050 NEXT K 

1060 LINE(208,32)-(256-NP*26,34 
),,ВЕ 

1070 FOR V-0 TO 
1080 GOSUB 1500 
1090 FOR I-1 TO 
1100 NEXT V 
1110 FOR I-1 TO 
1120 GOTO 100 








-30 STEP -5 
300:NEXT 1 


2000:NEXT 1 



































1500 LINE (194-L-NP-12/NP,75-3*( 
V*5)) - (196-L-NP*12/NP, 75*30/NP- 
3*(V*5)) , 1, BF 

1510 LINE(195-L-NP, 33) - (195-L-N 
р,75-3жу),2 

1520 LINE(194-L-NP-12/NP,75-3*V 
)- (196-L-NP*12/NP,75*30/NP-3*V) 
,10,BF 

1530 LINE(249,175+V)-(215-L,107 
+0) ,1,BF 

1540 FOR K=1 TO NP STEP 2 

1550 CIRCLE (258-K*26,121+V),13, 
2:PAINT(258-K*26,1214U),2 

1560 NEXT K 

1570 LINE(245,10+V)-(245,121+V) 
‚2 

1580 FOR K=1 TO NP-1 

1590 LINE(246-K*26,35)-(246-K*2 
6,121+V),2 

1600 NEXT K 

1610 LINE(234,120+V)-(282-NP*26 
,12249),,BF 

1620 LINE(232-L*2/3,121+V)-(232 
-L*2/3,141*U) 

1630 LINE(232-L/3,121*V)-(232-L 
73,141%у) 

1640 LINE-(232-L*2/3,141+V) 
1650 LINE(232-L/2,141*U)-(232-L 
/2,151%7) 

1660 ВА” С81.901981901919" 

1670 RETURN 


Lo] [có] 


10 Е = 780 

20 F * INT (Е / 256) 

30 РОКЕ 232,E - F * 256: POKE 
233,F 
40 FORI*"ETOE*41*1*3 


2 

50 READ A: POKE 1,A 

60 NEXT 

70 SCALE= 1: ROT= 0 

80 DATA 20 ,0 ,42 ,0 ,74 ,0 
,106 ,0 ,138 ,0 ,170 ,0 ,202 ,0 
,234 ,0 ,10,1,42,1,74,1, 

106 ,1 ,138 ,1 ,170 ,1 ,202 ,1 
‚234 ,1 ,10 ,2 ,42 ,2 ,74 ,2 ,1 

06 ,2 ,138 ,2 

90 DATA 0 ,72 ,45 ,109 ,209 
»251 ,219 ,23 ,77 ,73 ,169 ,25 

1 ,219 ,27 ,110 ,73 ,9 ,213 .22 





3 ,219 ,115 ,77 ,9 ,141 
3 ,255 ,2 ,0 ,0 ,0 ,0 
100 TEXT : HOME : VTAB (10): H 
TAB (7): PRINT "QUANTAS POLIAS 
? (2,4 OU 6) ";: GET NP 
110 IF NP X » 2 AND МР < 
AND NP € > 6 THEN 100 
120 PRINT NP 

130 HGR : HCOLOR- 3: VTAB (23) 
: PRINT "FORCA NECESSARIA-"; IN 
T (1000 / NP);" Kg": PRINT "PAR 
A LEVANTAR 1 TONELADA” 


,219 ,6 


>4 


1000 FOR I * 0 TO 9 

1010 HPLOT 0,1 TO 255,1 

1020 NEXT 1 

1030 FOR K = 1 TO NP STEP 2 
1040 DRAW 1 AT 147 - K * 8,33 
1060 NEXT K 

1070 FOR I е 1 ТО NP STEP 2 
1080 HPLOT 135 - (I- 2) * 8,1 
0 TO 135 - (I1 - 2) * 8,34 

1090 NEXT I 

1100 HPLOT 143,34 TO 143 - (NP 
= 2) * 8,34 

1110 FOR V - 0 TO 36 STEP 3 
1115 HCOLOR= 3: GOSUB 1500 
1120 FORT = 1 TO 500: NEXT T 
1125 IF V = 36 THEN GOTO 1150 
1130 HCOLOR= 0: GOSUB 1500 
1140 NEXT V 

1150 FOR T = 1 ТО 2000: NEXT T 
1160 GOTO 100 

1500 FOR K = 1 TO NP STEP 2 
1510 DRAW 1 AT 155 - K * 8,121 
ә 

1520 МЕХТК 

1530 HPLOT 155,10 TO 155,123 - 
у 

1540 FOR K = 1 TO NP - 1 

1550 HPLOT 155 - K * 8,34 TO 1 
55-X*8,1233 - V 

1560 NEXT K 

1570 HPLOT 138 - (NP - 2) * 8, 
34 TO 138 - (NP - 2) * 8,38 * N 
py 2*u 


1580 FOR I = - 1 TO 1 

1590 HPLOT 138 - (NP- 2) * 8 
* I,38 * NP / 2 * V TO 138 - (N 
P- 2) * В + 1,38 + 36 / М + Мм 
р/ажу 

1600 NEXT I 

1610 HPLOT 151,123 - V TO 151 
- (NP - 2) * 8,123 - Y 


1620 HPLOT 151 - (NP / 2 - 1) 
* 8,123 - V TO 151 - (NP / 2 - 
1) * 8,128 - V 

1630 FORI = -4 T04 

1640 HPLOT 151 - (NP / 2 - 1) 


* B * I,128 - V TO 151 - 
2-1) 8 “1,135 - У 
1650 NEXT I 

1660 RETURN 


(NP / 


O programa comega perguntando se 
vocé quer um sistema de duas, quatro 
ou seis polias. Em seguida ele mostra na 
tela o peso necessário para levantar uma 
carga de 1000 kg. A partir da linha 1000, 
о computador desenha as roldanas fi- 
xas, e, na linha 1500 (na versào para o 
MSX, Apple e TK-2000) ou 90 (TRS- 


Color e Spectrum), ele constrói e movi- 
menta as roldanas e os pesos. 

No programa para o Apple e o 
TK-2000, as linhas 10 a 90 introduzem 
uma tabela de dados que permite dese- 
nhar círculos por meio do comando 
DRAW. 

Ao executar o programa, vocé obser- 
vará que quanto maior for o nümero de 
polias menor será o peso necessário pa- 
ra levantar a carga. Para calcular o peso 
em um sistema desse tipo, basta dividir 
a carga pelo nümero de polias. Se vocé 
quiser levantar 1000 kg, usando seis po- 
lias, deverá empregar um peso de apro- 
ximadamente 166 kg. Em alguns casos 
ocorre o contrário: sabe-se quanto pesa 
a carga e qual a forca máxima disponí- 
vel. Nesse caso, divide-se a carga pela 
força e arredonda-se o resultado para o 
maior nümero par. Por exemplo, vocé sa- 
be que consegue levantar 60 kg usando 
só uma polia; logo, para levantar 250 kg, 
vocé deverá utilizar seis polias. 


POUPA! ESFORCOS 


Como no caso da alavanca, também 
em um sistema de polias a forca está re- 
lacionada com a distáncia. Vocé pode 
notar, em nossa simulação, que quanto 
maior é o número de polias mais a ex- 
tremidade livre da corda se aproxima do 
chão. Isso mostra que, para levantar um 
peso a uma certa altura usando uma for- 
ça menor, você terá que puxar, para 
compensar, uma corda de comprimen- 
to maior. Na verdade, em um sistema 
desse tipo, o número de polias já deter- 
mina qual será o comprimento da cor- 
da que precisaremos puxar para que a 
carga suba em uma unidade. Por exem- 
plo, em um sistema de duas polias, te- 
mos que puxar dois metros de corda pa- 
ra que a carga suba um metro. 

O sistema que nosso programa simu- 
la na tela do microcomputador não é o 
mais comum. Em geral, as barras pas- 
sam pelo centro das roldanas, manten- 





Simulação das polias no MSX. 


do-as paralelas e bem próximas. Um sis- 
tema de seis polias seria visto, então, co- 
mo três discos colados um ao outro, na 
vertical, e, abaixo deles, pendurados pe- 
las cordas, mais três discos, onde se 
prende a carga. 


O ELEVADOR HIDRÁULICO 


Outro instrumento que funciona da 
mesma maneira que a alavanca é o ele- 
vador hidráulico. Ele é utilizado para le- 
vantar grandes cargas — de automóveis 
até foguetes e aviões. 

O freio dos automóveis atuais, que 
funciona baseado em um princípio idên- 
tico, mostra como a força de nossos pés 
pode ser amplificada a ponto de parar, 
em um tempo muito reduzido, o movi- 
mento de um corpo tão pesado. 


Para observar o funcionamento do 
elevador hidráulico, digite e rode o pro- 
grama a seguir. 


30 BORDER O: PAPER 7: INK O: 
CLS 

50 GOSUB 300 

90 INPUT "Curso do embolo (1- 
WD 7T "itt 


100 IF tr<l1 OR tr>90 THEN 
GOTO 90 

110 FOR k=1 TO tr 

120 PLOT 40,128-(k-1): DRAW 
INK 7;10,0: PLOT 40,128-k: 
DRAW 15,0 

130 PLOT 175,127+(k-1)/10: 
DRAW INK 1;56,0: PLOT 175,127 
*k/10: DRAW INK 1;56,0 
135 PRINT INK O;AT 3,5;k; 
0;AT 3,25;INT (k/10) 

140 NEXT k 

150 INK 0: PRINT AT 21,0;" 
Novamente ? (s OR n) в 
160 IF INKEYS-"s" THEN RUN 
170 IF INKEY$<>"n” THEN GOTO 
160 
180 


INK 


STOP 

300 FOR n=6 TO 18: PRINT 
PAPER 1;AT n,5;” ^": NEXT n 
310 FOR n*6 TO 18: PRINT 
PAPER l;AT n,22;" "E 
NEXT n 





320 FOR n=18 TO 21: PRINT 
PAPER 1;AT n,5;” 

": NEXT n 
330 PLOT 39,155: DRAW 0,-155: 
DRAW 192,0: DRAW 0,155: PLOT 
56,155: DRAW 0,-124: DRAW 120, 
0: DRAW 0,124 
340 PLOT 40,127: DRAW -2,0: 
PRINT AT 6,3;"0": PLOT 40,37: 


DRAW -2,0: PRINT AT 17,2;"90": 
PLOT 232,127: DRAW 2,0: PRINT 


AT 6,30;"0" 

350 PLOT 232,137: 
PRINT AT 4,30;"9" 
360 FOR n=127 TO 37 STEP -10 
370 PLOT 40,n: DRAW -2,0: NEXT 
n 

380 PLOT 232,132: DRAW 2,0 

390 PLOT 120,35: DRAW 0,-35 
400 PLOT 110,40: DRAW 20,0: 
DRAW -5,5: DRAW 5,-5: DRAW -5, 
"S 

410 INK 7 

440 RETURN 





DRAW 2,0: 





10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 DIM P(4),R(31) 

50 GOSUB 300 

60 GET(32,52)-(43,38) , P,G 

70 GET(182,52)-(223,23),R,G 

80 IF INKEYS="” THEN 80 

90 CLS:INPUT"DESLOCAMENTO DO EM 
BOLO (1-90)";TR 

100 IF TR<1 OR TR>90 THEN 90 
110 SCREEN 1,0:FOR K=1 TO TR 
120 PUT(32,52*K)- (43, 38*K) , P, PS 
ET 

130 PUT(182,52-K/10)-(223,23-K/ 
10),R,PSET 

140 NEXT 

150 IF INKEYS-"" THEN 150 

160 CLS:PRINT ” NOVAMENTE (S/N) 
2 

170 AS=INKEYS:IF AS<>”S” AND AS 
€»"N" THEN 170 
180 IF AS="S” 
190 CLS:END 
300 DRAW"BM30,30C2D131R195U131B 
L45D20NR45D96L135U96NL15U20" 
310 PAINT(200,70),3,2 

320 DRAW"BM32,50C3RIOBRI140R41" 
330 DRAW"BM127,161C2U20BH8C4R16 
NH5G5” 

340 ГІМЕ (34,48) - (41,41) , PSET, BF 
350 LINE (191,48)- (215,23) ,PSET, 
BF 

360 FOR K=0 TO 9 

370 COLOR 2:LINE(26,50*K*10)-(3 
0,50*K*10),PSET 

380 NEXT 

390 DRAW"BM20,46C4D6L4U6R4BD90N 
L4D6L4UGBLA4ND6L4D3R4C2" 

400 FOR K=0 TO 9 STEP 3 

410 LINE(225,50-K) -(229,50-K) ,P 
SET 

420 NEXT 

430 DRAW"BM232,48C4D6R4UGL4BUSN 
RAU3RA4D6" 

440 RETURN 


nau 


10 SCREEN 0:COLOR 1,14,14 

20 LOCATE 3,10:INPUT"Qual o cur 
so do &mbolo(1-90)";C 

30 IF C<1 OR C>90 THEN 20 

40 GOSUB 300 

50 FOR I=0 TO C-1 

60 LINE(31,37+1)-(44,50+1),14,B 


THEN RUN 


70 LINE(34,50+1)-(39,43+1),15,B 


F 

80 LINE(181,50-1/10)-(225,50-1/ 
10),2 

90 LINE (191,23-1/10)-(215,48-1/ 
10),15,BF 

100 NEXT 1 

110 IF INKEY$-"" THEN 110 ELSE 
сото 10 

300 SCREEN 2:COLOR 15,14,14 

310 DRAW"BM30,30C2D131R195U131B 
L45D20NR45D96L135U96NL15U20^ 
320 PAINT(200,70),2,2 

330 DRAW"BM32,50C3R10BR140R41” 
340 DRAW"BM127,161C2U20BH8C4R16 
NH5G5" 

350 LINE(34,48)-(39,41) ,, BF 

360 LINE (191,48)-(215,23),,BF 
370 ҒОВ К-0 TO 9 

380 LINE(26,50*K*10)-(30,50*K*1 
0),2 

390 NEXT K 

400 DRAW"BM20,46C4D6L4U6R4BD90N 
L4D6L4U6BL4ND6L4D3R4C2^ 

410 FOR K=0 TO 9 STEP 3 

420 LINE(225,50-K)-(229,50-K) 
430 NEXT K 

440 DRAW"BM232,48C4D6R4UGLA4BU9N 
R4U3RADE” 

450 RETURN 


[ak] [có] 


20 HOME : HTAB (5): VTAB (10) 
30 INPUT "QUAL O CURSO DO EMBO 
Lo(1-90)? ";C 

40 GOSUB 300 

50 FOR 1=1TOC-1 

55 HCOLOR= 0 


60 HPLOT 31,49 * I TO 44,49 + 
I 

70 HPLOT 34,42 + I TO 39,42 + 
I 

80 HCOLOR= 3 

90 HPLOT 34,49 * I TO 39,49 + 
z 

100 HPLOT 181,50 - I / 10 TO 2 
24,50 - I / 10 

110 HPLOT 191,25 - I / 10 TO 2 


15,25 - I / 10 
120 NEXT I 

130 FOR T = 1 TO 
TEXT : GOTO 20 
300 HGR2 HCOLOR= 3 
310 


5000: NEXT T: 


HPLOT 30,30 TO 30,161 TO 2 





A alavanca na tela do TRS-Color. 


22000000000 PROGRAMACÁOBASIC 800000000007 


25,161 ТО 225,30 

320 НРІ.ОТ 180,30 ТО 180,146 TO 
45,146 TO 45,30 

330 FOR I = 0 TO 96 

340 HPLOT 30,50 * I TO 45,50 * 
I 
350 
+ A 
360 
370 
380 
6+1 
390 
400 
410 
‚50 
420 
430 
440 
E 
450 NEXT 1 

460 HPLOT 20,46 TO 20,53 TO 15 
+53 TO 15,46 TO 19,46 

470 HPLOT 11,140 TO 7,140 TO 7 
,136 TO 11,136 TO 11,143 TO 7,1 
43 

480 HPLOT 20,136 TO 20,143 TO 
15,143 TO 15,136 TO 20,136 

490 HPLOT 232,48 TO 237,48 TO 
237,55 TO 232,55 TO 232,48 

500 HPLOT 232,42 TO 237,42 TO 
237,35 TO 232,35 TO 232,39 TO 2 
37,39 

510 HPLOT 103,140 TO 117,140 T 
O 110,136: HPLOT 117,140 TO 110 
,144 
530 
540 
J 
550 
560 
570 
“к 
580 
590 


HPLOT 180,50 * I TO 225,50 


NEXT I 
FOR I * 0 TO 15 
HPLOT 30,146 * I TO 225,14 


NEXT I 

FOR I * 0 TO 9 

HPLOT 26,50 * I * 10 TO 30 
+ 1 * 10 

NEXT 1 

FOR I * 0 TO 9 STEP 3 
HPLOT 225,50 - I TO 229,50 


FOR J * 1 TO 14 
HPLOT 34,43 * J TO 39,43 * 


NEXT J 
FOR K = 1 TO 26 
HPLOT 191,24 + K TO 215,24 


NEXT K 
RETURN 


Inicialmente, o computador pergun- 
ta quanto vocë quer que o ëmbolo des- 
ça, em um intervalo de 1 a 90. A rotina 
que começa na linha 300 desenhará o 
elevador e o laço da linha 110 (na ver- 
são para os micros Spectrum e TRS- 
Color) ou da 50 (MSX, Apple e 
TK-2000) deverá movimentá-lo. 


PRINCIPIOS 


Quanto maior for o diâmetro do êm- 
bolo maior terá que ser a força aplica- 
da. Na nossa simulação, ele é bem me- 
nor que o diâmetro do elevador; portan- 
to, a força para empurrá-lo para baixo 
será bem menor que o peso do objeto 
a ser levantado. Observamos, porém, 
que, assim como no caso das polias, o 
trajeto do êmbolo é maior que a altura 
da carga — ou seja, teremos que mover 
o êmbolo em várias unidades para que 
o elevador suba uma só. 




















CONTROLE POR 
TECLAS MÚLTIPLAS 


No controle de jogos, o joystick ganha 
em sofisticacáo, enquanto o teclado 
se destaca pela versatilidade. Veja 
como fazer para que sejam detectadas 
várias teclas ao mesmo tempo. 








Uma das características mais impor- 
tantes num jogo é a qualidade de inte- 
racáo computador-usuário. Na maioria 
dos casos, o joystick oferece um contro- 
le mais sofisticado, mas o teclado o su- 
pera, sem dúvida alguma, no que diz 
respeito à versatilidade. 

Em geral, utilizam-se os comandos 
INKEY$ e GETS para detectar se uma 
tecla está sendo pressionada. Esses co- 
mandos, porém, apresentam uma defi- 
ciéncia: só sáo capazes de detectar duas 
teclas ao mesmo tempo caso uma delas 
seja SHIFT (ou similares, como CTRL 
ou SYMBOL/SHIFT). 

A detecção de tais combinações é su- 
ficiente para a maior parte dos propó- 
sitos, mas não para todos. Se quisésse- 
mos, por exemplo, controlar os movi- 
mentos vertical e horizontal de uma na- 
ve, disparar o laser e lançar bombas, si- 
multaneamente, seríamos obrigados a 
acionar quatro teclas. A solução para es- 
se tipo de problema depende do próprio 
computador, 


EFEITO DO ACIONAMENTO DAS TECLAS 


Para entender como se dá a detecgáo 
múltipla, precisamos examinar os meca- 
nismos que permitem ao computador 
saber qual tecla está sendo pressionada. 
Os micros pessoais utilizam, comumen- 
te, dois processos. O primeiro consiste 
em ““varrer”” o teclado de tempos em 
tempos, verificando se alguma tecla foi 
pressionada. No TRS-Color, por exem- 
plo, o teclado é **varrido'' a cada 1/100 
de segundo; já no MSX, isso ocorre a 
cada 1/60 de segundo. 

No segundo processo, o acionamen- 
to de uma tecla gera uma mensagem — 
chamada interrupgdo —, que é enviada 
ao processador. O computador inter- 
rompe sua tarefa e verifica o teclado, em 
busca da tecla pressionada. Esse méto- 
do é bem mais eficiente e versátil que o 
da varredura, porque dispensa a verifi- 
cação das teclas quando não estão sen- 
do acionadas — ou seja, o primeiro mé- 
todo varre o teclado de tempos em tem- 
pos, mesmo que nenhuma tecla seja 
acionada; o segundo só faz a varredura 
quando há acionamento de teclas. 

Seja qual for o método utilizado, o 


computador deve ser capaz de identifi- 
car a tecla acionada o mais rapidamen- 
te possível. A maioria dos teclados em- 
prega um sistema denominado gerador 
de matriz, fornecendo ao computador 
um número que identifica a posição da 
tecla na matriz. O que vai ocorrer de- 
pois da geração do número varia de má- 
quina para máquina. 


O teclado do Spectrum compõe-se de 
quatro fileiras com dez teclas cada. Su- 
pondo que cada fileira seja dividida ao 
meio, teremos oito fileiras com grupos 
de cinco teclas. Cada grupo, por sua 
vez, tem comunicação com uma porta 
de entrada/saída. O teclado do Spec- 
trum facilita a detecção de várias teclas 
acionadas ao mesmo tempo, pois pos- 
sui 65536 dessas portas, identificadas 
por números de O a 65535. A tabela a 
seguir fornece o endereço da porta pa- 
ra cada um dos oito grupos: 


GRUPO PORTA 


65276 
1 65022 
2 64510 
3 63486 
4 61438 
5 
6 
7 


CAPS/SHIFT 0 


57342 
49150 
32766 


Para calcular o endereco da porta de 
cada grupo, use esta fórmula: 


254 4 256*(255 — 21n) 


Nessa fórmula, n significa o número 
do grupo listado na tabela. 

Digite e rode o programa a seguir. Ele 
calcula o endereco da porta para um cer- 
to grupo de teclas. 


10 INPUT "DIGITE NUMERO DO GR 
UPO DA TECLA ";n 

20 PRINT '"NUMERO DO GRUPO DA 
TECLA ";n 

30 PRINT "ENDERECO DA PORTA " 
1254*256* (255-2^n) 

40 сото 10 


Cada enderego de porta na tabela da- 
da anteriormente assume um valor, de- 
pendendo da tecla pressionada. 

Para usar corretamente o próximo 
programa, remova a impressora ou 
qualquer outra interface. Caso contrá- 
rio, os resultados seráo alterados. Digi- 
te estas linhas, rode, e acione de dife- 
rentes maneiras as teclas de 1 a 5, inclu- 
sive várias ao mesmo tempo: 


10 PRINT AT 0,0;IN 63486 
20 GOTO 10 


Observe que os números exibidos na 
tela mudam conforme a combinação de 
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teclas acionadas. O valor no endereço 
da porta é armazenado em um único 
byte, no qual o quinto bit é sempre 1. 
Normalmente, o sexto e o sétimo bits 
são 0. Porém, quando houver um sinal 
no soquete EAR, ou quando o compu- 
tador esquentar, o sexto bit passa a ser 
1. Os bits de O a 4 representam as teclas 
do grupo. Cada bit assume valor 1 
quando a tecla correspondente a ele não 
estiver sendo pressionada e valor 0, 
quando esta for pressionada. O quarto 
bit corresponde à tecla da extrema es- 
querda do grupo e o bit zero à tecla da 
extrema direita. 


Quando um determinado bit contém 
o valor 1, ele contribui para o valor que 
está na porta; quando seu valor é 0, nào 
contribui com nada. A contribuigáo de 
cada bit para o valor na porta está na 
tabela a seguir: 


BIT 87654321 
CONTRIBUIÇÃO 128 64 32 168421 


Portanto, se o sexto bit for 0 (nada co- 
nectado em EAR) e a tecla 5 estiver sen- 
do pressionada, a disposicào dos bits na 
porta 63486 será 00101111, o que equi- 
vale a 0+0+32+0+8+4+2+1=47. As- 











































sim, podemos detectar o acionamento 
das cinco teclas de um grupo. O mesmo 
se aplica aos outros grupos de teclas. 
Poderíamos, por exemplo, acrescentar 
ao programa linhas que imprimissem na 
tela o valor de cada porta. 


As teclas do TRS-Color estão dispos- 
tas numa matriz dé sete linhas por oito 
colunas. São necessários nove bytes de 
memória para armazenar o estado de 
uma linha e de seus oito elementos. Dos 
nove bytes, o primeiro contém o estado 
da linha e os outros oito, o de cada um 
dos oito elementos dela. O arranjo da 
matriz e o método usado na decodifica- 
ção da linha fazem com que, normal- 
mente, seja impossível detectar mais de 
uma tecla ao mesmo tempo. 

No entanto, podemos “enganar” o 
varredor de teclado, levando-o a não de- 
tectar nenhuma tecla numa certa linha, 
o que, na varredura seguinte, o obriga- 
ria a assumir qualquer tecla como uma 
nova ocorrência. Para isso, é necessá- 
rio colocar no primeiro byte o valor he- 
xadecimal FF, produzindo uma altera- 
ção no estado das linhas. 

Esse método não é muito satisfató- 
rio, pois requer frequentes mudanças ao 
longo do programa. Mas há uma solu- 
ção alternativa: chamar uma rotina em 
linguagem de máquina para forçar uma 
varredura completa do teclado, sempre 
que precisarmos. Como você verá, este 
foi o sistema usado nos programas que 
apresentaremos mais adiante. 


No TK-2000, as teclas estão dispos- 
tas num gerador de matriz de oito linhas 
por seis colunas. Existem dois endere- 
ços de memória que trabalham com a 
matriz: o endereço — 16384, ao qual de- 
mos o nome de KBOUT, e o — 16368, 
que chamamos de KBIN. KBOUT con- 
trola o estado das linhas da matriz. Ca- 
da um de seus bits é responsável por 
uma linha na matriz de tecla. Se um bit 
de KBOUT possui valor 1, todos os ele- 
mentos (teclas) da linha corresponden- 
te também seráo iguais a 1. 

KBIN, por sua vez, controla o esta- 








O que é roll-over? 

Esta é uma expressão inglesa que 
designa uma característica do proces- 
sador de teclados de algumas linhas de 
microcomputadores: a possibilidade de 
armazenar em uma memória interme- 


diária (buffer de teclado) as n últimas 
teclas pressionadas. 

O número de teclas digitadas que o 
computador consegue armazenar de- 


pende do tamanho do buffer de tecla- 
do (se for fixado em hardware) e do 
software de processamento do tecl: 
do. Por isso, falamos em n-key-roll- 
over, ou seja, quantas teclas o roll-over 
é capaz de processar. Alguns compu- 
tadores têm roll-over de duas a cinco 
teclas; outros, de até 128. 

Qual é a vantagem de dispor de roll- 
over no teclado de um micro? Bem, cer- 
tos softwares (sobretudo processado- 
res de texto) não conseguem acompa- 
nhar um ritmo mais acelerado de digi- 
tação. Se não houver a capacidade de 
roll-over, o computador acaba limitan- 
do o usuário, que começa a “perder” 
várias teclas pressionadas rapidamen- 
te, levando a erros irritantes de digita- 
ção. O roll-over afasta esse risco, poi 
mais cedo ou mais tarde, o programa 
acaba “'alcangando'' o digitador. 





do dos elementos de cada linha. Somen- 
te os bits de 0 a 5 de KBIN sáo usados, 
já que existem apenas seis elementos em 
cada linha. Os bits de KBIN só léem o 
valor contido nas teclas corresponden- 
tes quando estas sáo pressionadas — ou 
seja, se nenhuma tecla estiver sendo 
pressionada, KBIN vale 0 (todos os bits 
sáo iguais a zero). Esse enderego requer 
uma atenção especial, uma vez que lê ex- 
clusivamente colunas. Se quisermos sa- 
ber a que linha pertencem os elementos 
(teclas) lidos por KBIN, precisaremos 
identificar o valor contido em KBOUT. 

Para forçar a varredura do teclado, 
foi necessário montar uma rotina em lin- 
guagem de máquina. Essa rotina, arma- 
zenada a partir do endereço 770 no pri- 
meiro programa, procura pelo aciona- 
mento de cinco teclas específicas: as 
quatro setas e a barra de espaço. A pres- 
são sobre qualquer outra tecla não terá 
nenhum efeito. 

A rotina usa os endereços 900 a 904 
como indicadores do estado das teclas. 
Se o valor for 1, a tecla foi acionada; 


se for 0, não houve pressão sobre ela. 
Como se pode observar nas linhas 135 
a 155, esses endereços são constante- 
mente zerados. Isso é feito para a roti- 
na não “pensar” que a tecla correspon- 
dente está sempre pressionada. 

Remova o POKE 900,0 da linha 135 
e veja o que ocorre com a mira quando 
se aperta a tecla 1. Ela começa a subir 
e não pára mais. Foi preciso usar ende- 
reços (900 a 904) como indicadores por- 
que, coincidentemente, todas as cinco 
teclas em questão são lidas pelo mesmo 
bit de KBIN — ou seja, na matriz, elas 
estão em linhas diferentes mas em colu- 
nas iguais. 

A rotina do segundo programa fun- 
ciona de maneira semelhante, detectan- 
do seis teclas em vez de cinco. O ende- 
reco inicial foi deslocado para 36900 e 
os indicadores aparecem a partir de 
36800. Essa rotina apresenta um aper- 
feigoamento: os indicadores sáo zerados 
dentro dela própria. 


^ NES e 


A matriz que contém as teclas do 
MSX é maior que a dos outros micros: 
compõe-se de dez linhas com oito colu- 
nas cada, totalizando, assim, oitenta te- 
clas. Nela existem duas portas de con- 
trole. A de endereço 170 ativa a linha 
que desejamos ler, enquanto a de ende- 
reço 169 contém o estado das teclas da 
linha ativada, sendo que cada tecla cor- 
responde a um de seus bits. 

Para simplificar, chamaremos a por- 
ta que ativa as linhas (170) de porta C, 
e a que lê as colunas, de porta B. A por- 
ta C usa somente os bits de 0 a 3 para 
ativar seqüencialmente cada uma das 
dez linhas. Isso é possível graças a um 
decodificador localizado entre a porta 
C e a matriz. As linhas da matriz de te- 
clas são numeradas de 0 a 9. Para ativá- 
las, basta fornecer à porta C o número 
da linha desejada. Ao se ativar uma li- 
nha, todas as suas colunas (teclas) assu- 
mem o valor 1. Quando se pressiona 
uma tecla pertencente a uma linha ati- 
vada, o bit da porta B correspondente 
a essa tecla é zerado. Portanto, se ati- 
varmos uma linha através da porta C, 
e, logo em seguida, lermos a porta B sem 
que nenhuma tecla seja acionada, vere- 
mos que a porta B tem valor 255, ou se- 
ja, todos os oito bits têm valor igual a 1. 

O programa a seguir ativa a linha 8 
da matriz — que contém as teclas das 
setas e barra de espaço — e, em segui- 
da, lê a porta B, verificando quais bits 
foram zerados, isto é, quais teclas foram 
acionadas. 


кайи!) 


Os usuários do Apple devem ter no- 
tado a auséncia de programas para esse 
micro. É que o método utilizado pelo 
Apple para detectar teclas torna quase 
impossível — dentro dos propósitos des- 
te artigo — criar rotinas que detectem 
acionamento múltiplo de teclas. 

Os programas apresentados a seguir 
permitem-nos mover uma mira pela te- 
la e também atirar. Nos micros TRS- 
Color, MSX e TK-2000, use as setas pa- 
ra mover e a barra de espaço para ati- 
rar. No Spectrum, use as setas para mo- 
ver e o número 9 para atirar. Os pro- 
gramas do TRS-Color e do TK-2000 re- 
querem um pequeno programa em lin- 
guagem de máquina para detectar as 
teclas. 





10 CLEAR 200,32746 
20 FOR K=32747 TO 32767:READ A: 
POKE K,A:NEXT 
30 DATA 48,140,9,191,1,155,134, 
126,183,1,154,57,52,3,134,127,1 
85) 1,81,53,131 

ЕХЕС 32747 
40 V=247:P=1295:L=1295:CLS3 
50 IF PEEK(341)=V AND P>1055 TH 
EN P=P-32 
60 IF PEEK(342)=V 
EN P=P+32 
70 IF PEEK(343)=V 
EN P=P-1 
80 IF PEEK(344)=V 
EN P=P+1 
90 IF PEEK(345)=V 
0,1 
100 POKE L,175:POKE P,43:L*P:GO 
TO 50 


Digite e rode o programa do TRS- 
Color para se certificar de que nào há 
erros. Em seguida, acrescente a linha 35 
e rode-o novamente. 


35 EXEC 32747 


10 BORDER 0: PAPER 0: INK 7 
20 CLS 

30 LET y=11: LET x=15 

40 LET p=63486 
50 GOSUB 220 

60 IF i=31 THEN 
70 LET p=61438 
80 GOSUB 220 

90 IF i=59 THEN 
100 IF i-47 THEN 
110 IF i-55 THEN 
120 IF i-61 THEN 
130 IF i-57 THEN 
GOSUB 410 
140 IF i-45 
GOSUB 410 
150 IF i-53 
GOSUB 410 
160 IF i-43 


AND P<1504 TH 
AND P>1024 TH 
AND P<1535 TH 
THEN SOUND 20 


GOSUB 290 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 


380 
320 
350 
410 
380: 
GOSUB 


THEN 320: 


THEN GOSUB 350: 


THEN GOSUB 380: 


GOSUB 320 

170 IF i-51 THEN GOSUB 380: 
GOSUB 350 

180 IF i=41 THEN GOSUB 380: 
GOSUB 320: GOSUB 410 

190 IF i=49 THEN GOSUB 380: 
GOSUB 350: GOSUB 410 

200 GOSUB 250 

210 GOTO 40 

220 LET i*"IN p 

230 IF i»191 THEN LET і-і-64 
240 RETURN 

250 PRINT AT y,x;i" * " 

260 PRINT AT y*l,x;" = 

270 PRINT AT y-l,x;" m 

280 RETURN 

290 ІР х<1 THEN RETURN 

300 LET x-x-1 

310 RETURN 

320 IF y>19 THEN RETURN 

330 LET y=y+1 

340 RETURN 

350 IF y<2 THEN RETURN 

360 LET y=y-1 

370 RETURN 

380 IF x>28 THEN RETURN 

390 LET x=x+1 

400 RETURN 

410 SOUND .004,20 

420 SOUND .004,10 

430 PRINT AT y,x;” x 

440 RETURN 


nu 


10 COLOR 1,5,5:SCREEN2,1 

20 X=120:Y=90:H=240:B=169:C=170 
30 FOR K=1 TO 8:READ A 

40 BS=BS+CHRS (A) 

50 NEXT 

60 DATA 129,66,60,36,36,60,66,1 


70 SPRITES(0)=BS 

80 OUT C,(INP(C) AND H)OR 8 

90 I=INP(B) 

100 IF(I AND 128)=0 THEN X=X+3 
110 IF(I AND 64)=0 THEN Y=Y+3 
120 IF(I AND 32)=0 THEN Y=Y-3 
130 IF(I AND 16)=0 THEN X=X-3 
140 IF(I AND 1)=0 THEN PLAY"L64 
BAC" 

150 PUTSPRITE O0, (X,Y),1,0:GOTO 
80 


HOME 
15 FOR K = 800 TO 804 
20 READ À 
25 РОКЕК,А 
30 NEXT 
35 DATA 64,32,16,8,4 
40 FOR K = 770 TO 793 
45 READ A 
50 РОКЕ К,А 
55 МЕХТ 
60 DATA 
65 DATA 
70 DATA 
75 DATA 
80 HGR2 
85 H - 138:V - 96 
90 x = 138:Y = 96 


162,0,189,32,3,141 
0,192,169,1,45,16 
192,240,3,157,132,3 
232,224,5,208,235,96 


95 HCOLOR- 0 


100 HPLOT H,V TO H + 4,V 

105 HPLOT H + 2,V - 2 TOH +2 
TO V +2 

110 H = X:V = Y 

115 HCOLOR= 3 

120 HPLOT X,Y TO X + 4,Y 

125 HPLOT X + 2,Y - 2 TO X +2 
+2 

130 CALL 770 

135 IF PEEK (900) = 1 AND Y > 


3 THEN Y = Y - 2: POKE 900,0 
140 IF PEEK (901) = 1 AND Y < 
188 THEN Y = Y + 2: POKE 901,0 


145 
274 


IF PEEK (902) = 1 AND X < 
THEN X = X + 2: POKE 902,0 


150 IF PEEK (903) = 1 AND X > 
1 THEN X = X - 2: POKE 903,0 
155 IF PEEK (904) = 1 THEN P 
RINT CHR$ (7): POKE 904,0 

160 GoTo 95 


M TECL A QUATRO MAOS 


Rodando o programa a seguir, vocé 
verá, logo após a introdução, dois seres 
vestindo ““traje lunar'', em posição de 
duelo. Este jogo foi feito para dois jo- 
gadores. No Spectrum, as teclas de co- 
mando são as seguintes: | move o ser da 
esquerda para cima, Q, para baixo, e A 
dispara o laser; 0, P e E controlam os 
movimentos do ser da direita. No TRS- 
Color, o jogador da esquerda usa as se- 
tas para cima e para baixo e a tecla Z; 
o da direita usa —, O e /. No MSX, o 
da esquerda usa E, De F; o da direita 
usa I, J e H. No TK-2000, finalmente, 
o jogador da esquerda usa 1, AeQ; o 
da direita, 0, (:) e P. 





10 CLS:PMODE 4,1:88*PEEK (186) *2 
56*PEEK (187) 

20 FOR K=SS TO S8+480 STEP 32 
30 FOR J=K TO K+3:READ A:POKE J 
,A:NEXT J,K 

40 DATA 1,192,3,128,3,192,3,192 
,6,0,0,96,15,192,3,240 

50 РАТА 31,192,3,248,63,192,3,2 
52,15,0,0,240,15,135,113,240 

60 DATA 15,248,15,240,15,248,15 
+240,15,128,1,240,15,128,1,240 
70 DATA 15,128,1,240,12,192,3,4 
8,12,192,3,48,14,224,7,112 

80 DIM L(6),R(6),B(6) 

90 GET(0,0)-(15,15),L:GET(16,0) 
-(31,15),R,G 

100 PCLS:PRINT 610,"D U E L O” 
110 PRINT 698,"GANHE PONTOS ACE 
RTANDO O SEU OPONENTE. CADA 
JOGADOR TEM SEIS BA 
LAS." 

120 PRINT:PRINTTAB(6);"C ON T 
ROLE S" 


130 PRINT:PRINT" JOGADOR 1";TAB 


(19);"JOGADOR 2" 





140 PRINT:PRINT” UP --CIM 
nes 
150 PRINT" DOWN  --BAIXO- 
Р” 
--РОбО-- 


160 PRINT" z 
n 


170 PRINT 6482,"qualquer tecla 
Para comecar"; 

180 IF INKEYS-"" THEN 180 

190 Х1-16:Х2-232:Ү1-88:Ү2<88:В1 
=6:B2=6:51=0:52=0:PCLS 

200 PUT(X1,Y1)-(X1*15,Y1*15),L, 
PSET:PUT(X2,Y2) - (X2*15, Y2*15) , R 
,PSET 

210 FOR K=1 TO 6:CIRCLE(10*K,2) 
,1,5:CIRCLE (255-10*K,2) ,1, 5:NEX 
T 








220 SCREEN 1,1:AS=INKEYS 
230 11-Ү1:1.2-Ү2 

240 ІҒ РЕЕК(341)-247 
THEN Yl-Y1-8 

250 ІР РЕЕК (342) =247 
THEN Yl-Yl*8 

260 IF PEEK(343)=223 
THEN Y2-Y2-8 

270 ІР РЕЕК(338)-251 
THEN Y2-Y2*8 

280 IF Bl-0 AND В2-0 
290 IF Ll-Yl THEN 310 
300 PUT (Xl,L1)-(X1*15,L1*15),B 
¿PUT(X1,Y1)-(X1+15,Y1+15),L 

310 IF L2-Y2 THEN 330 

320 PUT(X2,L2)-(X2+15,L2+15),B: 
PUT (X2,Y2)-(X2+15,Y2+15),R 

330 IF PEEK(340)=247 GOSUB 1000 
340 IF PEEK(345)=223 GOSUB 1500 
350 GTO 230 

360 CLS:IF S1>S2 THEN PRINT €96 
,"JOGADOR 1l GANHOU POR";S1;"A"; 
82:60Т0 390 

370 IF S2>S1 THEN PRINT €96,”JO 
GADOR 2 GANHOU POR”;S2;"A";S1:G 
OTO 390 

380 PRINT €96,"HOUVE EMPATE :”; 
81;"A";81;"!" 

390 AS=INKEYS:GOTO 180 

1000 IF B1=0 THEN RETURN 

1010 PLAY"T12005AGFEDC" 

1020 FOR N=32 TO 232 STEP 16 
1030 LINE (N+1,Y1+7)- (N+6,Y1+7), 
PSET 

1040 LINE (N+1,Y1+7)-(N+6,Y1+7), 
PRESET 

1050 NEXT 

1060 IF Yl=Y2 OR Y1+8=Y2 THEN S 
1=81+1:CIRCLE(10*S1,8),2,5:PLAY 
"T801GDBC" 

1070 CIRCLE(10*B1,2),1,0:Bl*Bl- 
1 
1080 
1500 
1510 
1520 
1530 
PSET 
1540 LINE (N+1,Y2+7)-(N+6,Y2+7), 
PRESET 

1550 NEXT 

1560 IF Y2-Yl OR Y2*8-Yl THEN S 
2-82*1:CIRCLE (255-10*82,8) ,2,5: 
PLAY"TBOlGDBC" 


AND Y1>16 
AND Y1<176 
AND Y2>16 
AND Y2<176 
THEN 360 


RETURN 

IF B2=0 THEN RETURN 
PLAY"T12005BAGFEDC" 

FOR N-216 TO 32 STEP -16 
LINE (N*1,Y2*7)- (N*6,Y2*7) , 











ІШИНЕНЕЕ ІН ЕЕ 17 mh n 


1570 CIRCLE(255-10*B2,2),1,0:B2 
=B2-1 


1580 RETURN 
10 BORDER 0: PAPER 0: INK 7 
20 BRIGHT 0: OVER 0: CLS 


30 PRINT AT 1,9; INK 6; FLASH 
li" DUELO” 


40 PRINT : PRINT 
50 PRINT INK 5;" GANHE PONT 
08 ACERTANDO SEU OPONE 


NTE. CADA JOGADOR 
TEM SEIS BALAS.” 
60 PRINT : PRINT 
70 PRINT TAB 6; INVERSE l;"C 
ONTROL E S" 


80 PRINT : PRINT ” JOGADOR 1 
JOGADOR 2 * 

90 PRINT : PRINT " 1 ж 
-CIMA-- 0 * 

100 PRINT : PRINT " e e^ 
-ВАІХО- P R 

110 PRINT : PRINT " А * 
-TIRO-- ENTER” 

120 PRINT PRINT : PRINT TAB 


6;"QUE VENCA O MELHOR” 

130 FOR n-USR "a" TO USR "i"47 
140 READ d 

150 POKE n,d 

160 NEXT n 

170 DATA 1,3,6,15,31,63,15,15 
180 DATA 192,192,0,192,192,192 
‚0,135 

190 DATA 15,15,15,15,15,12,12, 
14 

200 DATA 248,248,128,128,128, 
192,192,224 

210 DATA 0,0,0,0,0,0,126,0 

220 DATA 3,3,0,3,3,3,0,113 

230 DATA 128,192,96,240,248, 
252,240,240 

240 DATA 15,15,1,1,1,3,3,7 

250 DATA 240,240,240,240,240, 





48,48,112 

260 LET y1=10: LET y2=10 

270 LET bl=6: LET b2=6 

280 LET sl=0: LET в2=0 

290 RESTORE 330: FOR n*1 TO 8 
300 READ d,p 

310 SOUND d,p 

320 NEXT n 

330 DATA .1,7,.09,12,.1,7,.09, 
12,.6,7 





,0 
340 PRII к i FLASH 447 
„QUALQUER TÉCIA PARA COMECAR 





350 LET p=254: GOSUB 570 
360 IF i-191 THEN GOTO 350 
370 INK 4: BRIGHT 1: CLS 
a PRINT INVERSE 1;" JOGADOR] 
0 JOGADOR2" 
390 PRINT "BALAS : 6 
6 BALAS” 


400 PRINT %1:АТ 0,0; ІМУЕНЗЕ 1 


410 GOSUB 600 

420 LET p=63486: GOSUB 570 
430 IF i-62 OR i-30 THEN 
GOSUB 810 

440 LET p-61438: GOSUB 570 
450 IF 1-62 OR i-30 THEN 


GOSUB 840 

460 LET p=64510: GOSUB 570 
470 IF i-62 OR i-30 THEN 
GOSUB 870 

480 LET p=57342: GOSUB 570 
490 IF i-62 OR i730 THEN 
GOSUB 900 

500 LET p=49150: GOSUB 570 
510 IF i-62 OR i-30 THEN 
GOSUB 1020 

520 LET p=65022: GOSUB 570 
530 IF 1=62 OR i=30 THEN 
GOSUB 930 

540 GOSUB 600 

550 IF bl=0 AND b2=0 THEN 
GOTO 1110 
560 GOTO 420 
570 LET i=IN 
580 ІҒ 12191 
590 RETURN 
600 PRINT AT yl,l;CHR$ 144; 
CHR$ 145 

610 PRINT AT 
CHR$ 147 

620 PRINT AT y2,29;CHR$ 149; 
CHR$ 150 

630 PRINT AT y2*1,29;CHR$ 151; 
CHR$ 152 

640 PRINT AT y1-1,1;" 

650 PRINT AT yl*2,1;" ^" 

660 PRINT AT y2-1,29;" ^" 

670 PRINT AT y2*2,29;" " 

680 PRINT AT 0,9; PAPER 4; INK 
9;sl 

690 PRINT AT 0,22; PAPER 4; 
INK 9;82 

700 PRINT AT 1,9;bl 

710 PRINT AT 1,22;b2 

720 RETURN 

730 PRINT AT 10,10;"AAGH! ME A 
CERTOU !" 


740 RESTORE 780: FOR n*1 TO 11 
750 READ d,p 

760 SOUND d,p 

770 NEXT n 

780 DATA .5 
3,5,.2,4,. 
5,2 
790 


800 ВЕТУАМ 

810 IF y1<4 THEN RETURN 
820 LET yl-yl-1 

830 RETURN 

840 IF y2<4 THEN RETURN 
850 LET y2=y2-1 

860 RETURN 

870 IF y1>18 THEN RETURN 
880 LET у1=у1+1 

890 RETURN 

900 IF y2>18 THEN RETURN 
910 LET у2=у2+1 

920 RETURN 

930 IF bl=0 THEN RETURN 
940 SOUND .01,4: SOUND .01,0 
950 FOR n=3 TO 27 
960 PRINT AT yl,n;" 
970 NEXT n 

980 PRINT AT yl,27;" ^" 

990 IF yl-y2 OR yl-y2*1 THEN 
LET sl=s1+1: GOSUB 730 

1000 LET bl=bl-1 


p 
THEN LET i=i-64 


y1+1,1;CHR$ 146; 


4,2,.2,2,.5,2,. 
..2,1,. 





PRINT AT 10,10;* 


";CHRS 148 


1010 RETURN 

1020 IF b2=0 THEN RETURN 

1030 SOUND .01,0: SOUND .01,-10 
1040 FOR n=27 TO 3 STEP -1 
1050 PRINT AT y2,n;CHR$ 148;" " 
1060 NEXT n 

1070 PRINT AT y2,3; 
1080 IF y2-yl OR y2-yl*l THEN 
LET s2=s2+1: GOSUB 730 

1090 LET b2=b2-1 

1100 RETURN 

1110 IF sl>s2 THEN PRINT AT 10 
JOGADOR 1 VENCEU 





THEN PRINT AT 10 
JOGADOR 2 VENCEU 


1120 IF s2>sl 
+5; FLASH 1;” 
1" 

1130 IF sl=s2 THEN PRINT AT 10 
+10; FLASH EMPATE ! ” 

1140 GOTO 260 


na 


10 GOTO 170 

15 81«81-1:1.11МЕ(254,Ү1%5)-(20,Ү 
145) ,15:LINE(254,Y1+5)-(20,Y1+5 
),1 

20 IFY1>Y2-5ANDY1<Y2+13THENP1=P 
1*1:PUTSPRITE2, (X2,Y2),6,2 

25 FORT=0T050:NEXT: RETURN 

30 82=S2-1:LINE(0,Y2+5)-(235,Y2 
*5),15:LINE(0,Y2*5) - (235, Y2*5) , 
1 





35 IFY2>Y1-SANDY2<Y1+13THENP2=P 

2*1:PUTSPRITEl, (X1,Y1),6,2 

40 FORT*0TO50:NEXT:RETURN 

45 CLS:COLOR 15,2,2 

50 LOCATE12,2:PRINT"DUELO ESTEL 

AR” 

55 PRINT:PRINT"ganhe pontos ace 

rtando o seu oponente” 

60 PRINTTAB(5)"cada jogador tem 
seis balas” 

65 PRINT:PRINT:PRINT" jogador 1" 





;SPC(19);" jogador 2":PRINT 

70 РВІМТТАВ(3)"Е ------- c 
z. senao 

75 PRINTIAS ер A Бай 
O Estas 

80 PAINTTAS (3) "F --—----- fos 





8 
85 LOCATEIO, 20: PRINT"<qualquer 
tecla>” 

90 IF INKEYS="" THEN 90 

95 COLOR 15,1,1:SCREEN 2,1 

100 SPRITES (0) =AS 

105 SPRITES(1)=B$ 

110 SPRITES(2)=CS 

115 ІҒ 81-0 ОН 82-0 ТНЕМ 225 
120 OUT C, (INP (C) ANDH) OR3 

125 I-INP(B) 

130 IF(IAND2)-0ANDYlC176THEN Yl 
=Y1+2 

135 1Р(ТАМО4)=0АМОҮ1>1ТНЕМ Yl=Y 
1-2 
140 
145 
150 
Y2-2 
155 IF (1AND128)=0ANDY2<176THEN 
Y2=Y2+2 

160 PUTSPRITEl, (X1,Y1),15,0:PUT 
SPRITE2, (X2, 2) ,15,1 


IF(IAND8)*0 THEN GOSUBIS 
IF(IAND32)-0 THEN GOSUB30 
IF (IAND64) =0ANDY2>1THEN Y2= 










































165 GOTO 115 

170 81=6:82=6:Pl=0:P2=0:C=170:H 
=240 
175 
69 
180 
185 
190 
195 
200 


X1=5:X2=230:Y1=96:Y2=96:B=1 


FOR K=1 TO 8 

READ P,Q,R 

AS=AS+CHRS (P) 

B$=BS+CHRS (Q) 

C$=C$+CHR$ (R) 

205 NEXT K 

210 DATA 48,12,129,48,12,66,255 
,255,36,112,14,24 

215 DATA 48,12,24,40,20,36,72,1 
8,66,144,9,129 

220 GOTO 45 

225 SCREENO:CLS 

230 CLS:PRINT"FIM DE JOGO":PRIN 


T 

235 PRINT:PRINT"jogador 1 = ";Р 
1” pontos” 

240 PRINT"jogador 2 * ";P2;" po 
ntos" 

245 LOCATEB8,20:PRINT"JOGA DE NO 
VO (S/N) ?" 

250 IS-INKEYS:IFIS-"S"THEN RUN 
255 IF I$<>"N"THEN 250 

260 CLS:COLOR15,4,4:END 


[5] 


10 P = 36800:Q = 32:81 = 6:82 = 
6:P1 = 0:P2 = 0:X1 = 1 

15 X2 = 271:Y1 = 96:Y2 = 96:H1 
= 1:82 = 271:V1 = 96:02 = 96 
20 GOTO 85 

25 81 = 81 - 1 


30 HPLOT 20,Y1 TO 279,Y1: HCOL 
Ой= 0 
35 HPLOT 20,Y1 TO 279,Y1: HCOL 


OR= 3 

40 IF Yl > Y2 - 3 AND Yl < Y2 
+ 6 THEN GOTO 75 

45 RETURN 

50 82 = 82 - 1 

55 HPLOT 260,Y2 TO 0,Y2: HCOLO 


0 
60 HPLOT 260,Y2 TO 0,Y2: HCOLO 
3 
65 IF Y2 > Yl - 3 AND Y2 < Y1 
+ 6 THEN GOTO 80 
70 RETURN 
75 P1 » P1 * 1: 
: RETURN 
80 P2 = P2 + 1: 
: RETURN 
85 HOME :E = 35000: HIMEM: E 
90 F = INT (E / 256): POKE 232 
.E - F * 256: POKE 233,F 
95 FORI*ETOE*41*42*3 


PRINT CHR$ (7) 


PRINT CHR$ (7) 


2 

100 READ A: POKE І,А 

105 NEXT 

110 SCALE= 1: ROT= 0 

115 DATA 20 ,0 ,42 ,0 ,74 , 
0 ,106 ,0 ,138 ,0 ,170 ,0 ,202 
,0 ,234 ‚0 ‚10 ‚1 ‚42 ‚1 ‚74 ‚1 
„106 ‚1 ‚138 ‚1 ‚170 ‚1 ‚202 

1 ,234 ,1 ,10 ,2 ,42 ,2 ,74 ,2 
,106 ,2 ,138,2 

120 DATA 0 ,72 ,109 ,73 ,218 
.219 ,255 ,42 ,45 ,45 ,45 ,213 


.219 ,59 ,191 ,9 ,109 ,73 ,218 





‚27 
19 ,27 
125 DATA 


.31 ,159 ,105 ,105 
,223,6,0,0,0 
0 ,72 ,9 ,109 ,209 
,255 ,155 ,45 ,45 ,45 ,173 
+27 ,63 ,223 ,83 ,73 ,109 ,209 
.27 ,31 ,223 ,74 ,105 ,105 ,26 
.223 ,223 ,19,0,0,0 

130 REM SUBROTINA DE LEITURA 
135 REM DO TECLADO 

140 FOR K = 36810 TO 36815 

145 READ A: POKE K,A: NEXT 

150 DATA 64,32,16,8,4,2 

155 РОЙ К = 36900 TO 36935 

160 READ A: POKE K,A: NEXT 
165 DATA 162,6,169,0,157,19 
1,143,202,224,0,208,248,162,0,1 
89,202,143,141 

170 DATA 0,192,169,32,45,16, 
192,240,3,157,192,143,232,224,6 
.208,235,96 

175 УТАВ (4): INVERSE : 
TAB( 39)" ": NORMAL 
180 PRINT TAB( 15) DUEL O 


‚137 ‚2 


‚27 





PRINT 


185 INVERSE 
”: NORMAL 
190 PRINT PRINT " GANHE PONT 
OS ACERTANDO O SEU OPONENTE" 
195 PRINT TAB( 6)"CADA JOGADO 
R TEM SEIS BALAS” 


PRINT ТАВ( 39)” 











200 PRINT PRINT PRINT "JOG 
ADOR 1 --- JOGA 
DOR 2”: PRINT 
205 PRINT " Y. pm СІ 
o” 
9 
p" 
215 PRINT " E eere aT. BAI 
Were e na кб 
PRINT : PRINT : PRINT : PR 





INT 

225 НТАВ (13): INVERSE 
"QUALQUER TECLA": NORMAL 
230 СЕТ Z$: IF Z$ - "" THEN 23 
0 


PRINT 


235 HGR2 HCOLOR= 3 

240 DRAW 1 AT X1,Y1: DRAW 2 AT 
x2,Y2 

245 XDRAW 1 AT H1,V1; XDRAW 2 
AT H2,U2 

250 Vl - Yl:U2 = Y2 

255 DRAW 1 AT Xl,Yl: DRAW 2 AT 
X2,Y2 

260 CALL 36900 

265 TF Sl = 0 OR S2 = 0 THEN 
GOTO 305 

270 IF PEEK (P) = Q AND Y2 < 
181 THEN Y2 = Y2 + 3 

275 IF PEEK (P * 1) = Q THEN 
GOSUB 50 

280 IF PEEK (P + 2) * Q AND Y 
2 > 10 THEN Y2 = Y2 - 3 

285 IF PEEK (P + 3) * Q AND Y 
1 > 10 THEN Yl = Y] - 3 

290 IF PEEK (P * 4) * Q THEN 
GOSUB 25 

295 IF PEEK (P + 5) = Q AND Y 


1€ 181 THEN Yl = Y1 + 3 
300 GOTO 245 

305 TEXT : HOME 

310 PRINT "FIM DE JOGO": 
: PRINT 

315 PRINT "JOGADOR 1 * ";Pl;" 
PONTOS" 

320 PRINT "JOGADOR 2 - ";p2;" 
PONTOS" 

325 PRINT : PRINT : 

A DE NOVO (S/N) ?";A$ 
330 IF AS = "S" THEN 
335 END 


PRINT 


INPUT "JOG 


RUN 








Como vimos em artigos anteriores, 
podemos utilizar vários “truques” para 
explorar melhor os recursos de 

vídeo do TRS-80. Aprenderemos agora a 
gravar uma tela em fita ou disco. 


A sub-rotina VTRANSF, apresenta- 
da no segundo artigo desta série, será 
usada aqui por um programa que copia 
integralmente o conteúdo da tela de уі- 
deo, armazenando-o, depois, em um ar- 
quivo de fita ou disco. Um outro pro- 
grama permitirá a realizacáo da opera- 
ção inversa, ou seja, colocar novamen- 
te na tela um desenho ou texto armaze- 
nado em fita ou disco. 

O método utilizado para isso é seme- 
lhante ao que vimos no artigo anterior, 
quando tratamos da impressão, linha 
por linha, do conteúdo da tela. A dife- 
rença é que, em vez de imprimirmos a 
variável V$, simplesmente a enviamos 
para fita ou disco. 


IMAZENAGEM EM FITA 


Listamos, a seguir, a versáo para fi- 
ta. Depois de digitá-la, acrescente a sub- 
rotina 1000, apresentada no artigo an- 
terior. 


10 CLEAR 500 
20 CLS : PRINT 
ADOR" 

25 PRINT "E PRESSIONE <ENTER> ” 
30 Ci-64 : A: HR$ (34) 

35 IF INKEYS= THEN 35 

40 FOR Vt=0 TO 960 STEP 64 

50 GOSUB 1000:PRINT 4-1,AS;US; 


"PREPARE O GRAV 








60 NEXT Vt 
70 END 


A linha 30 determina o comprimen- 
to da linha de vídeo a ser copiada (54 
posições). Ela se encarrega, também, de 
definir a variável A$, que conterá o ca- 
ractere “aspas”. Este será usado na li- 
nha 50, para englobar a variável V$. A 
linha 35 espera que o usuário prepare o 
gravador e pressione a tecla <EN- 
TER>. Só então o programa continua. 
O laço que vai da linha 40 à linha 60 co- 


OS SEGREDOS 
DO TRS-80 (3) 


pia as dezesseis linhas da tela, sucessi- 
vamente, na variável V$, usando a fun- 
ção VARPTR, e, em seguida, envia pa- 
ra o gravador 1. 

É muito importante colocar todo o 
string V$ entre aspas, pois, se houver al- 
guma vírgula ou ponto e vírgula na te- 
la, a transmissáo para a fita será trun- 
cada, provocando um erro de leitura, 
posteriormente. 


ARMAZENAGEM EM DISC 


A versáo para disco é mais simples: 


10 CLEAR 500 

20 OPEN "0”,1,"TELA1/VID” 
30 Ci-64 

40 FOR V$-0 TO 960 STEP 64 
50 GOSUB 1000 : PRINT 41,VS 
60 NEXT 9% 

70 CLOSE 1:END 


A linha 20 abre um arquivo de aces- 
so seqüencial para saída, chamado TE- 
LA1/VID (poderia ser qualquer nome). 
As linhas 30 a 60 funcionam como na 
versão para fita, só que não são neces- 
sárias as aspas em torno de V$. A linha 
70 fecha o arquivo criado. 


LEITURA EM FITA 


O programa que lé o conteúdo de te- 
la no arquivo, trazendo-o de volta ao ví- 
deo, obedece à mesma seqüéncia: 


10 CLEAR 500 

20 CLS : PRINT "PREPARE O GRAV 
ADOR” 

25 PRINT "E PRESSIONE <ENTER> " 
30 Ct-64 

35 IF INKEY$="" THEN 35 

40 FOR Vt=0 TO 960 STEP 64 

50 GOSUB 1000 : INPUT 4-1,XS 
55 VS=LEFTS(XS,Ct) 

60 NEXT Vt 

70 END 


Observe que a sub-rotina VTRANSF 
também serve para o programa de lei- 
tura, sem modificacóes, já que sua fun- 
ção consiste em determinar a localiza- 
ção e tamanho do string V$ na memó- 
ria. Assim, depois de definida pela linha 
55, a variável V$ é automaticamente ar- 


я MAIS USOS PARA VTRANSF 
E CÓPIA DA TELA 

EM FITA OU DISCO 
п COMO RECUPERAR 
UMA TELA GRAVADA 





mazenada na memória de vídeo. Sua 
exibigáo na tela também é instantánea. 

A função LEFTS toma apenas os 64 
primeiros caracteres de X$, uma vez 
que, na gravacáo, um caractere ASCII 
13 (linefeed) foi adicionado ao final de 
VS. Esse caractere prejudicaria toda a 
tela se nào fosse retirado. 


LEITURA EM DISCO 


A versáo do programa de leitura em 
disco é a seguinte: 


10 CLEAR 500 

20 OPEN "I”",1,"TELAl/VID" 

30 Ct-64 

40 FOR Vt-0 TO 960 STEP 64 

50 GOSUB 1000:LINE INPUT %1,Х5 
55 LSET V$-X$ 

60 NEXT Vt 

70 CLOSE 1:END 


O LSET da linha 55 existe apenas no 
BASIC para disco. Tem a mesma fun- 
ção do LEFTS da versão para fita mas, 
em termos operativos, é mais simples 
que esse comando. 


АРЦСАС0Е5 


Existem muitas aplicações para os 
programas listados neste artigo. Uma 
das mais comuns é na montagem das te- 
las de instruções de um jogo. Estas, 
quando mais elaboradas, podem incluir 
gráficos, juntamente com textos expli- 
cativos — por exemplo, a reprodução do 
desenho de cada tipo de nave inimiga e 
o número de pontos que o jogador ga- 
nha se abatê-las. Em vez de colocar to- 
dos esses dados dentro de uma mesma 
listagem, tornando-a longa e complica- 
da, use os programas de transferência 
para jogar as figuras e o texto direta- 
mente da fita ou disco para o vídeo do 
microcomputador, gastando apenas 64 
bytes de memória RAM! 

Os programas educativos constituem 
uma outra área importante de aplicação. 
As telas podem compor, por exemplo, 
as páginas de um “livro eletrónico””. Ar- 
mazenadas em disco, serão “folheadas” 
pelo aluno, que copiará aquelas que jul- 
gar necessário. 


34 CODIGO DEMÁQUINA 34 





SITUACAO DO PERSONAGEM 













O AVANCO DA MARÉ 
GAIVOTAS, NUVENS 
E VENTO 

PEDRAS E COBRAS 











Uma das tarefas mais difíceis 
na programacáo de jogos em código 
de máquina é garantir a sincronia 
dos diversos eventos. Aqui estáo 

as rotinas que cuidam disso. 


Sempre que vamos recomegar o jo- 
go, precisamos acertar o escore e, tam- 
bém, estabelecer os parámetros que in- 
fluenciam o comportamento de outras 
sub-rotinas. Temos que esvaziar a ma- 
ré que ameaçava Willie, definir a dire- 








ção do vento, colocar Willie de volta ao 
pé do monte e, para que tudo ocorra no 
momento adequado, acertar os diversos 
laços controladores de tempo. 


A rotina que se segue acerta o valor 
das diversas variáveis para que Willie 
possa se dedicar à árdua tarefa de recu- 
perar seu lanche roubado. 


10 REM org 58606 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


dth ld a,6 


14 
1d 
18 
ld 
1d 
1а 















(57353),а 
h1,736 
(57354) ,h1 
h1,130 
(57345) ,h1 
a,3 
(57347) ,a 
a,0 
(57348) ,a 
а,2 
(57349),а 
h1,449 
(57332) ,h1 
h1,0 
(57334) ,h1 








180 REM 1d a,0 

190 REM 1d (57336),a 
200 REM ld h1,223 
210 REM 1d (57356) ,h1 
220 REM ld a,0 

230 REM 1d b,5 

240 REM 1d (57350),a 
250 REM add a,b 

260 REM 1d (57351),a 
270 REM add a,b 

280 ВЕМ 14 (57352),а 


Essa rotina nào é chamada apenas no 
início do jogo, mas, também, quando 
ele recomeca, depois de Willie encontrar 
a morte dentro de um buraco, afogado 
ou embaixo de alguma pedra. 


Colocando todas as variáveis juntas 
na memória do microcomputador, po- 
demos verificar o status do jogo a qual- 
quer instante, o que facilita muito a ta- 
refa de depuração de erros. 

Variáveis de um byte são modifica- 
das através do acumulador, que tem oi- 
to bits, enquanto o par de registros HL 
se encarrega das variáveis de dois bytes, 
mesmo que o seu conteúdo no momen- 
to caiba em apenas um byte. Isso ocor- 
re porque o byte mais significativo tam- 
bém deve ser modificado. 

O endereço 57353 contém o atraso do 
movimento da maré. Colocamos ali o 
número 6, dando a Willie uma chance 
razoável de escalar a montanha antes de 
se afogar. Depois, esse valor poderá ser 
modificado para acelerar o avanço da 
maré, o que tornará o jogo mais difícil 
e mais emocionante. 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posição da tela correspondente ao 
canto superior esquerdo do mar é colo- 
cada nos endereços 57354 e 57355. O nú- 
mero 736, valor inicial dessa variável, 
equivale ao endereço da extremidade in- 
ferior esquerda da tela. 


A NUVEM 


Na versào do jogo para o Spectrum, 
há uma nuvem cruzando o céu. O en- 
dereço 57345 contém sua posição de im- 
pressão na tela. O valor inicial dessa va- 
riável é 130. 

Mas o programa utiliza outros dados 
para cuidar do movimento da nuvem, 
Se não provocarmos um atraso, ela atra- 
vessará o céu tão rapidamente quanto 
um avião a jato. Para evitar isso, colo- 
camos um contador de atraso na posi- 
ção 57347. Seu valor inicial é 3. 

Precisamos também saber em que di- 

















recáo sopra o vento, para que a nuvem 
se mova de acordo. À informação fica 
armazenada em 57348. Quando esse 
byte vale zero, a nuvem se movimenta 
para a direita; quando vale 1, para a es- 
querda, No programa, essa variável tem 
valor inicial zero, movendo, portanto, 
a nuvem para a direita. 


VIDA 





ВТЕ 


Um atraso para o movimento das gai- 
votas é colocado em 57349, com valor 
inicial 2. A posicáo que Willie ocupa na 
tela fica em 57352. O programa coloca 
ali o valor 449, correspondente ao can- 
to inferior esquerdo do perfil da encos- 
ta da montanha. 

Uma outra variável informa ao pro- 
grama se nosso herói está parado, cor- 
rendo ou saltando. Por motivos que co- 
nheceremos mais adiante, utilizaremos 
dois bytes, 57334 e 57335. Como Willie 
comega o jogo em pé, parado no sopé 
da montanha, o programa coloca zero 
naquelas posições. 

A situação atual do jogo pode ser 
monitorada pela variável que fica em 
57336. Se esse byte for 0, Willie vai bem, 
obrigado. Se for 1, ele acaba de recupe- 
rar parte do seu lanche'e as rotinas do 
próximo nível de dificuldade vào ser 
chamadas. Se for 2, Willie morreu! Co- 
mo no início do jogo nosso personagem 
está vivo, o programa coloca 0 nessa po- 
sição. 


PEDRAS E COBRAS 


A variável que controla a posicáo da 
pedra fica em 57356. O programa colo- 
ca ali seu valor inicial, 223, que corres- 
ponde ao topo da montanha, no canto 
superior direito. 

As trés cobras tém língua que se me- 
xe. Como nào é desejável que as línguas 
facam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso, cólocam-se variáveis de atra- 
so diferentes para cada língua, nos en- 
dereços 57350, 57351 e 57352. O acumu- 
lador recebe o valor zero, e o registro 
B, o nümero 5. Na primeira variável de 
atraso coloca-se, entáo, zero. Soma-se 
o conteúdo de B ao acumulador e o re- 
sultado, 5, é colocado no segundo atra- 
so. Mais uma vez 5 é somado ao acu- 
mulador e o resultado, 10, vai para o 
terceiro atraso. 









O programa em Assembly listado a 


seguir estabelece o valor inicial de uma 
série de variáveis que sáo usadas para 
controlar o jogo. 


10 ORG 
20 NLV 
30 STA 
40 LDX 
50 STX 
60 LDX 
70 STX 
80 CLR 
90 CLR 
LDX 


19447 
LDA 46 
18246 
47424 
18247 
$5088 
18249 
18251 
18252 
43070 
STX 18253 
CLR 18255 
LDA 5 
STA 18256 
LDA 410 
STA 18257 
RTS 


140 
150 
160 
170 


Essa rotina, que recebeu o rótulo 
NLY, é utilizada no início do jogo e, 
também, quando Willie morre. 


Uma das vantagens de se colocar to- 
das as variáveis em um mesmo local da 
memória é que podemos verificar facil- 
mente o status do jogo quando estamos 
depurando os erros. 

O valor de variáveis de um byte é es- 
tabelecido com a ajuda do acumulador, 
que tem oito bits, enquanto o registro 
X, de dezesseis bits, se encarrega das va- 
riáveis de dois bytes, mesmo que o seu 
conteüdo, no momento, caiba em um 
ünico byte. Isso ocorre porque o byte 
mais significativo também deve ser mo- 
dificado. 

O endereco 18246 contém o atraso do 
movimento da maré. O programa colo- 
ca o valor 6 nessa posigáo para que Wil- 
lie tenha uma chance razoável de subir 
a montanha antes de se afogar. Depois 
poderemos mudar esse valor para ace- 
lerar o avanço da maré, tornando o jo- 
go mais difícil e emocionante. 

O mar deve ser desenhado a partir da 
base da tela, a cada nova etapa do jo- 
go. A posição da memória de vídeo cor- 
respondente ao canto superior esquer- 
do do mar é colocada nos bytes 18247 
e 18248. O programa guarda ali o valor 
inicial 7424, que corresponde ao canto 
inferior esquerdo da tela. 


VIDA OU MORTE 


A posigáo de Willie na tela fica ar- 
mazenada em 18249. O programa colo- 
ca nesse byte o valor inicial 5088, cor- 
respondente ao canto inferior esquerdo 
do perfil da encosta da montanha, de 





onde nosso herói deve partir em busca 
do lanche perdido 

Uma outra variável, que fica em 
18251, verifica se Willie está parado, an- 
dando'ou pulando, O programa coloca 
valor zero nessa posição já que no iní- 
cio do jogo o personagem está parado, 
ao pé da montanha. 

A situação atual do jogo pode ser 
monitorizada pela variável que fica em 
18252. Se esse byte for 0, Willie vai bem, 
obrigado. Se for 1, ele acaba de recupe- 
rar parte do seu lanche e as rotinas do 
próximo nível de dificuldade vào ser 
chamadas. Se for 2, Willie morreu! Co- 
mo no início do jogo nosso personagem 
está vivo, o programa coloca 0 nessa po- 
sigáo, 


PEDRAS E COBRAS 


A variável que controla a posição da 
pedra fica em 18253. O programa colo- 
ca ali seu valor inicial, 3070, que corres- 
ponde ao topo da montanha, no canto 
superior direito. 

As três cobras têm lingua que se me- 
xe. Como não é desejável que as línguas 
façam o mesmo movimento, precisamos 
provocar uma defasagem em seu ritmo. 
Para isso, colocam-se variáveis de atra- 
so diferentes para cada língua, nos en- 


dereços 18255, 18256 e 18257. A primei- 
ra variável de atraso é limpa com CLR, 
tornando-se zero. Os números 5 e 10 são 
colocados, respectivamente, na segunda 
ena terceira variáveis'de atraso, com o 
auxílio do acumulador. 


n ERRAN НАВ 


A rotina listada a seguir ajusta uma 
série de variáveis com os valores que elas 
precisam conter quando Willie inicia sua 
arriscada missão. 


org -11645 

mrt ld a,6 

14 (-5213),а 
h1,736 
(75212) ,hl 
h1,130 
(75210) ,hl 
a,3 
(-5208),а 


а,0 
(-5207),а 
а,2 
(-5206) „а 
h1,481 
(-5205) ,h1 
h1,0 
(-5203) ,h1 
а,0 
(-5201),а 
h1,255 


210 
220 


1d (-5200),hl 
14 а,0 

230 1d b,5 

240 1d (-5198),a 
250 add a,b 

260 14 (-5197),а 
270 add a,b 

280 14 (-5196),а 


Essa rotina, rotulada mrt, nào é сһа- 
mada apenas no início do jogo, mas, 
também, após a morte de Willie, quan- 
do as variáveis sáo reajustadas para uma 
nova partida. 


Como reunimos todas as variáveis em 
um mesmo lugar da memória, podemos 
verificar o status do jogo a qualquer mo- 
mento, quando precisamos corrigi-lo, 

As variáveis de um byte sáo ajusta- 
das pelo acumulador de oito bits, en- 
quanto o par HL, que tem dezesseis bits, 
se encarrega das variáveis de dois bytes, 
mesmo que o valor nelas armazenado, 
em determinado estágio, caiba em um 
só byte. Isso ocorre porque os bits mais 
significativos da variável também devem 
ser ajustados. 

A posigáo de memória —5213 con- 
tém o atraso do mar. Ela é carregada 
com o valor 6, para que Willie tenha, 








uma razoável chance de escalar a mon- 
tanha antes de se afogar. Depois, pode- 
remos modificar esse valor para acele- 
rar o avanço da maré, tornando o jogo 
mais difícil e emocionante. 

No início de cada tentativa de Wil- 
lie, o mar deve estar bem baixo, na par- 
te inferior do cenário. A posição do can- 
to esquerdo da superfície do mar é ar- 
mazenada em —5212 e —5211. 

O nümero 736 é carregado nessa po- 
sição, que corresponde ao canto inferior 
esquerdo da tela. 


A NUVEM 


Na versáo de Avalanche para o MSX, 
a nuvem move-se no céu acima da mon- 
tanha. Os endereços —5210 e — 5209, 
que contêm sua posição na tela, sáo car- 
regados com 130, que corresponde ao 
ponto onde ela surge. 

Mas o programa utiliza outros dados 
para cuidar do movimento da nuvem, 
Se não provocarmos um atraso, ela atra- 
vessará o céu como um jato. 

Para ajustar a variável de atraso, car- 
rega-se o endereço em que está armaze- 
nada, — 52080, com o valor 3. 

Precisamos também definir a direção 
em que a nuvem se move. Esta informa- 
ção é armazenada em — 5207. Se colo- 
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carmos O nesse endereço, ela se dirigirá 
para a direita; se colocarmos 1, para a 
esquerda. Como a rotina será inicializa- 
da tendo O nessa posição, a nuvem irá 
para a direita, 


VIDA 0U MO0R` 


O atraso do movimento da gaivota é 
armazenado no endereço — 5206, sendo, 
inicialmente, ajustado com o valor 2. À 
posicáo de Willie na tela é determinada 
pelo conteúdo dos endereços — 5205 e 
— 5204, que sáo carregados com 481, 
valor correspondente ao lado esquerdo 
da base da encosta. 

Uma outra variável controla a movi- 
mentagáo de Willie, se ele estiver de pé, 
correndo ou pulando. Por razóes que 
veremos depois, ela é armazenada em 
dois bytes, — 5302 e — 5202. Como, no 
início do jogo, Willie está de pé, esses 
endereços são ajustados em 0. 

A condição geral do jogo é monito- 
rada pela variável, que fica no endere- 
ço — 5201. Vamos chamá-la de variável 
morte. Se seu valor for 0, está tudo bem 
com Willie. Se for 1, nosso personagem 










alcançou seu prêmio e a próxima tela do 
jogo deverá ser chamada. Um valor 2 
significa que Willie está morto! Como 
o jogo começa com Willie vivo, esse byte 
é carregado com 0. 


РЕРВАЅ Е СОВААЅ 


A variável que controla a posição da 
pedra é armazenada nos endereços 
— 5200 e — 5199, Essa variável é ajus- 
tada com o valor 255, que corresponde 
ao lado direito do topo da encosta. 

As três cobras têm língua que se me- 
xe, Como não é desejável que as línguas 
tenham o mesmo movimento, devemos 
provocar uma defasagem em seu ritmo. 
Para isso, carrega-se o acumulador A 
com o valor 0 e o registro B com a de- 
fasagem 5. O valor 0 é armazenado na 
variável de atraso da primeira cobra 
(—5198). A defasagem 5 é adicionada 
ao valor de A (0) pela instrução add a,b 
eo resultado, 5, vai para a variável de 
atraso da segunda cobra (— 5197). Re- 
pete-se a operação e o resultado, 10, é 
armazenado na variável de atraso da ter- 
ceira cobra (— 5196). 
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MOUSE MECÁNICO 
E MOUSE ÓPTICO 


O mouse é um periférico cada vez 
mais procurado por usuários de 
microcomputadores pessoais ou 
profissionais. Conheça-o de perto 
e descubra suas várias utilidades. 


A busca por novas formas de intera- 
ção entre o usuário e o computador tem 
levado ao desenvolvimento de diversos 
tipos de periféricos, como o joystick, a 
caneta óptica e o tablete de digitaliza- 
ção, que têm por finalidade facilitar o 
deslocamento de um cursor, de texto ou 
gráfico, sobre a tela. 

Um dos periféricos dessa família é o 
mouse, ou camundongo, dispositivo que 
vem sendo cada vez mais usado em mi- 
crocomputadores de todos os tipos. 

O mouse recebeu essa denominação 
em virtude da semelhança física com um 
ratinho: é uma pequena caixa achatada, 
de cantos arredondados, com um a três 
botões planos em sua superfície dorsal 
e um fio (o **rabo'") que sai da parte tra- 
seira, conectado ao computador. 

Para usá-lo, repousa-se uma das 
màos sobre a caixinha, ao mesmo tem- 
po apoiando um ou mais dedos sobre os 
botões. Para efetuar algum movimento 
do cursor sobre a tela de vídeo, basta 
deslocá-lo levemente de um lado para 
outro sobre uma superfície dura e pla- 
na. Com um mínimo de prática, o usuá- 
rio aprende a coordenar o mouse com 
o que acontece na tela, conseguindo 
grande agilidade e flexibilidade em inú- 
meras funções fixadas por um software 
especial — entre elas, selecionar itens em 
um menu, desenhar sobre a tela, apon- 
tar um cursor ou uma mira etc. 

Os botóes da parte de cima do mouse 
tém um papel idéntico ao do botáo de 
disparo de um joystick, sendo usados, 
normalmente, para selecionar opções. 


DA ORIGEM À POPULARIZ, 





O mouse nasceu em um centro de 
pesquisas norte-americano, que estava 
desenvolvendo uma nova linguagem, 
chamada small-talk, e precisava de um 
terminal de vídeo especial para imple- 


mentar os novos conceitos de interati- 
vidade que seus criadores imaginaram. 
O periférico que eles criaram era uma 
espécie de trackball às avessas: em vez 
de deslocar com a palma da mão uma 
esfera presa ao teclado, o usuário des- 
locava a esfera sobre uma superfície. 
Inicialmente, o uso desse dispositivo 
foi bastante restrito, já que era dispo- 
nível apenas para minicomputadores 


muito caros. Porém, a partir do apare-. 


cimento dos microcomputadores das li- 
nhas Lisa e Macintosh (fabricados pela 
Apple Computer nos EUA), que basea- 
ram seus sistemas operacionais na inte- 
ração com o mouse, ele passou a ser fa- 
bricado também para outras linhas de 
microcomputadores. Em pouco tempo, 
tornou-se muito conhecido. 

No Brasil, o mouse está disponível pa- 
ra -microcomputadores das linhas ZX 
Spectrum (TK-90X e TK-95), Apple II e 
MSX. No exterior podem ser encontra- 
dos modelos para micros de outras li- 
nhas. Em um artigo futuro, ensinaremos 
algumas técnicas em BASIC para o mouse. 

Embora um mouse tenha sempre a 
mesma aparência externa, com poucas 
variações de um modelo para outro, 
existem, na realidade, dois tipos funda- 
mentalmente diferentes quanto ao me- 
canismo de funcionamento: o mouse 
mecánico e o mouse óptico. 

O primeiro tem uma esfera de plásti- 
co ou metal maciço em sua “barriga” 
(ou seja, no lado voltado para a mesa). 
Quando o dispositivo é deslocado, a es- 
fera gira ao redor de seu centro, acom- 
panhando o movimento. Sensores colo- 
cados em sua superfície, dentro da cai- 
xinha, enviam ao computador os ângu- 
los de rotação verificados em duas di- 
mensões e um software especial, previa- 
mente carregado na memória do com- 
putador, transforma esses ângulos em 
coordenadas X e Y, que são usadas pa- 
ra posicionar o cursor na tela. i 

O mouse óptico funciona de acordo 
com um princípio totalmente diferente: 
um diodo luminescente (LED), localiza- 
do na parte inferior da caixinha, lanca 
um feixe de luz em direção à superfície 
sobre a qual será deslocado o mouse. 
Em outro orifício, um sensor luminoso 
capta as variações da luz refletida pela 
superfície. 


E UM PERIFÉRICO DIFERENTE 
= COMO FUNCIONA 
UM MOUSE MECÁNICO 

W COMO FUNCIONA UM 
MOUSE ÓPTICO 





Ao contrário do mouse mecânico, 
que pode ser deslocado sobre qualquer 
superfície plana e náo muito lisa, o mou- 
se óptico requer uma superfície especial, 
Esta consiste de um tablete todo mar- 
cado com um quadriculado em cor azul 
ou preta. Ao se deslocar o mouse sobre 
ela, as linhas do quadriculado provocam 
uma alteragáo na reflexáo do feixe de 
luz vermelha emitido pelo diodo, o que 
é sentido pelo software especial como 
uma movimentacào em algum sentido. 
Essa informação, por sua vez, é trans- 
mitida ao computador e convertida em 
coordenadas X e Y. 

Cada tipo de mouse apresenta van- 
tagens e desvantagens. O modelo mecá- 
nico é mais frágil, quebrando-se facil- 
mente, e menos sensível do que o ópti- 
co. Porém, pode ser usado sobre qual- 
quer tipo de superfície. Já o mouse óp- 
tico requer uma superfície especial, li- 
mitada em tamanho, e apresenta ainda 
a desvantagem de necessitar de uma fon- 
te de alimentação — dependendo do 
modelo, ela precisa ser separada da fon- 
te de alimentação do computador. 

A maioria dos periféricos de tipo 
mouse é conectada ao micro através da 
porta de joystick analógico ou de uma 
porta serial do tipo RS-232. 

Antes de adquirir um mouse, verifi- 
que suas características para se certifi- 
car de que poderá compatibilizá-lo com 
seu computador. 


АРИСАСФЕ5 


O mouse é um periférico muito diver- 
tido e fácil de usar, tanto em programas 
para jogos de qualquer tipo, quanto em 
aplicacóes mais ''sérias"'. 

A princípio, toda aplicação que per- 
mite a utilização de canetas ópticas ou 
joysticks também se presta para o uso 
do mouse. Existem, porém, alguns pro- 
gramas comercialmente disponíveis, que 
são feitos exclusivamente para o mou- 
se. Incluem-se, entre eles, programas de 
desenho sobre a tela, de seleção rápida 
de menus etc. 

E não se esqueça: com alguns coman- 
dos simples em BASIC, não será difícil 
desenvolver os seus próprios programas 
para o irrequieto mouse. 





CONTAGEM DOS PONTOS 


TROCA DE TELA 


uo SERI ES ROLE: CÓDIRO DEMAQUINACIGS I ТЇ ШЕН ШЇ 
E 
= IMPRESSÃO DO ESCORE 





AVALANCHE: 
CONTE OS PONTOS RHODE VS 


A simples obtenção de prêmios não o número de vidas que ainda restam a 150 RES asc IT 
i эл i Willie. Além disso, encarrega-se da exe- REM org 5 
satisfaz um aventureiro: ele precisa deko danica, 8 180 REM print * 


190 REM org 60006 
saber exatamente quantos pontos 200 REM tune X 


conseguiu com seu esforço. Monte estas 10 REM org 58676 


2 4 L 0 
rotinas e veja o placar funcionar. o IM 0 INÍCIO DO JOGO 


40 REM 1d h1,119 





50 REM 1d a, (57343) A instrução call Isi chama a sub- 

A rotina que conta pontos também 60 ВЕМ 14 Ь,48 rotina que desloca a tela para a esquer- 

troca as telas, imprime o escore, o nível 70 REM add a,b da. A tela apropriada é selecionada pe- 

de dificuldade e o número de vidas. 80 REM call asc la sub-rotina elb, que publicamos em ar- 
90 REM 1d a,dl tigo anterior. 


100 REM call print С 
110 REM call tune Em seguida, a rotina scp, que será 


120 REM ret dada logo adiante, é chamada. Ela é res- 

130 REM org 58303 ponsável pela impressào do escore na te- 

A rotina a seguir desenha a tela apro- 140 REM lsi * la. Nào execute o programa antes de tê- 
priada, imprimindo também o escoree 150 REM org 58174 la montado. 























O par de registros HL recebe a posi- 
gáo de impressáo do número de vidas, 
119. Quando a sub-rotina print for cha- 
mada, HL indicará, como de costume, 
a posição de impressão. 

O acumulador recebe o conteúdo do 
endereço 57343. Nessa posição de me- 
mória armazena-se o número de vidas 
que Willie ainda tem. O número 48 é, en- 
tão, colocado em B. Para calcular o có- 
digo ASCII do número a imprimir, so- 
ma-se o conteúdo desses dois registros. 

Depois a rotina asc é chamada. Co- 
mo você deve estar lembrado, essa roti- 
na faz com que BC aponte рага о р: 
drão do algarismo a ser impresso na ta- 
bela de caracteres da ROM. A cor do 
número é escolhida colocando-se 41 em 
A. A rotina print é chamada para im- 
primir na tela o número de vidas que res- 
tam a Willie. A rotina tune, por sua vez, 
é chamada para executar a música. Es- 
er montada novamente 














trário, o programa não funcionará. 


PLACAR 


Esta é a rotina scp chamada pela ro- 
tina anterior: 


10 REM org 58939 
20 REM scp ld hl,55 
30 REM ld 1x,57337 


40 REM ld b,6 

50 REM scq push bc 
60 REM ld a,(1x+0) 
70 REM 1d b,48 

80 REM add a,b 

90 REM call asc 
100 REM 1d a,41 

110 REM call print 
120 REM inc hl 

130 REM inc ix 

140 REM pop bc 

150 REM djnz scq 
160 REM ret 

170 REM org 58174 
180 REM asc * 

190 REM org 58217 
200 REM print * 


O par de registros HL recebe o valor 
SS, que corresponde à posição da tela 
em que será impresso o primeiro dígito 
do escore. O endereço do primeiro byte 
que contém o escore é colocado no 
registro-indice IX, que pode, então, ser 
usado como apontador. 

O número de dígito do escore, 6, é 
colocado em B. Este contador fica tem- 
porariamente na pilha. 

O byte apontado por IX é transferi- 
do em seguida para o acumulador, o que 
faz com que os digitos do escore sejam 
colocados em A. 

O número 48 é adicionado para cal- 
cular o código ASCII do algarismo e a 
rotina asc é chamada para acertar o 
apontador de padrões. Para a seleção da 
cor da letra, coloca-se 41 em A. A roti- 





— 


na print é chamada de novo para impri- 
mir o dígito. 

O par de registros HL aumenta em 
uma unidade para apontar a próxima 
posição de impressão. Observe que os 
dígitos mais significativos do escore são 
impressos primeiro. O registro IX tam- 
bém aumenta em uma unidade, apon- 
tando para a próxima variável do esco- 
re. Os dígitos decimais do placar são ar- 
mazenados separadamente, um em ca- 
da variável, do mais significativo para 
o menos significativo. 

O contador é recuperado da pilha 
e colocado em B. A instrução djnz 
diminui seu valor em uma unidade, 
Se ele ainda não for zero, o processa- 
dor volta ao rótulo seg para imprimir o 
dígito seguinte. Depois que o lago tiver 
sido executado seis vezes, imprimindo os 
seis digitos do escore, o processador re- 
tornará. 


Esta rotina desloca a tela antiga e de- 
senha a nova com o sol, o número de 
vidas e o placar. 


10 ORG 19489 
20 JSR $4AA5 
30 LDX $1807 
40 LDU 417544 
50 LDB 45 

60 SCPR LDA 43 
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70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


SCPRI PULU Y 
STY ,X++ 
DECA 


BNE SCPRI 
LEAX 26,X 
DECB 

BNE SCPR 
JSR PRSC 
LDX $2063 
LDU 417574 

LDB #5 

SCPRZ LDA 43 
SCPRC PULU Y 
STY ,X++ 

DECA 

BNE SCPRC 

LEAX 26,X 

DECB 

BNE SCPRZ 

LDA 18239 

LDB 45 

MUL 

ADDD 417724 
TFR D,U 

LDX $2070 

LDB 45 

SCPRD PULU A 
STA ,X 

LEAX 32,X 

DECB 

BNE SCPRD 

JSR 30000 

RTS 

NOP 

NOP 

PRSC PSHS D,X,Y 
LDX $18240 

LDB 46 
LDY $1814 







































































































PRSCB LDA ,X 
470 PSHS X,B 
480 BITB 41 

490 BNE ROLL 
500 LDB 45 

510 MUL 

520 ADDD 417724 
530 TFR D.X 

540 PSHS Y 

550 LDB 45 

560 PRSCA LDA,X* 
570 STA,Y 

580 LEAY 32,Ү 
590 DECB 

600 BNE PRSCA 
610 PULS Y 

620 LEAY 1,Ү 

630 ROLRET PULS B,X 
640 LEAX 1,X 

650 DECB 

660 BNE PRSCB 

670 PULS Y,X,D 





680 RTS 
690 ROLL LDB 45 
700 MUL 


710 ADDD 417724 
720 TFR D,X 

730 PSHS Y 

740 LDB 45 

750 RLLA LDA,X+ 
760 PSHS A 

770 ANDA $15 


780 LSLA 
790 LSLA 
800 LSLA 
810 LSLA 


820 ORA 415 
830 STA 1,Y 
840 PULS A 


850 LSRA 

860 LSRA 

870 LSRA 

880 LSRA 

890 ОВА %550 
900 STA ,Y 
910 LEAY 32,Y 
920 DECB 


930 BNE RLLA 
940 PULS Y 

950 LEAY 2,Y 
960 BRA ROLRET 


A TEI 





Inicialmente, o programa salta para 
a sub-rotina do endereço $4AA5, que 
substitui a tela antiga pela nova e dese- 
nha o sol. 
Em seguida, a posição da tela em que 
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queremos imprimir a primeira letra da 
palavra "SCORE" é colocada em X. O 
apontador da pilha do usuário, U, re- 
cebe o endereço inicial da tabela de da- 
dos correspondentes à palavra a ser im- 
pressa. Esses dados foram colocados ali 
pelo programa BASIC criador de tabe- 
las, já publicado. O registro B recebe o 
valor 5, pois as letras têm apenas cinco 
bytes de altura. 

Existem cinco letras em “SCORE” 
mais um espaço, totalizando seis. Po- 
rém, A recebe o número 3, já que usa- 
remos o registro Y para imprimir dois 
bytes de cada vez. 

Os dois bytes que se encontram no to- 
po da pilha do usuário são colocados no 
registro Y pela instrução PULU Y. A pi- 
lha do usuário é, no momento, a região 
da tabela de dados apontada por U. Es- 
ses dois bytes passam a ocupar as posi- 
ções de memória de vídeo apontadas por 
X. Em seguida, o registro X tem seu 
conteúdo aumentado em duas unidades, 
apontando, então, para as duas posições 
seguintes. 

A instrução DECA diminui o acumu- 
lador em uma unidade e BNE SCPRI re- 
pete o laço até que todos os seis bytes 
tenham sido impressos — o que coloca 
na tela apenas a primeira linha da pala- 
vra, Depois disso, a instrução LEAX 
26,X soma 26 ao conteúdo de X, mo- 
vendo-o da ponta direita da linha im- 
pressa até a posição de impressão da 
próxima linha da palavra. Esta fica seis 
bytes para a esquerda, na linha inferior. 
Lembre-se de que existem 32 bytes por 
linha e seis letras na palavra: 32 — 6 = 
26. 


O registro B é diminuído em uma uni- 
dade pela instrução DECB. O processa- 
dor retorna ao rótulo SCPR até que to- 
das as cinco linhas da palavra tenham 
sido impressas. Finalmente, a instrução 
JSR PRSC salta em direção à sub-roti- 
na de impressão do escore. 


AS CINCO S DE WILLIE 


A rotina que imprime a palavra “VI- 
DAS” é quase idêntica à que imprimiu 
“SCORE”. Apresenta apenas duas di- 
ferenças: a posição de impressão na te- 
la — apontada pelo registro X — e a 
porção da tabela de dados utilizada — 
apontada por U. Apesar da nova posi- 
ção na tela e dos diferentes valores da 
tabela de dados, o processo de impres- 
são é exatamente o mesmo. 

Ao contrário da anterior, essa roti- 
na não salta para a sub-rotina de impres- 
são do número de vidas ao terminar, 
pois esta última se encontra logo a se- 
guir na memória. 











O nümero de vidas que restam a Wil- 
lie fica armazenado em 18239. O con- 
teúdo dessa posigáo é colocado no acu- 
mulador e o número 5, em B. Em segui- 
da, os dois registros sào multiplicados. 

Para imprimir o nümero de vidas na 
tela, o programa tem que obter na ta- 
bela de dados o padrào do algarismo 
correspondente. Cada caractere requer 
inco bytes para definir seu padráo. As- 
, para acharmos o endereco inicial 
do padráo do algarismo desejado, pre- 
cisamos percorrer a tabela de dados em 
múltiplos de cinco. 

O resultado da operação MUL — 
que multiplica os conteúdos de A e B— 
é colocado em D. O endereço inicial da 
porção da tabela que nos interessa — 
17724 — é somado a esse resultado. 
Obtém-se, assim, o endereço inicial do 
padrão do algarismo correspondente ao 
número de vidas. 

O valor calculado é transferido para 
o apontador da pilha do usuário, U, de 
forma que essa região da tabela se trans- 
forma na pilha. 

No registro X, coloca-se novamente 
a posição de impressão na tela; no re- 
gistro B, o número de bytes necessário 
para escrever o algarismo, $. O primei- 
ro byte do padrão é retirado da pilha, 
colocado em A e impresso na posição de 
tela apontada por X. 

Desta vez o registro X é acrescido de 
32. Como apenas uma figura vai ser im- 
pressa, o apontador X precisa ser colo- 
cado uma posição de tela abaixo, de mo- 
do que passe a apontar para a próxima 
linha de pixels da figura. 

B é decrementado e o processador sai 
do laço, executando a instrução seguin- 
te se todos os cinco bytes já tiverem si- 
do impressos na tela. 

Para finalizar, o processador salta 
para a rotina 30000, que toca a música, 
criando o clima adequado para se ini 
ciar a aventura. No retorno dessa sub- 
rotina, a instrução RTS devolve o con- 
trole ao BASIC. 

RTS será apagada por uma outra ins- 
trução, quando o programa completo 
estiver montado. Ela é seguida por duas 
instruções NOP — Nenhuma OPeração 
—, que nada executam, servindo apenas 
para guardar o lugar dos dois últimos 
bytes da instrução JSR. Esta apagará 
RTS e acionará o laço principal que con- 
trola o programa completo. 


OS NUMEROS DO R 


Os bits de cada linha de uma figura 
completam um byte. Se vocé impri: 

















cada um desses bytes diretamente, dei. 
xando-os muito próximos, eles termina- 


rão por interferir uns nos outros, tor- 
nando-se, então, ilegíveis. 

Para contornar essa dificuldade, a ro- 
tina que imprime os dígitos do escore 
controla as figuras — neste caso, núme- 
ros — meio byte, criando um espaço en- 
tre eles e fazendo com que os dígitos se 
tornem legíveis. 

A rotina PRSC começa colocando os 
conteúdos dos registros D,X,Y na pilha 
da máquina, de modo a preservar seus 
valores. Mais tarde, precisaremos ape- 
nas do valor armazenado em Y. Mas 
nosso procedimento, aqui, vale como 
um lembrete: quando se programa em 
linguagem de máquina, convém empi- 
lhar o conteúdo de todos os registros 
que serão utilizados na sub-rotina. Sem- 
pre existe a possibilidade de que, poste- 
riormente, seja necessário armazenar 
um importante parâmetro em um regis- 
tro. Na dúvida, convém empilhá-lo. 

A posição de memória 18240 arma- 
zenao byte correspondente ao primeiro 
dígito do escore. O valor decimal de ca- 
da um dos seis digitos do escore — do 
mais significativo ao menos sig) i 
vo — está guardado em seis posições de 
memória, de 18240 até 18245. 

Como seis figuras serão impressas, 
carrega-se B com o número 6;Y é carre- 
gado com a posição de impressão. 

O conteúdo da posição de memória 
apontada pelo registro X é colocado no 
acumulador A. Esse registro está apon- 
tado para a memória do escore. Em se- 
guida, os valores de X e B são preserva- 
dos na pilha. 

A instrução BITB 41 verifica o bit 
zero do registro B. Se B tem um valor 
par — e o bit zero, portanto, não é | —, 
a instrução BNE ROLL desvia o progra- 
ma para a sub-rotina ROLL, que des- 
loca todas as outras figuras meio espa- 
ço para a direita. Mas se o valor de B 
é impar — e, consequentemente, o bit 
zero é | — o processador continua com 
a próxima instrução. 


Para imprimir a figura na tela, o pro- 
cedimento é o mesmo utilizado no nú- 
mero de vidas. Multiplica-se o dígito re- 
querido por cinco e adiciona-se o resul- 
tado ao endereço-base da tabela de da- 
dos do primeiro dígito. 

Desta vez, porém, o apontador obti- 
do é transferido para X, enquanto o 
apontador da posição de impressão em 
Y é colocado na pilha. 

Carrega-se em A o byte da tabela de 
dados que está sendo apontado e incre- 
menta-se o registro X. Esse byte é arma- 
zenado na posição de tela apontada por 








Y. O valor 32 é adicionado ao conteú- 
do de Y, fazendo com que este aponte 
para a linha de bits logo abaixo na fi- 
gura. B é decrementado e o processador 
retorna para colocar o próximo byte 
abaixo, até que todos os cinco bytes que 
compõem a figura do dígito tenham si- 
do impressos. 

Depois disso, o apontador da posição 
de tela é recuperado da pilha e incremen- 
tado, passando a apontar para a próxi- 
ma posição à direita. 

O valor do contador em B e o apon- 
tador de memória do escore X são no- 
vamente recuperados da pilha. X é in- 
crementado para o processamento da 
próxima figura à direita, enquanto B é 
decrementado, contando as figuras a se- 
rem impressas. Se todos os dígitos ain- 
da não tiverem sido impressos, O pro- 
cessador imprime o próximo. 

Neste caso, os registros Y, X e D sào 
recuperados da pilha com os valores an- 
teriores ao início desta rotina. Depois, 
o processador retorna para a posição 
que a chamou na rotina principal do 
programa. 





Se o valor do registro B for par e a 
rotina ROLL foi chamada, o processa- 
dor localiza, na tabela de dados, o iní- 
cio da figura adequada ao dígito. Mul- 
tiplica, então, o dígito por cinco e adi- 
ciona o resultado ao endereço-base, 
transferindo o valor obtido para X. Em 
seguida, coloca a posição de impressão 
na pilha e carrega o registro B com o 
contador de bytes. 

A instrução LDA,X + carrega o acu- 
mulador com um dos bytes que formam 
a figura e incrementa o registro X para 
apontar o byte seguinte, que é guarda- 
do na pilha da máquina. 

A instrução ANDA 15 executa a 
operação lógica AND entre o conteúdo 
de A, uma linha de pontos da figura e 
o número 15, que em binário é 
00001111. Essa operação equivale a co- 
locar uma “máscara” no conteúdo de 
A, onde o nybble (grupo de quatro bits) 
mais significativo é apagado e o menos 
significativo, preservado. 

Quatro instruções LSLA — do inglês 
Logic Shift Left on Acumulator (deslo- 
camento lógico sobre o acumulador) — 
empurram o nybble menos significativo 
para a posição ocupada pelo nybble 
mais significativo, que é perdido. Essa 
operação é feita bit por bit. 

A instrução ORA #5 efetua a opera- 
ção lógica OR entre o resultado anterior 
em A e o número 5, colocando amarelo 
— cor de fundo — no nybble menos sig- 








nificativo. Após receber esse *'tratamen- 
to”, a linha de bits é impressa na posi- 
ção apontada por Y + 1. Exibe-se, as- 
sim, na tela, a metade direita do padráo 
de bits, duas posições à direita da figu- 
ra atual, ficando reservado o espaço on- 
de posteriormente será colocada a me- 
tade esquerda. 

O padrão de bits completo dessa li- 
nha é mais uma vez recuperado da pi- 
lha da máquina e quatro instruções 
LSRA deslocam o nybble mais signifi- 
cativo para a direita. A operação OR 
com o número hexadecimal 50 ajusta a 
cor de fundo desse byte para amarelo. 

O byte resultante das operações aci- 
ma é impresso na posição apontada por 
Y, ou seja, a metade esquerda do padrão 
de bits dessa linha é colocada na posi- 
ção reservada. Com isso, as duas meta- 
des se juntam, formando a figura com- 
pleta. As metades vagas desses dois 
bytes foram ajustadas com a cor de fun- 
do amarela, de modo que temos, entre 
cada dígito do escore, um espaço de 
meio byte. 

A instrução LEAY 32,Y adiciona o 
valor 32 a Y, para processar a linha de 
bits logo abaixo da figura. B é decre- 
mentado e o processador permanece no 
laço até que todas as cinco linhas de bits 
tenham sido impressas. O processador 
sai, então, do laço e adiciona 2 ao apon- 
tador Y. 

Isso faz com que o apontador de te- 
la se desloque duas posições para a di- 
reita, já que a figura com número ím- 
par ocupou duas posições adjacentes na 
tela — uma contendo a metade esquer- 
da e outra, a metade direita. 

Em seguida, a instrução BRA ROL- 
RET retorna ao rótulo ROLRET, no 
qual os apontadores são recuperados an- 
tes da rotina voltar para processar o pró- 
ximo dígito, com número impar. 


EE atl 


A rotina abaixo é montada logo após 
à que apresentamos no artigo anterior, 
e faz parte do programa principal. Ela 
começa chamando as rotinas - 11973 e 
-11843. A primeira desenha e desloca a 
montanha para a tela, e a segunda acres- 
centa os prêmios e os riscos de acordo 
com o nivel de dificuldade. 

O programa pode ser dividido em três 
partes. A primeira cria os padrões de le- 
tras e números na VRAM, usando um 
buffer de códigos ASCII e uma rotina 
da ROM. A segunda imprime na primei- 
ra linha da tela as palavras SCORE, VI- 
DAS e NÍVEL, utilizando a tabela de 
padrões. A terceira, finalmente, impri- 
me os seis dígitos decimais do escore, se- 










































gundo o conteúdo das seis posições dı 
memória reservadas para eles; da mes- 
ma maneira, imprime o número de vi- 
das e o nível atual do jogo, conforme 
o conteúdo das posições de memória re- 
servadas para essas variáveis. 


10 org 53961 

20 call -11973 
30 call -11843 
40 1d a,160 

50 14 (64695).а 
60 14 а,16 

70 14 (64697),а 
80 ld de,-14560 
90 ld b,52 

100 rt push bc 
110 push de 


120 ‚(д 
130 Md 148) 660 са11 -12166 


670 1d hl,-14054 
140 op de . 
150 [Ge de 680 call -12210 
160 pop bc 690 ret 
170 djnz rt 700 end 


180 14 де,1 
190 14 а,84 ESCREVENDO NA TELA 


200 14 b,30 


210 tt push bc Essa parte do programa começa na 
220 push de linha 40 e vai até a linha 320. 
230 push af As posições йе memória 64695 e 


240 ld hi, (62407) 
250 add hl,de 
260 call 77 


64696 da RAM contém o endereco na 
VRAM do chamado Acumulador Grá- 


270 pop af fico X. A instrução Id (64695),a coloca 
280 inc à o valor 160 nesse endereço. As posições 
290 pop de de memória 64697 e 64698 contêm, por 
300 inc de sua vez, o endereço do chamado Acu- 
310 pop bc mulador Gráfico Y. A instrucào ld 
320  djnz tt (64697), a coloca o nümero 16 nesse en- 
330 call sc dereço. 


340 3p vd 


350 ne ld de,-5219 A rotina 14] da ROM imprime um 


360 14 (-5190),4е caractere ASCII em qualquer posicáo da 
370 id de.7 tela de alta resolução, ou seja, do pon- 
зво 1а h1, (62407) to (0,0) ao ponto (255,191). Para isso, 
390 add hl,de o acumulador deve conter o código 
400 1d b,6 ASCII do caractere e os acumuladores 
410 vo push bc gráficos x e y precisam estar ajustados. 
420 push hl O valor do acumulador x vai de 0 a 255; 
430 1d de,(-5190) о do acumulador y, de 0 a 191. 
440 18 а, (де) Como vocé deve se lembrar, a tela de 
422 ine (25150 de alta resolução é um reflexo da tabela de 
470 add 4,126 }, nomes, que contém os códigos dos pa- 
480 call 77 dróes que aparecem no vídeo. O conjun- 
490 pop hl to de bytes que formam a figura de ca- 
500 inc hl da padráo está na tabela de padróes da 
510 pop be VRAM. A rotina 141 da ROM escreve 
520 djnz vo o caractere ASCII na tela. Para isso, 
530 ret precisa criar os bytes que formam a fi- 
540 vd 1d a,(-5221) gura desse caractere na tabela de pa- 
550 add a,126 drões e, ainda, colocar o código do pa- 
560 14 4е.21 drào na posicao adequada da tabela de 
570 1d hl,(62407) nomes. À rotina 141 trabalha na tela co- 
o апааа mo se o modo de alta resolução acabas- 
600 1d a, (-5228) se de ser ligado — ou seja, com a tabela 
610 add a,126 de nomes (e, conseqüentemente, a tela) 
620 1d de.30 totalmente preenchida pelos padrões de 
630 ld hl, (62407) 0 а 255, dispostos seqüencialmente. Es- 
640 add hl,de crever na tela de alta resolucào com es- 
650 call 77 sa rotina significa, assim, criar os bytes 































que compõem a figura no padrão ou pa- 
drões correspondentes à posição apon- 
tada pelos acumuladores gráficos x e y. 
Essa posição equivale ao canto superior 
esquerdo do caractere na tela. Por exem- 
plo, com os valores 8 e O nos acumula- 
dores gráficos x e y, respectivamente, a 
figura seria criada no padrão de código 
1; com os valores 8 e 4, nos padrões | e 
33. Como você pode concluir, um carac- 
tere ASCII ocupa até quatro padrões. 


IAÇÃO DOS PADRÕES 


Neste programa, utilizaremos a roti- 
па 141 para criar os padrões das 52 le- 
tras e números cujos códigos ASCII es- 
tão a partir da posição de memória 
-14560. O programa BASIC que apre- 
sentamos no fim do artigo encarrega-se 
de colocar os caracteres nessas posições. 
Os bytes que compõem as figuras serão 
colocados a partir dos endereços da ta- 
bela de padrões que correspondem ao 
padrão 84. Para isso, deve-se carregar 
o acumulador gráfico x com 160 e o acu- 
mulador gráfico y, com 16. 

O par de registros DE é usado como 
apontador do buffer de códigos ASCII 
e o registro B, como contador. Em se- 
guida, o laço rt coloca as figuras corres- 
pondentes aos caracteres ASCII do pa- 
drào 84 ao padrào 135. Os acumulado- 
res gráficos x e y nào precisam ser in- 
crementados, pois, a cada chamada, a 
rotina 141 cuida de fazer isso. 

Se você transferir a posição de cha- 
mada das rotinas -11973 e -11843 para 
depois do laço rt, poderá ver na tela a 
criação dos padrões. 

O próximo passo consiste na impres- 
são das palavras SCORE, VIDAS e 








NIVEL na primeira linha da tela. Para 
isso, usa-se a rotina 77 da ROM, que co- 
loca o código do padrão na tabela de no- 
mes da VRAM. O código deve estar, en- 
tào, no acumulador A, e o endereco na 
tabela de nomes, no par HL. As posi- 
ções 62407 e 62408 contêm o endereço 
inicial da tabela de nomes da VRAM. 
Assim, basta colocar esse endereço em 
HL e adicionar a ele a posição na qual 
queremos imprimir o padrão, de 0 a 767. 

A operação acima é repetida trinta 
vezes pelo laço tt, pois, como existem 
vários espaços entre as palavras que es- 
tamos escrevendo, elas ocupam quase 
toda a primeira linha. 


ROTINA DE IMPRESSÃO 


A rotina que imprime os dígitos do 
escore é chamada pela instrução call se. 
Em seguida, o programa salta para a ro- 
tina que imprime o dígito do escore e o 
digito do número de vidas. Procedemos 
assim para que a rotina se possa ser cha- 
mada independentemente de outras par- 
tes do programa que serão dadas mais 
tarde. 

A rotina se começa colocando o en- 
dereco -5219 nas posições de memória 
-5190 e -5189, através do par DE. Os va- 
lores decimais dos dígitos do escore es- 
tão armazenados em seis endereços a 
partir de -5219. 


[3 4:1 DOS DIGITOS 


A posição de impressão do primeiro 
dígito é colocada no par de registros HL 
e o contador B é ajustado em seis (nü- 
mero de dígitos). 








O laco vo coloca os dígitos na tela. 
As posicóes de memória -5190 e -5189 
contém o endereco do dígito que está 
sendo impresso e funcionam como 
apontador. Para obter o padráo equi- 
valente ao dígito no acumulador, adicio- 
na-se seu valor decimal ao código do pa- 
dráo do dígito 0, que é 126, como se po- 
de verificar contando os padrões cria- 
dos anteriormente a partir de 84. 

Os dígitos decimais correspondentes 
ao número de vidas e ao nível do jogo 
estão guardados nos endereços -5221 e 
-5228. Como os dígitos do escore, eles 
são colocados pela rotina 77 da ROM 
nas posições 21 e 30 da tabela de nomes, 
respectivamente. 

Depois de tratar dos dígitos do esco- 
re, do número de vidas e do nível do jo- 
go, a rotina chama a sub-rotina -12166 
— a mesma que executa a música no iní- 
cio do jogo. 


05 





IGOS ASCII 


O programa BASIC apresentado a 
seguir coloca os caracteres ASCII cor- 
respondentes às letras e nümeros da li- 
nha DATA num buffer que comeca no 
endereco -14560. Esse programa arma- 
zena todos os caracteres na variável R$ 
e utiliza a funçào ASC para obter o có- 
digo correspondente a cada um deles. 


10 CLEAR 200,-16100 

20 E=-14561 

30 READ RS 

40 FOR N=1 TO 52 

50 POKE E+N,ASC(MIDS(RS,N 
60 NEXT N 


,1)) 


DATA "SCORE 000000 VIDAS O 
NIVEL OFIM DE JOGO 0123456789" 
80 END 
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п MELODIAS SIMULTÁNEAS 
п A INSTRUCAO SOUND 
E TABELA DE CONVERSÃO 

DE NOTAS PARA O MSX 








Os usuários do MSX têm o privilégio de 
poder utilizar acordes em suas músicas, 
já que esse micro possui três canais para 
a produção de sons. Neste artigo, você 
verá como harmonizar suas melodias. 


Em artigos anteriores, expusemos os 
fundamentos da teoria musical e mos- 
tramos como transformar o micro em 
um instrumento, por meio de progra- 
mas simples. Vimos, também, como 
converter partituras em dados que 
possam ser lidos pela máquina 
Tudo isso, porém, aplicava-se ape 
nas a melodias em que uma só 
nota era emitida de cada vez 

Este artigo vai um pouco 
mais além, apresentando pro- 
gramas que possibilitam a ex 
cução de acordes. Embora a 
teoria envolvida seja de interes 
se geral, só o MSX tem os recursos ne- 
cessários para a execução de mais de 
uma nota ao mesmo tempo, em BASIC 

Nossos programas adotam as mes- 
mas convenções dos artigos anteriores 
Assim, se você quiser refrescar a memó- 
ria antes de tentar assimilar as novas téc- 
nicas, reveja-os 


0 QUE É UM ACORDE? 


Um acorde é simplesmente um gru- 
po de notas tocadas simultaneamente 
Se pressionarmos várias teclas ao acaso 
no piano, obteremos um acorde. O som 
resultante, contudo, poderá ser bem de 
sagradável. Para que um acorde soe bem 
aos nossos ouvidos, é preciso haver har- 
monia. Os acordes mais simples e har 
moniosos geralmente contém trés notas 
ese mantém dentro de uma escala maior 
— dó, ré, mi... 

Se tocarmos ao mesmo tempo dó, mi 
(duas notas acima) e sol (mais duas no- 
tas acima) — C, E e G na escala de C 
maior — teremos um exemplo do mais 
conhecido e simples tipo de acorde, o 
acorde maior. O nome de um acorde é 
derivado da nota mais baixa que o com- 
рбе: em nosso caso, trata-se de um acor- 
de de C maior. 














Todos os acordes maiores tém qua- 
tro semitons entre-a nota mais baixa e 
a intermediária, e trés semitons entre es- 
ta ültima e a nota mais alta. Um segun- 
do tipo de acorde, o acorde menor, tem 
três semitons entre a nota mais baixa e 
a intermediária, e quatro entre as duas 
notas superiores. Tanto os acordes 
maiores como os menores possuem sete 
semitons de comprimento, só que a no- 
ta intermediária é mais alta no acorde 
maior. A consegiiência, em termos de 
qualidade sonora, é que os maiores são 
geralmente mais *'alegres””, e os meno- 
res, mais “tristes 

Podemos construir um terceiro tipo 
de acorde na escala maior. Começando 
em si, ou B em C maior, esse acorde 
conterá B, mais D e F da oitava supe- 
rior. Ele terá, então, dois intervalos de 
três semitons entre as três notas. Este é 
um acorde diminuto, menos usado que 
os dois anteriores 

A escala maior compõe-se de sete no- 
tas. Com elas podemos construir três 
acordes maiores, três menores e um di- 
minuto. Os três tipos são conhecidos co- 
mo triades, já que têm três notas cada 



















A nota mais baixa de cada triade é cha- 
mada fundamental, a nota fundamen- 
tal de E menor, por exemplo, é E 

O diagrama acima mostra como es- 
ses acordes são escritos na pauta musi- 
cal. Como você pode observar, as no- 
tas tocadas simultaneamente são colo- 
cadas umas sobre as outras. 


COMO UTILIZAR OS ACORDES 


Se uma melodia executada em C 
maior tem, em certo ponto, a nota C, 
qualquer acorde — dos tipos descritos 

- que também contenha a nota C po- 
derá se harmonizar com ela, produzin- 
do um som mais rico e agradável 

Como os acordes C e F maiores e A 
menor contêm a nota C, todos se har- 
monizaráo com a melodia. A nota da 
müsica em questào pode ser qualquer 
uma das três notas que compõem o 
acorde — ou seja, toda nota se harmo- 
niza com trés diferentes tríades. C, por 
exemplo, é a nota mais baixa em C 
maior; é intermediária em A menor e é 

















a mais alta em F maior. Na realidade, 
se uma melodia contém a nota C, basta 
adicionarmos as outras duas notas pa- 
ra obtermos a tríade. Nesse caso, a no- 
ta da melodia original funciona nào ape- 
nas como parte da melodia, mas, tam- 
bém, como parte do acorde 

No acorde de C maior, C nào preci- 
sà ser necessariamente a nota mais bai- 
xa, podendo ter qualquer nota acima ou 
abaixo. Nesse caso, costuma-se dizer 
que o acorde é invertido. A ilustração 
da página mostra diversos arranjos de 
notas todos eles são acordes de € 
maior. O mesmo princípio se aplica a 
outros acordes 


RMONIA AUTOMÁTICA 


O programa que apresentamos a se 
guir obtém de linhas DATA as notas de 
uma melodia simples. Mas, ao execu 
tá-la, ele acrescenta a cada nota duas ou 
tras, mais graves, que harmonizam com 
ela. As duas notas são criadas por um 
processo aleatório; assim, a harmonia 
da música varia a cada nova execução 
Todos os acordes, porém, constituem 
triades da escala C maior. 

A melodia listada ao final do progra 
ma poderá ser substituída por outra de 
sua própria escolha, desde que a escala 
seja C maior, isto é, o dó deve corres- 
ponder a O3C do comando PLAY. A 
nova melodia nào deve conter nenhuma 


nota mais grave que O3C; caso contrá- 
rio, o programa nào será capaz de ge- 
rar um acorde válido. 

As notas mudam ao mesmo tempo, 
nas três vozes e, sempre que há a alte- 
ração, uma nova harmonização é feita. 
O programa produz acordes de acordo 
com as regras, o que não significa que 
eles sejam sempre os mais adequados ao 
gosto do usuário. 

A melodia The Saints go Marching In 
(A Marcha dos Santos) está armazena 
da nas linhas DATA do final do progra 
ma. A ilustração da página seguinte 
mostra duas variações da abertura da 
melodia que poderão eventualmente ser 
produzidas pelo programa. Trata-se da 
mesma melodia o que muda é só a 
harmonia. Na primeira variação, os 
quatro acordes são F maior, C maior, 
B diminuto e G maior; na segunda, te- 
mos C maior, E menor, D menor e € 
maior. 


L — cn 


TIME) 
"Andamento 


10 R=RND( 
20 INPUT 
P 

30 GOSUB 3000 

40 GOSUB 4000 

50 GOSUB 5000 

80 К1=1:К2=2:К3=3:К4=4:К5=5 
90 FOR T=1 TO 32 

100 READPV,T:TFPV-OTHENI180 
110 C-TB(PV) 

120 11%=RND(K1) *K2+K2: IFT1&=KIT 
HENI2*-KSELSEI2$*-RND(Kl)*K2*K4 


(32-255)";T 

















130 11%-С-11%:12%-С-І2% 
140 AS="L"+STRS (T)+"N"+STRS (08 ( 
ру)) 

150 B$="L"+STR$(T)+"N"+STRS(Qt( 
TA(I18))) 

160 CS="L"+STRS(T)+"N"+STRS (03 ( 
ТА(12%))) 

170 PLAY А5,В5,С5 

200 NEXT:END 

4010 TM-23 

4020 FOR I=1 TO 37 

4030 08% (Т) =7м+І 

4050 NEXT:RETURN 

5000 DATA 1,3,5,6,8,10,12,13,15 


,17,18,20,22,24,25,27,29,30,32, 
34,36,37 








5010 DIM TA(22):FOR T=1 ТО 22:8 
EAD TA(T) ¿NEXT 

5020 DATA 1,1,2,2,3 
,7,8,8,9,9,10,11,11,12,12,13,13 
‚14 

5030 DATA 15,15,16,16,17,18,18, 
19,19,20,20,21,22 

5040 DIM TB(37):FOR T=1 TO 37:R 


EAD TB(T) : NEXT: RETURN 








3000 PLAY "U15","V10","V10" 
3010 AS RS (TP) 

3020 PLAY AS,AS,AS 

3140 RETURN 

4000 DIM Q%(37) 

10000 DATA 13,10,17,10,18,10 
10010 DATA 20,2,13,10,17,10,18, 
10 

10020 DATA 20,2,13,10,17,10,18, 
10 

10030 DATA 20,5,17,5,13,5,17,5 
10040 DATA 15,2,17,10,17,10,15, 
10 

10050 DATA 13,5,13,5,17,5,20,5 
10060 DATA 20,10,18,2,17,10,18, 
10 








10070 DATA 
10080 DATA 


20,5,17,5,13,5,15,5 
13,2 


As linhas 10 a 80 iniciam o progra- 
ma, encarregando-se de solicitar o an- 
damento, chamar as sub-rotinas de ini- 
cialização e criar as variáveis K0 a K5, 
que terão valores de O a 5. Nas seções 
do programa onde a velocidade é mui- 
to importante (linhas 90-200), substitui- 
remos os números por variáveis, já que 
as variáveis são manipuladas mais rapi- 
damente que as constantes. Nessa parte 
do programa, todos os espaços entre os 
comandos devem ser removidos. 

A sub-rotina da linha 3000 estabele- 
ce as características iniciais do coman- 
do PLAY. Note que cada canal é trata- 
do separadamente, 

A sub-rotina da linha 4000 coloca na 
matriz Q% os números das notas. O co- 
mando PLAY pode utilizar número no 
lugar de notas, o que facilita bastante 
o cálculo da harmonia. Uma tabela de 
conversão de notas em números se en- 
contra na página 1015. 

A sub-rotina da linha 5000 cria duas 
matrizes, TA e TB, para definir os in- 
tervalos característicos da escala C 
maior, possibilitando, assim, o cálculo 
dos acordes. TA contém os nümeros das 
notas da escala; TB, a posigáo da nota 
na escala. As duas matrizes permitem 
que o número da nota seja obtido a par- 
tir da posição da nota na escala e vice- 
versa, o que é importante para o cálcu- 
lo automático da harmonia. 

O laco principal do programa vai da 
linha 90 à 200. A linha 100 Iê o valor da 


nota e sua duração. Se o valor for 0 — 
pausa —, o programa salta para a linha 
180, A linha 110 calcula a posição da no. 
ta na escala usando a matriz TB. A 120 
escolhe ao acaso um dos valores 2 a 3, 
definindo o intervalo entre as notas da 
melodia e a nota intermediária. Se o in- 
tervalo for 3, a nota mais baixa — I2 
— deve ficar cinco notas abaixo da no- 
ta da melodia. Se for 2, a nota mais bai- 
xa pode ficar quatro ou cinco notas 


Variações sc 


abai) 
130, 

As linhas 140 a 160 definem os cor- 
dões que servirão de operando à instru- 
ção PLAY da linha 170. O valor da no- 


o, o que é decidido pela linha 


ta original é dado por PV, obtido d 
linhas DATA. O valor das duas notas 
restantes é calculado como auxílio da 
matriz TA, que converte a posição da 
nota na escala em seu valor real 
Observe que os números das notas 
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nas linhas DATA estáo codificados con- 
forme a escala geral. A matriz Q% é 
usada para convertê-los nos números 
efetivamente utilizados por PLAY. Os 
intervalos são operandos do mesmo co- 
mando — utilizados junto com a letra 
L — e não precisam ser convertidos. 


MAIS ACORDES 


O programa que apresentaremos ago- 
ra especifica as notas tocadas por cada 
um dos canais. Como será possivel qual- 
quer combinação, deixaremos para o lei- 
tor os cuidados com a harmonia. 

A música fica armazenada em linhas 
DATA, como de costume. Cada uma 
das linhas deve conter as notas do acor- 
de juntamente com sua duração. Note 
que, muitas vezes, acordes consecutivos 
são muito parecidos, diferindo apenas 
pela nota de uma das vozes. 


10 INPUT "ANDAMENTO (1-50)";TP 
20 IF TP«] THEN 10 

30 AS-"T"*STRS (INT (32*223/TP)) 
PLAY AS,AS,AS 

40 FOR 1=1 TO 48 

50 READ A$,B$,C$,D 

60 AS="L"+STRS (INT (1+63/D))+"03 
"+AS 
70 В5- 
"*B$ 
80 C 
"+05 
90 PLAY AS,BS,C$ 
100 NEXT 
1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 








"L"+STRS (INT (1+63/D))+"03 





L"+STRS (INT (1+63/D))+"03 


Е,026,02С,6 
D,02B,026,6 
С,026,02Е,12 
E,02G,02C,6 
1040 DATA D,02B,02G,6 
1050 DATA C,02G,02E,12 
1060 DATA G,D,02B,6 
1070 DATA F,C,02A,4 
1080 DATA F,C,02A,2 
1090 DATA E,02G,02C,12 
1100 DATA G,D,02B,6 
1110 DATA F,02B,02G,4 
1120 DATA F,02B,02G,2 
1130 DATA E,C,02A,10 
1140 DATA G,C,02A,2 
1150 DATA O4C,E,026,4 
1160 DATA O4C,E,026,2 
1170 DATA B,D,O2F,2 
1180 DATA A,D,02F,2 
1190 DATA B,D,02F,2 
1200 DATA 04C,E,02G,4 
1210 DATA G,E,02G,2 
1220 DATA G,F,02B,4 
1230 DATA G,F,02B,2 
1240 DATA 04C,E,02G,2 
1250 DATA 04C,E,02G,2 
1260 DATA 04C,E,02G,2 
1270 DATA B,F,02G,2 
1280 DATA A,F,02G, 
1290 DATA B,F,02G,2 
1300 DATA 04C,E,02G,4 
1310 БАТА 6,Е,026,2 
1320 DATA G,D,02F,2 











COMO MODIFICAR O TIMBRE 

Além de produzir acordes, o MSX é 
capaz de modificar bastante as carac 
terísticas do som obtido, fazendo-o fi- 
car parecido com um instrumento es- 
pecífico, por exemplo. 

Para isso, é necessário recorrer aos 
registros do PSG que determinam a 
curva envoltória do som. Trataremos 
detalhadamente desse assunto em um 
artigo futuro 





1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 


DATA G,D,02F,2 
DATA G,D,02F,2 
DATA 04C,C,02E,4 
DATA 04С,С,02Е,2 
DATA B,D,02F,2 
DATA A,D,02F,2 
DATA B,D,02F,2 
DATA 04C,E,02G,2 
DATA G,E,02G,2 
DATA G,E,02G,2 
DATA G,02B,02F,4 
DATA F,02B,02F,2 
DATA E,C,02G,6 
1460 DATA D,02B,02G,6 
1470 БАТА С,02Е,02С,12 

As linhas 10 e 20 encarregam-se do 
andamento. A linha 30 inicializa a fun- 
gáo PLAY. A linha 50 lé as notas do 
acorde e sua duração nas linhas DATA, 
Esses dados são convertidos em operan- 
dos de instrução macromusical nas li- 
nhas 60 a 80. A linha 90 emite, efetiva- 
mente, o acorde. 

Ao laço FOR KT cabe evitar 
que uma mensagem de erro do tipo 
“OUT OF DATA” interrompa a melo- 
dia. 


O COMANDO SOUI 


Até aqui, utilizamos apenas a função 
PLAY para executar peças musicais. 
Contudo, o MSX dispõe de outro co- 
mando musical, muito mais versátil: 
SOUND. As características básicas des- 
se comando foram explicadas no artigo 
da página 168. Sua função é alterar o 
conteúdo dos registros do gerador pro- 
gramável de som (Р: 

Para usarmos o comando SOUND 
na produção de sons musicais, precisa- 
mos saber os valores que devem ser co- 
locados em seus registros para produzir 
as notas. Para isso, consulte a tabela de 
conversão que está na página 1015. 

O programa a seguir toca acordes de 





























É possivel adaptar os demais micro- 
computadores para a produção de 
acordes? 

Os micros que não dispõem de um 
processador especial de som podem 
produzir, entre outros efeitos sonoros 


interessantes, acordes semelhantes 
aos obtidos nos computadores da linha 
MSX. Para isso, é necessário combinar 
a freqüéncia das diversas notas, o que 
requer o emprego de linguagem de 
máquina. 

A técnica utilizada tem muita seme: 
lhança com as que foram explicadas 
nos artigos Efeitos sonoros no Spec- 
trum (página 556) e Apple e TK-2000: 
efeitos sonoros (página 712). Embora 
não tenhamos abordado o assunto em 
INPUT, o mesmo pode ser aplicado ao 
micro TRS-Color. 











duas notas. Os dez acordes iniciais da 
música Greensleeves estão listados nas 
linhas DATA. A melodia completa po- 
de ser obtida no artigo da página 816. 


10 FOR I-0 TO 10 

20 READ A:SOUND I,A 

30 NEXT 

40 DATA 0,0,0,0,0,0,0,56,15,15 


50 FOR I-1 TO 10 

60 READ A,B,C,D,E 

70 SOUNDO,B:SOUND1,A 
80 SOUND2,D:SOUND3,C 
90 FOR J=1 TO 10*E:NEXTJ,I 
PLAY "05": END 

DATA 0,253,0,253,10 
DATA 0,213,0,253,30 
DATA 0,189,0,213,10 
DATA 0,169,0,213,15 
DATA 0,159,0,213,5 
DATA 0,169,1,28,10 
DATA 0,189,1,28,30 
DATA 0,225,0,225,10 
DATA 1,28,0,225,15 
DATA 0,253,0,225,5 


MELODIAS SIMULTANEAS 


O programa a seguir possibilita a exe- 
cução de melodias simultâneas. Ele per- 
mite que os dados correspondentes a ca- 
da uma das vozes sejam armazenados 
em linhas DATA separadas. A melodia 
poderá, inclusive, ter uma velocidade di- 
ferente do acompanhamento. 








Os dados para cada uma das três vo- 
zes devem terminar pelo par de valores 
99,99. As outras linhas DATA contêm 
os valores das notas e suas respectivas 
durações. Cada linha DATA equivale a 
dois compassos. Para executar uma me- 
lodia com apenas duas vozes, basta co- 
locar um segundo par 99,99 logo após 
o final dos dados da segunda voz. 

O programa traz a melodia Three 
Blind Mice (Os Três Rarinhos Cegos) em 
um arranjo de três vozes mostrado no 
diagrama da página 1012. 

10 R=RND(-TIME) 

20 INPUT "Andamento (1-50)";TP 
30 GOSUB 3000 

40 GOSUB 4000 

50 GOSUB 5000 

80 Kl=1:K2=2:K3=3 

100 P1=0:P2=0:P3=0 

110 GOSUB 1000 

120 GOSUB 1100 

130 GOSUB 1200 

140 FOR I-1 TO 192 

150 ТЕ Т1<>99ТНЕҺТ1-Т1-КІ:ІРТІ- 
KOTHENP1=P1+K2:GOSUB1000 

160 ТЕ T2<>99THENT2=T2-K1:1FT2= 
KOTHENP2=P2+K2:GOSUB1100 

170 1F T3<>99THENT3=T3-K1:1FT3= 
KOTHENP3=P3+K2:GOSUB1200 

180 FOR DL=1 TO TP:NEXT 

190 NEXT 

200 PLAY "05”:END 

1000 TI-DA*(Kl,Pl*Kl) 

1010 PV-DAt(Kl,Pl):IFPV-990RPU- 
KOTHENRETURN 

1020 SOUNDO,LQ* (PV) : SOUND1, HQ? ( 
ру) 

1030 RETURN 

1100 T2-DAt (K2,P2*K1) 

1110 PU-DAt(K2,P2) :IFPV-990RPV- 
KOTHENRETURN 

1120 SOUND2,LQ€ (PV) : SOUND3, HQt ( 
ру) 

1130 RETURN 

1200 T3-DA$ (K3,P3*K1) 

1210 PU=DA? (K3,P3) : IFPU=990RPV= 
KOTHENRETURN 

1220 SOUND4 , LQ? (PV) : SOUNDS , HQ? ( 


ру) 

1230 RETURN 

3000 FOR I=0 TO 10 

3010 READ A:SOUND Т,А 

3020 NEXT 

3030 DATA 0,0,0,0,0,0,0,56,15,1 
0,10 

3140 RETURN 

4000 DIM HQt(37),LQt (37) 

4010 TM=853:P2=2" (1/12) 

4020 FOR I=1 TO 37 

4030 LQt(T)*TM-256*INT (TM/256) : 


Но? (1) =ТМ/256 

4040 TM-TM/P2 

4050 NEXT:RETURN 

5000 DIM DA* (3,1000) 

5010 FOR UN=1 TO 3:P=0 

5020 READ DA? (VN,P):READ DA? (UN 
,P*1) 

5030 P=P+2 

5040 IF DAR (VN,P-2)=99 THEN NEX 
T UN 


5050 IF VNX4 THEN 5020 

5060 RETURN 

10000 DATA 17,6,15,6,13,12 
10010 DATA 17,6,15,6,13,12 
10020 DATA 20,6,18,4,18,2,17,12 
10030 DATA 20,6,18,4,18,2,17,10 
‚20,2 

10040 DATA 25,4,25,2,24,2,22,2, 
24,2,25,4,20,2,20,4,20,2 

10050 DATA 25,2,25,2,25,2,24,2, 
22,2,24,2,25,4,20,2,20,2,20,2,2 
0,2 

10060 DATA 25,4,25,2,24,2,22,2, 
24,2,25,2,20,2,20,2,20,4,18,2 


10070 DATA 17,6,15,6,13,12 
10080 DATA 99,99 

20000 DATA 8,6,12,6,8,12 
20010 DATA 8,6,12,6,8,12 

20020 DATA 15,6,13,6,8,12 
20030 DATA 15,6,12,6,13,12 
20040 DATA 17,6,15,6,17,6,18,6 
20050 DATA 17,6,18,6,17,6,15,6 
20060 DATA 13,6,15,6,17,6,12,6 
20070 DATA 13,6,12,6,5,12 
20080 DATA 99,99 

30000 DATA 1,6,8,6,5,12 

30010 DATA 1,6,8,6,5,12 

30020 DATA 12,6,10,6,1,12 
30030 DATA 12,6,8,6,10,12 , 
30040 DATA 8,6,6,6,8,6,12,6 
30050 DATA 8,6,8,6,8,6,6,6 
30060 DATA 5,6,6,6,8,6,6,6 
30070 DATA 8,6,8,6,1,12 

30080 DATA 99,99 


As linhas 10 a 80 dào inicio ao pro- 
grama. Encarregam-se de definir o an- 
damento, chamar várias sub-rotinas e 
determinar as variáveis K1, K2 e K3, que 
substituem os números 1, 2 e 3 onde a 
velocidade for crítica. 

A sub-rotina 3000 acerta a configu- 
ração inicial do PSG, ativando-o para 
a produção de notas musicais nos três 
canais disponíveis. A primeira voz terá 
volume mais elevado que as demais. 

A sub-rotina 4000 coloca nas matri- 
zes LQ% e HQ% os valores dos bytes 
menos significativo e mais significativo, 
correspondentes às frequências das no- 
tas musicais. Isso permite que as notas 
sejam definidas pelo seu número na es- 
cala geral, e não pelos complicados va- 
lores dos registros do PSG. 

A sub-rotina 5000 lê os valores e du- 
rações das notas em linhas DATA, co- 
locando-os na matriz ЮА % (3.1000). О 
primeiro índice corresponde ao nüme- 
ro da voz, o segundo, à posicào da no- 
ta na melodia. Esta será lida e depois 
executada, ao contrário dos programas 
apresentados anteriormente. P1, P2 e 
P3 funcionam como apontadores de ca- 
da uma das vozes. 

A sub-rotina das linhas 1000:a 1030 
toca uma nota no canal A; P1 aponta 
o par de dados corrente que especifica 
nota e duração; TI é o contador que 
controla a duração da nota. 








A linha 1010 coloca em PV o valor 
da nota. Se esse valor for 99, o progra- 
ma chegou ao fim dos dados referentes 
ao canal A; se for zero, trata-se de uma 
pausa. Em ambos os casos, a sub-roti- 
na termina numa instrução RETUR! 
Nas demais situações, a linha 1020 co- 
loca os bytes calculados com o auxílio 
de HQ% e LQ% nos registros adequa- 
dos do gerador programável de som, 
usando o comando SOUND. As sub- 
rotinas 1100 e 1200 executam as mesmas 
operações nos canais B e C. 

A linha 100 acerta os ponteiros para 
começar a leitura de DA%. As linhas 
110 a 130 chamam as sub-rotinas 1000, 
1100 e 1200 pela primeira vez. 
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O FOR...NEXT entre a linha 140 e 
a linha 200 constitui o laço principal do 


programa. A linha 150 testa o contador 
T1, que contém o valor da duração da 
nota corrente no canal A: um valor 99 
indica o fim dos dados. Se TI tiver ou- 
tro valor, é diminuído em uma unida- 
de. Quando chegar a zero, a execução 
da nota terá terminado.e outra será ob- 
tida pela sub-rotina 1000. Enquanto o 
valor zero não for atingido, a nota con- 
tinua soando. 

As linhas 150 e 160 executam a mes- 
ma operação nas duas outras vozes. A 
linha 170 provoca um atraso proporcio- 
nal ao andamento. Na linha 200, a ins- 
trução PLAY “05” é utilizada para іп- 
terromper a música. 

Observe que, quando utilizamos o 
comando PLAY, as durações eram de- 
finidas por durações de nota. Já com o 
SOUND, os valores são proporcionais 
à duração desejada para cada nota. 

Para terminar, apresentamos as mo- 
dificações que precisam ser feitas no 


programa que calcula a harmonia auto- 
mática de acordes para que funcione 
com o comando SOUND: 


20 INPUT "Andamento (1-50)";TP 
140 SOUNDO, LQ? (PV) : SOUND], HQS (P 
v) 

150 SOUND2,LQt (TA(Il1t)):SOUND3, 
Н0%(ТА(11%)) 

160 SOUND4,LQt(TA(I2%)):SOUNDS5, 
HQ%(TA(I2%8)) 

170 FOR DL=1 TO (51-TP)*40/T:NE 
xT 

200 NEXT:PLAY "05":END 

3000 FOR I-0 TO 10 

3010 READ A:SOUND І,А 

3020 NEXT 

3030 DATA 0,0,0,0,0,0,0,56,15,1 
0,10 
4000 
4010 


DIM HQt(37),LQt (37) 
TM=853:P2=2" (1/12) 

4020 FOR 1=1 TO 37 

4030 LQt(I)*TM-256*INT (TM/256) : 
HQt (I) *TM/256 

4040 TM-TM/P2 





TABELA DE CONVERSÁO PARA O MSX 
Матео Nota Escala Byte mais Byte menos Número Nota 
geral significativo ^ significativo 
25 03c 20 1 28 44 G 
26 C+ 21 1 12 45 G+ 
27 D 22 0 253 46 А 
28 D+ 23 0 239 47 A+ 
29 E 24 0 225 48 в 
30 F 25 0 213 49 О5С 
31 F+ 26 0 201 50 C+ 
32 G 27 0 189 51 D 
33 G+ 28 0 179 52 D+ 
34 A 29 0 169 53 Е 
35 А- 30 0 159 54 F 
36 B 31 0 150 55 F+ 
37 о4с 32 o 142 56 G 
38 C+ 33 0 134 57 G+ 
39 D 34 0 126 58 A 
40 D+ 35 o 119 59 A+ 
41 E 36 o 112 60 B 
42 F 0 106 61 06с 








Escala Byte mais Byte menos 
geral significativo ^ significativo 
» 3 85 
2 3 37 
3 2 247 
4 2 205 
5 2 165 
6 2 127 
A 2 91 
8 2 57 
9 2 25 
10 1 251 
11 1 222 
12 1 195 
13 1 170 
14 1 146 
15 1 123 
16 1 102 
17 1 82 












F+ 
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JOGOS 












Embora fossem conhecidos há milha- 
res de anos, os jogos de guerra (Warga- 
mes) estavam restritos, até há bem pou- 
co tempo, aos quartéis-generais e esco- 
las militares, devido à exigência de ta- 
buleiros imensos e à grande quantidade 
de peças necessárias para representar as 
forças em conflito. O advento dos com- 
putadores permitiu que se populari 
sem, já que a máquina confina toda a 
massa de dados em sua memória, utili- 
za a tela gráfica como mapa e pode até 
fazer o papel de jogador. 

Esses jogos desenvolveram-se origi- 
nalmente como elemento de apoio ao 
ensino de estratégia militar. Hoje, sua 
reprodução no computador tem seduzi- 
do uma multidão de usuários. E, embo- 
rao objetivo principal de um jogo de 
guerra seja sempre a eliminação do ini- 
migo, ele se relaciona muito mais, quan- 
to à diversão proporcionada, ao xadrez 
do que a um videogame de ação, cheio 
de tiros e pistolas laser. 

Durante um jogo de guerra, a tela do 
micro exibe um mapa da região de ba- 
talha, indicando, em geral, as posições 
dos dois inimigos. O computador pos- 
sibilita uma simulação da realidade mui- 
to mais fiel que a proporcionada pelos 
jogos tradicionais, na medida em que 
nos dá a chance de posicionar nossas 
forças sem que o inimigo as veja, As 
unidades só se tornam visíveis quando 
efetivamente descobertas, 

Porém os jogos que os estrategistas 
utilizam costumam envolver os mínimos 
detalhes de uma guerra — o que não te- 
mos condições de fazer em um compu- 
tador doméstico. 

Alguns jogos de computador são de: 
tinados exclusivamente a adversários 
humanos. O programa que apresenta- 
mos em INPUT, porém, permite que 
você jogue contra seu micro. 


PLANEJAMENTO 


Uma guerra consiste em mover *'uni- 
dades de combate” (em geral, soldados, 
mas, também, tanques ou canhões) até 
a posição do inimigo, para tentar sub- 
metê-lo ou destruí-lo. 

Os ingredientes básicos de um jogo 

E] de guerra são as duas forças adversárias, 






































E GUERRA: 
PRIMEIROS PASSOS 


seus movimentos e o combate entre as 
unidades. Com isso em mente, já pode- 
mos planejar o jogo. A batalha será na 
terra, no mar ou no ar? Queremos um 
jogo estratégico em larga escala, com 
muitos exércitos envolvidos; um jogo tá- 
tico entre dois exércitos em um único 
campo de batalha; ou só escaramuças 
entre combatentes individuais? 

O período da História em que se dá 
a guerra também é importante, pois de- 
termina o tipo de tecnologia bélica e as 
características dos combatentes. Pod 
mos recriar batalhas famosas, como a 
travadas por Napoleão em território rus- 
so, ou inventar nossa própria guerra, 
dando asas à imaginação. 

O passo seguinte consiste na defini- 
ção das regras do jogo. Elas determina- 
rão as circunstâncias que ajudarão ou 
prejudicarão cada um dos oponentes, 
estendendo-se aos menores detalhes in- 
сішідов по jogo. Você pode querer, por 
exemplo, que os soldados tenham a op- 
ção de usar armaduras. Isso os protege- 
rá durante a luta, mas, em compensa- 
ção, tornará mais lento o movimento de 
avanço ou de retirada. 

É muito tentador enriquecer o jogo 
com mil detalhes, aproximando-o ao 
máximo da realidade. Porém o tamanho 
da memória limita a quantidade de de- 
talhes e a complexidade das regras. Con- 
vém, assim, manter a atenção sobre os 
pontos principais: 











* Local: informações, na forma de ma- 
pas, a respeito do local onde se encon- 
tram as tropas e do tipo de terreno da 
região — como afeta o movimento e que 
tipo de proteção oferece. 





* As tropas: quantos homens são; que 
tipo de munição e proteção usam; a que 
velocidade se locomovem. 


* Movimento: que distância uma unida- 
de poderá se mover; como o tipo de ter- 
reno afetará o movimento. 


* Comandos: definir como serão dadas 
as ordens e se as tropas poderão deso- 
bedecé-las ou nào. 


* O computador como inimigo: definir 
sea máquina será mais ou menos inteli- 











5 — 


A criação de jogos de guerra no 
computador é uma atividade 
simplesmente fascinante. Aprenda as 
técnicas envolvidas e depois mobilize 
seu micro para esta batalha de INPUT, 
































































— JOGOS DE GUERRA 


— NO TABULEIRO 
zd UTADOR 
ORGANIZAÇÃO DO JOGO 
O CENÁRIO 


A ÉPOCA 

REGRAS DA BATALHA 
FUNCIONAMENTO DA TELA 
BLOCOS GRÁFICOS 

LIMPEZA DA ÁREA DE TEXTOS 





gente, variando, assim, o nível de difi- 
culdade do jogo. 


* Combate: tipo de combate — balísti- 
co ou corpo-a-corpo; tipo de projétil — 
de simples flechas até mísseis intercon- 
tinenta 


NOSSO JOGO 


Uma vez escolhidos o tipo e os com- 
ponentes da guerra e o período históri- 
co em que ela ocorre, precisamos deter- 
minar como tudo isso será representa- 
do no micro, Devemos considerar dois 
aspectos: o ponto de vista do jogador e 
o do computador, e como o jogo será 
apresentado a cada um deles. 

Nesta série de cinco artigos tentare- 
mos mostrar as técnicas básicas de pro- 
gramação criando em seu micro um jo- 
go que denominaremos Capa e Espada. 
Ele consiste em uma batalha tática en- 
tre dois exércitos do período medieval. 
Essa guerra, contudo, nào se passa em 
nenhuma data definida. 

Como a maioria dos jogos de guer- 
ra, Capa e Espada mosira na tela um 
mapa, com a disposigáo das tropas e os 
acidentes geográficos da região. Os jo- 
gadores (no caso, você e o computador) 
agem como comandantes das unidades, 
devendo tomar as decisões estratégicas 
bem como dar as ordens relativas ao 
comportamento da tropa. 

Instruções mais detalhadas serão for- 
necidas no quarto artigo desta série, 
quando o programa estiver completo. 
De um modo geral, cada jogador pode 
escolher entre dar ordens ou deixar as 
tropas como estão. O jogo se desenrola 
com os jogadores movimentando seus 
comandados pelo campo de batalha, al- 
ternadamente, a fim de organizar a dis- 
posição das forças. Esse movimento po- 
de ou não resultar em conflito. O efeito 
dos eventuais choques entre as unidades 
é determinado pelo tipo e pelo poder das 
tropas envolvidas — além de uma pita- 
dinha de sorte. O jogo continua até que 
um dos exércitos tenha sido praticamen- 
te destruído 

O programa mostrará as informações 

áficas relevantes o mapa com os 
exércitos — continuamente, reservando 
uma porção da tela para textos 

Usaremos blocos gráficos para criar 
o mapa, de maneira que instruções do 
tipo PRINT possam controlar tanto o 
mapa como a área de textos. No caso do 
TRS-Color, os blocos gráficos serão de- 

idos por instruções DRAW na tela 
de alta resolução, como temos feito na 
maioria dos programas de INPUT. Uti- 
lizaremos também uma rotina para im- 
























laráo o mapa, enquanto o texto ficará 
as quatro linhas inferiores. 

Neste jogo há quatro tipos de terre- 
no: campo aberto, vilas, florestas e 
montanhas. Empregaremos espacos em 
branco para representar o campo — 
portanto, nào será preciso um bloco gi 
fico especial. Usaremos dois tipos de 
bloco para representar as montanhas e 
um tipo para cada terreno restante. 

Os exércitos teráo oito unidades de 
combate: o líder e seus cavaleiros, os no- 
bres vassalos (sargentos), duas unidades 
de lanceiros, duas de arqueiros e duas 
de camponeses. As duas primeiras uni- 
dades, formadas por nobres, requerem 
blocos gráficos diferentes. Para cada par 
de unidades restantes será usado um 
mesmo caractere duas vezes. 

Teremos, assim, nove blocos gráfi- 
cos: número um, vila; dois, floresta: 
trés e quatro, montanha; cinco, o líder 
(representado por uma bandeira); seis, 
sargentos (representados por uma ma- 
ca — arma medieval composta por um 
cabo com corrente e uma bola de ferro 
na ponta); sete, lanceiros (um escudo); 
oito, arqueiros (arco e flecha) e nove, 
camponeses (espada). 


OS BLOCOS GRÁFICOS 


Os programas listados a seguir criam 
os blocos gráficos descritos acima. 


210 FOR k=1 TO 9 
220 READ a$ 
230 FOR I-0 TO 7 
240 READ a 
260 POKE USR a$+I,a 
270 NEXT I 
290 NEXT K 
2540 REM Limpa tela de texto 
2550 FOR k=17 TO 21: PRINT AT k 
26%” 

": NEXT k 
2570 DATA "a",16,16,60,126,255, 
189,231,231 
2590 DATA "b",16,56,84,16,56,84 
,146,16 
2610 DATA "c",8,20,34,65,6,8,16 
‚224 
2630 DATA "d",0,48 132,2,0,0 
‚0 
2650 DATA "e",128,240,255,252,1 
43,128,128,128 
2670 DATA "f",64,240,72,68,68,6 
8,78,68 
2690 DATA "q",255,231,231,129,1 
29,231,102,60 
2710 DATA "h",249,70,38,25 
311 
2730 DATA "1”,1,2,4,8,16,160,64 
.160 





84 


200 SCREEN 1,2:KEY OFF:COLOR 1, 
15,15 

210 FOR 1=0 TO 71 

220 READ A 

225 УРОКЕ BASE (7)+192*8+1,A 

230 УРОКЕ ВА5Е(7)%208%8%Т,А 

235 VPOKE BASE(7)+224*8+1,A 

240 VPOKE BASE(7)*240*B*I,A 

245 NEXT 

250 FOR I=0 TO 1 

260 VPOKE BASE(6)+24+1,4*16+15 
265 VPOKE BASE(6)*26*1,6*16*15 
270 VPOKE BASE (6)+28+1,12*16+15 
280 NEXT 
290 VPOKE 
2570 DATA 
231,231 
2590 DATA 
‚16 

2610 DATA 
2630 DATA 
2650 DATA 
28,128,128 
2670 DATA 64,240,72,68,68,68,78 
,68 

2690 DATA 255,231,231,129,129,2 
31,102,60 

2710 DATA 249,70,38,25,9,5,3,1 
2730 DATA 1,2,4,8,16,160,64,160 


(4/4) 


210 EE = 768:T = 16384: 
EE TOEE + 30 * 8 - 1 


BASE (6)+30,13*16+15 
16,16,60,126,255,189, 


16,56,84,16,56,84,146 
8,20,34,65,6,8,16,224 


0,48,72,132,2,0,0,0 
128,240,255,252,143,1 


FOR I * 


220 READ A: POKE 1,A 

230 NEXT 

2570 DATA 64,64,80,84,85,17,2 
1,21 

2575 DATA 0,0,2,10,42,34,42,4 
2 

2580 DATA 0,32,40,8,32,40,10, 
2 

2585 DATA 1,5,21,17,5,21,81,6 
5 

2590 DATA 64,48,12,3,0,0,112, 
15 

2595 DATA 1,6,24,96,120,7,0,0 
2600 DATA 64,48,12,3,0,0,0,0 
2605 DATA 1,6,24,96,0,0,0,0 
2610 DATA 129,149,213,213,193 
.129,129,129 

2615 DATA 128,128,138,130,138 
,128,128,128 

2620 DATA 132,149,196,132,132 
+132,196,132 

2625 DATA 128,128,128,130,130 
+130,138,130 


2630 DATA 213,149,149,129,149 
+148,208,192 
2635 DATA 
.138,130,128 
2640 DATA 192,192,192,208,196, 
193,213,128 

2645 DATA 128,128,128,130,136, 
160,170,128 
2650 DATA 
+148,149,145 
2655 DATA 
,128,128,128 
2660 DATA 


170,170,170,160,170 


128,128,128,196,212 
160,168,138,130,128 
128,128,168,160,168 


,128,128,128 


2665 DATA 192,212,213,213,193 
,192,192,192 

2670 DATA 128,128,128,160,160 
,160,168,160 

2675 DATA 144,212,145,144,144 
„144,145,144 

2680 DATA 170,170,170,130,170 
,168,160,128 

2685 DATA 213,212,212,192,212 
,148,133,129 

2690 DATA 128,128,128,160,136 
,130,170,128 

2695 DATA 129,129,129,133,14 
5,193,213,128 

2700 DATA 130,138,168,160,128 
,128,128,128 

2705 DATA 128,128,128,145,149 


,148,212,196 
2710 DATA 0,0,0,0,0,0,0,0 
2715 DATA 0,0,0,0,0,0,0,0 





210 
220 
230 
290 
2570 DATA 
2UL2D2 


FOR K=] 
READ AS 
UCS (K) =A$ 
NEXT K 


TO 9 


BR2D2L2D5RUZR3D2R3U4L 


2590 
DL3 

2610 
2630 
2650 
2670 
2690 
2710 
2730 


DATA BR2R3DRDLDL2ND4L3U2R3 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


BD3E2R2UD2RFGLG3 
BD3E2RF3 
ND7FR2FD5UNR3L2 
ND7FR4DNR2DNFL3UR2 
R5ND6DL5DSR3DL 
NR3DRF6U4LHE2DL 
BR7G7E2UNF3H2DR 


Todos os programas incluem várias 
linhas DATA, utilizando-as de uma for- 
ma diferente para a criaçào dos blocos 
gráficos. O Spectrum coloca seus blo- 
cos nos caracteres 124 a 133. O MSX usa 
a tela de texto de 32 colunas. Náo re- 
correremos á tela gráfica porque náo va- 
mos empregar andos de alta reso- 
lugáo, e é mais fácil escrever na tela de 
textos. 

As linhas que váo de 210 a 245 dese- 
nham os blocos gráficos na tabela de pa- 
dróes. Cabe ás linhas 250 a 280 colori- 
los. Sáo feitas quatro cópias dos nove 
blocos, uma de cada cor. Embora os 
blocos de terreno e os dois exércitos te- 
nham cada qual uma só cor é mais fácil 
criar todos os blocos com as quatro co- 
res do que definir as cores de blocos in- 
dividuais. 


0 USO DO POKE 


No Apple e no TK-2000, montamos 
os blocos gráficos com POKE, em vez 
de usar o comando DRAW. Fizemos is- 
so para economizar memória, pois se- 
riam necessários muitos bytes para de- 





finir uma tabela com tantas figuras. O 
banco de blocos ficará armazenado em 
uma região normalmente nào utilizada 
da página trés — assim, nào ocupará es- 
paco disponível ao BASIC. Na realida- 
de, seráo criados dezoito blocos, dois 
para cada unidade ou terreno, já que, 
para obter cor, só usamos colunas pa- 
res ou ímpares. Para maiores detalhes 
sobre esse tipo de bloco gráfico, veja os 
artigos das páginas 489 e 507. 


A AREA DE TEXTOS 


As linhas que se seguem sáo utiliza- 
das para a impressáo de mensagens no 
vídeo do micro. 


2540 
2550 
.0;" 
": NEXT k 
RETURN 


REM Limpa tela de texto 
FOR k*17 TO 21: PRINT AT k 


2555 


na 


2540 
2550 
2555 
2560 


Ta 


REM LIMPA 
HOME : GOSUB 30000 
RETURN 


REM Limpa área de texto 
РОЙ 1=576 ТО 767 

VPOKE BASE(5)*1,32 
NEXT: RETURN 


2540 
2545 
2550 





LIMPA JANELA DE TEXTO 
3,1 


2540 REM 
2550 PMODE 0,4:PCLSO:PMODE 
2560 RETURN 


O programa trata a tela como duas 
*Sanelas'* — uma de textos, ocupando 
uma pequena área do vídeo, e outra grá- 
fica, contendo o mapa da região e a dis- 
posição das tropas adversárias. 

No desenvolvimento do jogo, a jane- 
la de textos precisará ser limpa e rees- 
crita com freqüéncia. A janela gráfica, 
porém, é mais constante, exigindo ape- 
nas pequenas alterações nas posições das 
unidades. 

Todos os microcomputadores, com 
exceção do Apple e do TK-2000, tratam 
a tela como uma unidade, de maneira 
que'essas rotinas se encarregam de apa- 
gar exclusivamente a área de textos, dei- 
xando o mapa intacto, 

No próximo artigo da série que aqui 
iniciamos veremos como desenhar o ma- 
pa da batalha e movimentar as unida- 
des que se confrontam. 






A construcáo de imagens gráficas no 
computador é, quase sempre, um 
processo difícil. O Projeto Assistido 
pelo Computador (PAC) poderá 
simplificar bastante o seu trabalho, 


Existem sistemas destinados a facili- 
tar a elaboracáo de desenhos cujos com- 
ponentes se repetem muitas vezes. O 
projeto de um supermercado, por exem- 
plo, exige que se distribua, da melhor 
forma possível, uma série de objetos 
idénticos — prateleiras, refrigeradores 
etc. — em uma certa área. Esse tipo de 
sistema, denominado Projeto Assistido 
pelo Computador (PAC), pode se apre- 
sentar com vários níveis de sofisticação. 
Mas, qualquer que seja seu grau de com- 
plexidade, o PAC baseia-se em duas 
operações básicas: traçar retas e remo- 
delar figuras prefixadas. 

Este artigo irá ajudá-lo a construir 
duas versões simples de um PAC. 


TRAÇANDO RETAS 


A técnica que examinaremos agora 
reproduz a maneira mais simples de se 
executar um desenho com o auxílio de 
um lápis e uma régua. 

Primeiro, fazemos o traço inicial. De- 
pois, a partir de uma das extremidades 
desse traço, desenhamos outra reta e as- 
sim por diante, sempre ligando a ponta 
do último segmento a um ponto imagi- 
nário. No computador, fixamos um 
ponto na tela e levamos o cursor até a 
posição onde um segundo ponto será fi- 
xado. Este irá determinar a reta que de- 
ve ser tracada. 

Para facilitar ainda mais o processo, 
o computador traça uma reta a cada no- 
va posição definida pelo cursor, apagan- 
do a anterior. Ao chegar à posição de- 
finitiva, o usuário digita algum tipo de 
código destinado a impedir que o com- 
putador apague a última linha, deixan- 
do-a fixa na tela. Em seguida, pode-se 
movimentar o cursor para outro ponto 
qualquer. 

Experimente fazer desenhos com o 
programa que se segue. 








a 
Ana 


10 BORDER 0: PAPER 0: 
св 

15 LET inicio*80: LET estica- 
130: LET desenha-210: LET fix 
a=240 

17 DRAW 0,175: DRAW 255,0: 
DRAW 0,-175: DRAW -255,0 

20 GOSUB inicio 

40 GOSUB estica 


INK 7: 


50 IF INKEY$<>"q” THEN GOTO 
40 

60 STOP 

90 OVER 1 

100 LET x-128: LET y-86 

115 PLOT х,у 

120 RETURN 

140 IF INKEYS-" " THEN GOSUB 

fixa: GOTO 150 

145 GOSUB desenha 

150 IF INKEYS="z" THEN LET x= 

x-l 

160 IF INKEYS-"x" THEN LET х= 

x*l 

170 IF INKEY$-"k" THEN LET y= 


y+1 


m PRINCÍPIOS BÁSICOS DO PAC 


E LIGANDO PONTOS 
E MOVIMENTAÇÃO DA FIGURA 
= EXPANSÃO, CONTRAÇÃO 

E ROTAÇÃO 


180 IF INKEY$-"m" THEN 
y-l 

190 GOSUB desenha 

200 RETURN 

220 PLOT x,y: DRAW x-PEEK 
23677,y-PEEK 23678 

230 RETURN 
250 OVER 0: 
255 OVER 1 
280 RETURN 


LET y= 


GOSUB desenha 





10 PCLEAR 8:PMODE 4,5:PCLS:PMOD 
E 4,1:PCLS:SCREEN 1,1 

20 V=247:CX=127:CY=95:X=127:Y=9 
5 


30 GOSUB 100 


40 FOR K-1 TO 4:PCOPY K*4 TO K: 
NEXT 

50 IF PEEK(338)<>191 THEN 30 
60 CLS:END 


100 IF PEEK(345)=V GOSUB 300 
110 IF PEEK(341)=V AND Y>0 THEN 
Yev-1 

120 IF PEEK(342)=V AND Y<191 TH 
EN Y=Y+1 










































































130 IF PEEK(343)=V AND X>0 THEN 
X=X-1 

140 IF PEEK(344)=V AND X<255 TH 
EN X=X+1 

200 LINE(CX,CY)-(X,Y), PSET 

210 RETURN 

300 GOSUB 200 

310 FOR K=1 TO 4:PCOPY K TO K+4 
¿NEXT 

320 CX-X:CY-Y 

330 RETURN 


С 


10 HGR2 
20 CX = 140:CY = 96:X = CX:Y = 


cr 
100 GET AS 





102 IF A$ - " " THEN CX - X:CY 
= Y: QOTO 110 

103 HCOLOR= 0: HPLOT CX,CY TO 
X,Y 

110 IF A$ = ”Z” AND X > 1 THEN 
X*X-2 

120 IF AS - "X" AND Х < 278 ТН 
EN X= X+2 

130 IF A$ = ”.” AND Y < 190 TH 
EN Y = Y +2 

140 IF AS - ";" AND Y > 1 THEN 
at -.2 

155 IF AS = THEN STOP 
160 HCOLOR= HPLOT CX,CY TO 
X,Y 

170 GOTO 100 

10 HGR2 

20 CX = 140:CY = 96:X = CX:Y = 
сү 

100 СЕТ АЗ 

102 IF A$ = " " THEN СХ = X:CY 
* Y: GOTO 110 

103 HCOLOR- 0: HPLOT CX,CY TO 
X.Y 

110 IF AS = CHR$ (8) AND X > 
1 THEN X = X - 2 

120 IF A$ = CHR$ (21) AND X < 


278 THEN X = X + 2 

130 IF AS = CHR$ (113) AND Y 
< 190 THEN Y = Y + 2 

140 IF AS = CHRS (112) AND Y 
> 1 THEN Ү = 2 

155 IF AS = 
160 HCOLOR= 


THEN STOP 
HPLOT CX,CY TO 





nu 


10 SCREEN 2 

20 CX-128:CY-96:X-CX:Y-CY 

100 AS-INKEYS:IF A$-"" THEN 100 
103 IF AS<>” ” THEN LINE (CX,CY 
)-(X,Y),4 ELSE CX-X:CY-Y 

110 IF ASC(A$)=29 AND X52 THEN 
Х=Х-2 

120 IF А8С(А5)-28 АМО Х<255 ТНЕ 
N X=X+2 


GoTO 100 








130 IF ASC(AS)=31 AND Y<191 THE 
N Y=Y+2 

140 IF ASC(AS)=30 AND Y>1 THEN 
Y=Y-2 

160 LINE (CX,CY)-(X,Y),11 

170 GOTO 100 


O funcionamento do programa é bem 
simples. Ele fixa um ponto no centro da 
tela e outro em uma posigáo determina- 
da por quatro teclas — Z (esquerda), X 
(direita), K (acima) e M (abaixo). O AP- 
PLE usa ; (acima), . (abaixo) e S (para 
interromper o programa). Os microcom- 
putadores das linhas MSX e o TK-2000 
utilizam as teclas de controle do cursor 
(flechinhas). 

Uma reta é tracada continuamente 
entre os dois pontos assim determina- 
dos. Quando alcançar sua posição defi- 
nitiva, ela será fixada na tela, bastando, 
para isso, que se pressione a barra de es- 
paço. Você poderá, então, prosseguir 
em outra direção, usando as mesmas 
quatro teclas. 

Digite agora estas linhas adicionais 
para conseguir o efeito de tirar o lápis 
do papel. 


15 LET inicio=B0: LET esticar 
130: LET desenha=210: LET fix 
a=240: LET apaga=210 

17 GOSUB apaga 

144 IF INKEYS-"d" THEN GOSUB 
apaga: GOTO 150 

310 CLS 

320 DRAW 0,175: DRAW 255,0: 
DRAW 0,-175: DRAW -255,0 

330 GOSUB início 

340 RETURN 





105 IF PEEK(339)=191 THEN PMODE 
4,5:PCLS:PMODE 4,1 

301 AS=INKEYS 

302 AS=INKEYS:1F AS="" THEN 302 
304 1F AS-"D" THEN 320 


Ше)! 


150 ІҒ АЗ - "D" THEN CX = X:CY 
. Y 


nau 


105 
ay 


IF AS - "D" THEN CX - X:CY 


Agora, ao pressionar a tecla D, a ül- 
tima linha tracada será apagada. O pon- 
to onde o cursor se encontra será defi- 
nido como inicial. 








MONTAGEM DE UM DESENHO 


Alguns tipos de PAC apresentam em 
um menu várias figuras previamente de- 
finidas. Se o problema fosse a decora- 
ção de uma casa, por exemplo, o menu 
incluiria os desenhos de móveis, esqua- 
drias e outros elementos, que seriam 
transportados para a tela e ajustados à 
vontade ao projeto do decorador. Para 
tais ajustes, é possível recorrer a amplia- 
ções, reduções e rotações. 

O programa a seguir oferece, em seu | 
menu, cinco figuras geométricas. Elas 
podem ser fixadas na tela e manipula- | 
das de acordo com as instruções acres- 
centadas após a listagem. 


10 BORDER 0: 
OVER 0: CLS 
15 LET inicio-100: LET pick- 
270: LET posicao=430: LET mod 
ifica=490: LET seta=390: LET 
desenha=640: LET fixa=700: 
LET limpa*750: LET checa-820: 
LET triang=860: LET quadr=930 
: LET retang=1010: LET pent= 
1090: LET hex=1180 
17 GOSUB limpa 















PAPER O: INK 7: 





40 GOSUB pick 

50 GOSUB posicao 

60 GOSUB modifica 

70 IF INKEYS<>"q” THEN СОТО L 
40 


80 STOP 

110 OVER O 

120 LET x=30: LET y=50: LET ph 
1=0: LET scal=1 

130 LET mex=120: LET flag=0: f 
LET selec=0 

140 LET c=scal*cos (phi) 

150 LET s=scal*SIN (phi) 

170 LET tx=32: LET ty=25: 
GOSUB triang 

190 LET tx=70: LET ty=25: 
GOSUB quadr 

210 LET tx=120: LET ty-25: 
GOSUB retang 

220 LET tx=180: LET ty-25: 
GOSUB pent 

230 LET tx-230: LET ty-25: 
GOSUB hex 


240 OVER 1 





250 PRINT OVER 1; INK 6;AT 20 
,mex/8;"^" 

260 RETURN 

300 GOSUB seta 

310 GOSUB checa 

320 IF CODE INKEY$-8 THEN 
mex-mex-8 

330 IF CODE INKEYS-9 THEN LET 
mex=mex+8 

340 GOSUB seta 
350 IF INKEYS="s" 
ag=1 

360 IF flag=0 THEN GOTO 300 
370 GOSUB seta 

380 RETURN 

400 PRIN' 
,mex/8;"^" 

410 RETURN 

440 IF mex<40 THEN LET selec= 
1 


LET 


THEN LET #1 


INK 6; OVER 1;АТ 20 








x 

460 IF x>=70 AND mex<150 
THEN LET selec=3 

465 IF mex>=150 AND mex<180 
THEN LET selec=4 
470 IF mex>=180 THEN 
c=5 

480 RETURN 

510 IF INKEY$-"c" 
limpa: GOTO 517 
515 GOSUB desenha 
517 IF INKEY$-" " THEN GOSUB 





LET sele 


THEN GOSUB 


fixa: GOTO 520 

518 GOSUB desenha 

520 LET c-scal*COS (phi) 

540 LET s-8cal*SIN (phi) 

550 IF INKEYS="z" THEN LET x= 
х-3 

560 IF INKEYS="x" THEN LET x= 


x+3 
570 IF INKEYS="k" 


y+3 

580 IF INKEY$="m” 
у-3 

590 IF INKEY$-"n" 
al=scal*1.1 

600 IF INKEYS="3" 
al=scal/1.1 

610 IF INKEY$="h” 
1=phi+(6*PI/180) 

620 IF INKEY$-"b" 
i=phi-(6*PI/180) 

630 RETURN 


645 LET tx=x: LET 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


ty=y 


LET 
LET 
LET 
LET 
LET 
LET 


у= 
у= 
вс 
вс 
ph 
ph 


650 IF selec-1 THEN GOSUB tri 


ang 


660 IF selec-2 THEN GOSUB qua 
dr 
670 IF selec=3 THEN GOSUB ret 
ang 
675 IF selec-4 THEN GOSUB pen 
t 
680 IF selec-5 THEN GOSUB hex 
685 FOR n=1 TO 30: NEXT n 
690 RETURN 
700 REM fixa 
710 FOR n=1 TO 100: NEXT n 
714 IF INKEYS-"d" THEN OVER 1 
715 IF INKEY$<>"d” THEN OVER 
0 
717 GOSUB desenha 
720 PRINT AT 20,1;" 

": OVER 1 
730 GOSUB inicio 
740 RETURN 
760 CLS 





















770 DRAW 0,175: DRAW 255,0: 
DRAW 0,-175: DRAW -255,0 

780 GOSUB inicio 

790 RETURN 

820 REM checa 

830 IF INKEY$="c” THEN GOSUB 
limpa 

840 IF INKEY$="e” THEN STOP 
850 RETURN 

860 REM triang 

870 PLOT INVERSE l;tx,ty 
880 PLOT -7*s*PEEK 23677,6*c* 
PEEK 23678 

890 DRAW -6*c*ll*s,-5*s-9*c 
900 DRAW 12*c,l0*s 

910 DRAW -6*c-ll*s,-5*s*9*c 
920 RETURN 


930 REM quadr 

940 PLOT INVERSE l;tx,ty 

950 PLOT 6*c-6*s*PEEK 23677,5* 
g*5*c*PEEK 23678 

960 DRAW -12*c,-10*s 

970 DRAW 12*8,-10*c 

980 DRAW 12*c,l0*s 

990 DRAW -12*8,10*c 

1000 RETURN 

1010 REM retang 

1020 PLOT INVERSE l;tx,ty 
1030 PLOT 12*c-6*s*PEEK 23677,1 
O*s*5*c*PEEK 23678 

1040 DRAW -24*c,-20*s 

1050 DRAW 12*s,-10*c 

1060 DRAW 24*c,20*s 

1070 DRAW -12*8,10*c 

1080 RETURN 

1090 REM pent 

1100 PLOT INVERSE l;tx,ty 
1110 PLOT -10*s*PEEK 23677,9*c* 
PEEK 23678 

1120 DRAW -10*c*7*s,-B8B*s-6*c 
1130 DRAW 4*c*13*s,3*s-ll*c 
1140 DRAW 12*c,10*s 




















“OEA RE E E A ESOM ÇÃO DAS T a ГЇ ЕЕ AE 


1150 DRAW 4*c-13*8,3*s*ll*c 
1160 DRAW -10*c-7*5,-8*s*6*c 
1170 RETURN 

1180 REM hex 

1190 PLOT INVERSE l;tx,ty 
1200 PLOT -12*s+PEEK 23677,10*c 
+PEEK 23678 

1210 DRAW -10*c*6*s,-8*s-5*c 
1220 DRAW 12*5,-10*c 

1230 DRAW l0*c*6*5,8*s-5*c 
1240 DRAW l0*c-6*s,8*s*5*c 
1250 DRAW -12*s,10*c 

1260 DRAW -10*c-6*85,-8*s*5*c 
1270 RETURN 


O programa funciona da maneira 
abaixo descrita: 

A sub-rotina início, compreendida 
entre as linhas 110 e 260, define os va- 
lores de algumas variáveis e desenha as 
figuras-padrào na parte mais baixa da 
tela, chamando, para tanto, as sub-ro- 
tinas necessárias. 

Da linha 300 à linha 380, o compu- 
tador lé as teclas que movem a seta pa- 
ra a direita e para a esquerda e a tecla 
S, que faz com que a figura escolhida 
aparega no centro da tela. 

As linhas 400 e 410 (sub-rotina seta) 
reimprimem a seta toda vez que uma te- 
cla é pressionada. 

As linhas 440 a 480 compóem a sub- 
rotina posição. Ela checa a posição da 
seta em relação às figuras e define a va- 
riável “figura”. 

A sub-rotina modifica encontra-se 
entre as linhas 510 e 630. A figura esco- 
Ihida é redesenhada de acordo com as 
teclas pressionadas. Ela pode ser movi- 
mentada usando-se as teclas Z, X, K e 
Mi; N e J ampliam e reduzem a figura; 
H e B promovem a rotação no sentido 
horário e anti-horário. A barra de espa- 
ço fixa a figura na tela. 

As figuras são desenhadas pela com- 
binação das sub-rotinas desenha, entre 
as linhas 645 e 690, com as sub-rotinas 
que contêm a fórmula de cada uma de- 
las. A variável “figura” indica ao com- 
putador qual destas será usada. 

A sub-rotina fixa, entre as linhas 710 
e 740, fixa a figura na tela quando a te- 
cla D é apertada. Nas linhas 760 a 790 
está a sub-rotina limpa, que é chamada 
quando se pressiona C. 

A sub-rotina checagem — linhas 820 
a 840 — verifica se a tecla E foi aciona- 
da para interromper o programa. 





10 PCLEAR 8:PMODE 4,5:PCLS:PMOD 
E 4,1:PCLS:SCREEN 1,1 

20 GOSUB 1000 

30 GOSUB 2000 

40 GOSUB 3000 

50 GOSUB 4000 


70 IF INKEYS<>"Q” THEN 40 

80 CLS:END 

1000 X=20:Y=131:PH=0:SC=1 

1010 ME=122:ST=0:Vl=247:V2=253 
1020 C-SC:S-0:COLOR 5 

1030 X=40:Y=177:GOSUB 5000 

1040 X=B0:Y=174:GOSUB 5100 
1050 X=120:GOSUB 5200 

1060 X=160:Y=170:GOSUB 5300 
1070 X-200:GOSUB 5400 

1080 FOR K=1 TO 4:PCOPY K TO K* 
4:NEXT 

1090 X=127:Y=85 

1100 RETURN 

2000 COLOR 0:GOSUB 2500 

2010 AS=INKEYS:GOSUB 4500 

2020 IF AS=CHRS(8) AND ME>32 TH 
ЕМ МЕ=МЕ-10 






4040 S-SC*SIN (PH) 

4050 IF PEEK(343)=V1 THEN X=X-1 
4060 IF РЕЕК(344)-У1 THEN X=X+1 
4070 IF PEEK(341)=V1 THEN Y=Y-1 
4080 IF PEEK(342)=V1 THEN Y=Y+1 
4090 IF PEEK(343)=V2 THEN SC-SC 
*1.1 

4100 IF PEEK(344)-V2 THEN SC-SC 
/1.1 

4110 IF PEEK(341)=V2 THEN PH=PH 
*ATN(1)/7.5 

4120 IF PEEK(342)=V2 THEN PH=PH 


-АТМ(1)/7.5 

4130 FOR K=1 TO 4:PCOPYK+4 ТО К 
¡NEXT 

4150 IF PEEK(338)-Ul THEN RETUR 
N ELSE 4000 


4500 IF AS=CHRS(12) THEN PCLS:G 








2030 IF AS=CHRS(9) AND ME<212 T 
HEN ME=ME+10 

2040 COLOR 5:GOSUB 2500 

2050 IF AS<>"S” THEN 2000 

2060 COLOR 5:GOSUB 2500 

2070 RETURN 

2500 DRAW"BM"-*STR$ (ME) *",190U5N 
G2F2" 

2510 RETURN 

3000 SL=5:IF ME<192 THEN SL=4 
3010 IF ME<152 THEN SL=3 

3020 IF ME<102 THEN SL=2 

3030 IF ME<62 THEN SL=1 

3040 RETURN 

4000 ON SL GOSUB 5000,5100,5200 
+5300,5400 

4010 IF PEEK(339)=191 THEN PCLS 
:GOSUB 1000:RETURN 

4020 IF PEEK(345)-V1 THEN FOR K 
=1 TO 4:PCOPY K TO K*4:NEXT:RET 
URN 

4030 C-SC*COS (PH) 


OSUB 1000 

4510 IF AS-"Q" THEN CLS:END 
4520 RETURN 

5000 LINE (X-7.2*S,Y-7.2*C)-(X-6 
*C*3.6*S,Y*6*S*3.6*C) , PSET 

5010 LINE -(X*6*C*3.6*8,Y-6*8*3 
.6*C),PSET 

5020 LINE-(X-7.2*8,Y-7.2*C) ,PSE 
X 


5030 RETURN 

5100 LINE (X*6*C-6*8, Y-6*S-6*C)- 
(X-6*S-6*C, Y*6*S-6*C) ,PSET 

5110 LINE -(X*6*S-6*C,Y*6*S*6*C 
),PSET 

5120 LINE -(X*6*S*6*C, Y*6*C-6*8 
),PSET 

5130 LINE -(X*6*C-6*S,Y-6*S-6*C 
),PSET 

5140 RETURN 

5200 LINE (X*12*C-6*S,Y-6*C-12* 
S)- (X-12*C-6*S, Y-6*C*12*8) ,PSET 
5210 LINE -(X-12*C*6*S, Y*6*C412 








































*S),PSET 
5220 LINE -(X*12*C*6*S,Y*6*C-12 
*S),PSET 

5230 LINE -(X*12*C-6*S,Y-6*C-12 
*S),PSET 

5240 RETURN 

5300 LINE (X-10.2*S,Y-10.2*C)-( 
X-9.8*C-3.2*8,Y-3.2*C*9.8*S) , PS 
ET 

5310 LINE -(X-6*C*10.2*8,Y*10.2 
*C*6*S),PSET 

5320 LINE -(X*6*C*10.2*S,Y*10.2 
жС-6%8) ,PSET 

5330 LINE -(X*9.8*C-3.2*8,Y-3.2 
*C-9.8*S),PSET 

5340 LINE -(X-10.2*S,Y-10.2*C), 
PSET 

5350 RETURN 

5400 LINE(X-12*S,Y-12*C)-(X-10. 
4*C-6*8,Y-6*C*10.4*8) ,PSET 

5410 LINE -(X-10.4*C*6*S,Y*6*C* 
10.4*S),PSET 

5420 LINE -(X*12*8,Y*12*C),PSET 
5430 LINE -(X*10.4*C*6*S,Y*6*C- 
10.4*S),PSET 

5440 LINE -(X*10.4*C-6*S,Y-6*C- 
10.4*S),PSET 

5450 LINE -(X-12*8,Y-12*C),PSET 
5460 RETURN 


HGR2 
20 GOSUB 1000 
40 GOSUB 2000 
50 GOSUB 3000 
60 GOSUB 4000 
70 сото 20 


1000 HCOLOR= 3:X = 20:Y = 131: 











pH = 
1010 
1020 





1030 X 

1040 X = 80:Y = 174: GOSUB 5100 
1050 X = 120: GOSUB 5200 

1060 X - 160:Y = 170: GOSUB 530 
0 

1070 X - 200: GOSUB 5400 

1090 Х = 127:Ү = 85 

1100 RETURN 

2000 HCOLOR= 3: GOSUB 2500 
2005 GET AS 

2010 HCOLOR= GOSUB 2500 
2020 IF AS = ”"Z” AND ME > 32 T 


HEN ME = ME - 10 

2030 IF AS = "X” AND ME < 212 
THEN ME = ME + 10 

2050 IF A$ < > "8" ТНЕМ 2000 
2070 RETURN 

2500 НРІ.ОТ МЕ,190 ТО МЕ,182 ТО 
МЕ - 5,185: НРІ.ОТ МЕ,182 ТО МЕ 
% 5,185 

2510 RETURN 


3000 SL = 5: IF ME < 192 THEN S 
L= 4 

3010 IF ME < 152 THEN SL = 3 
3020 IF ME < 102 THEN SL = 2 
3030 IF ME < 62 THEN SL = 1 
3040 RETURN 

4000 HCOLOR= 3: ON SL GOSUB 50 


00,5100,5200,5300,5400 








4010 GET A$ 
4015 HCOLOR= 0: ON SL GOSUB 50 
00,5100,5200,5300,5400 

4020 IF AS = ” ” THEN HCOLOR= 
3: ON SL GOSUB 5000,5100,5200, 
5300,5400: RETURN 

4030 C = SC * cos (PH) 

4040 S = SC * SIN (PH) 

4050 IF AS - "Z” THEN X = X - 
3 


4060 IF AS = THEN X = X + 





3 

4070 IF AS = THEN Y * Y - 
3 

4080 IF A$ - "." THEN Y = Y + 


3 
4090 IF AS = "M" THEN 


Sc = SC 
* 1.1 
4100 IF AS = "Nº THEN SC = SC 
/ 1.1 


4110 IF AS = "K" THEN PH = PH 
+ ATN (1) / 7.5 
4120 IF AS - "L" THEN 
- АТМ (1) / 7.5 
4140 IF A$ = "C” THEN 


PH = PH 
GOTO 10 


4145 
END 
4150 GOTO 4000 

5000 HPLOT X - 7.2 
*CTOX-6*C* 
6*8*3.6* C TO 
3.6 * 4, - 6* 8 
5010 HPLOT X * 6 * 
"Ү-6%8%3.6 
* 8.Y - 7.2 * C 
5030 RETURN 

5100 HPLOT X + 6 


IF AS = "F" THEN TEXT : 


жә. 
ач 
ж-ы 


юш 


с 
5110 HPLOT X * 6 
*6*8*6*CT 


6» 
ха 
ж. 














c 

514 

5200 HPLOTX *12* C- 6*8, 
Y-76*C-12*8170X -12* 
€ = 6 * 8S,Z - 6 * Ç + 12 w 8 ?O 
-12*C*6^*^8,Y*6*C* 
12 * 8 

5210 BPLOT X - 12 * C + 6 * 8, 
Y*6*C*12*8T0X * 12* 
C + 6 *8,Y + 6 * C - 12 * 8 TO 
X+12% C - 6 é g8,Y - 6 * C.— 
12 * 8 


5240 RETURN 

5300 HPLOT X - 10.2 * S,Y - 10 
222% 0T0EX -9.6*C- 3.2 *'8 
1 7 3.2* 0*4 99.8*»8 TOX - 6 
* C* 10.2* 8,Y * 10.2* C * 
6*8 

5310 HPLOT X - 6 * C * 10.2 * 
S,Y *10.2* C* 6*8 TOX * 6 
* C + 10.2 * 8,Y + 10.2 * CÇ - 
6 * 8 TO X + 9.8 * C - 3.2 * 8, 
g -- 3,22 * C = 9.8 * g 

5320 HPLOT X + 9.8 * C - 3.2 * 
BE 362% 059,8 887002 - 
10.2 * 8,7 - 10.2 * € 

5350 RETURN 


5400 HPLOT X - 12 * 8,Y - 12 * 
CTOX-10.4*C-6*8,Y- 
6* C * 10.4 * 8 TO X - 10.4 * 
€ +$ 6 x 8,Y + 6 * C + 10.4 w 8 
TOX+12 *8,Y + 12 * C 

5410 HPLOT X + 12 * 8,Y + 12 * 
CTOX*10.4*C* 6* 8,Y * 
6*C- 10.4* 8 TO X * 10.4 * 
C = 6 *8,Y - 6 * C€ - 10.4 * 8 
5420 HPLOT X + 10.4 * C - 6* 
SY-6*C-10.4*8TOX-1 


2*8, 1-12*C 
5460 RETURN 


I1 


O programa do TK-2000 é igual ao 
do Apple, com estas modificagóes: 


2020 IF AS = CHRS (8) AND ME 
> 32 THEN ME = ME - 10 

2030 IF A$ = CHRS (21) AND ME 
< 212 THEN ME = ME + 10 

4050 IF AS = CHRS (8) THEN X 
7-3 

4060 IF AS = CHR$ (21) THEN X 
Х+3 

4070 ІҒ АЗ - CHR$ (112) THEN 
y-Yv-3 

4080 IF AS = CHR$ (113) THEN 
g s Y + 3 

10 SCREEN 2 


20 GOSUB 1000 

40 GOSUB 2000 

50 GOSUB 3000 

60 GOSUB 4000 

70 GOTO 20 

1000 COLOR 14:X=20:Y=131:PH=0:S 
С-1 


1010 
1020 


МЕ-122 
C-8C:8-0 
1030 X-4! =177:GOSUB 5000 

1040 X-8! =174:GOSUB 5100 

1050 X=120:GOSUB 5200 

1060 X=160:Y=170:GOSUB 5300 
1070 X-200:GOSUB 5400 

1090 X-127:Y-85 

1100 RETURN 

2000 COLOR 14:GOSUB 2500 

2005 AS=INKEYS:IF AS="" THEN 20 
05 

2010 COLOR 4:GOSUB 2500 

2020 IF AS=CHR$(29) AND ME>32 T 
HEN ME=ME-10 

2030 IF AS-CHR$(28) AND ME<212 
THEN МЕ=МЕ+10 
2050 IF A$«»"S" 
2070 RETURN 
2500 DRAW"BM"+STRS (ME) +", 190USN 
б2Е2" 

2510 RETURN 

3000 SL-5:IF ME<192 THEN SL=4 
3010 IF ME<152 THEN SL=3 

3020 IF ME<102 THEN SL=2 

3030 IF ME<62 THEN SL=1 

3040 RETURN 

4000 COLOR 14:0N SL GOSUB 5000, 
5100,5200,5300,5400 

4010 AS=INKEYS:IF AS="" THEN 40 
10 

4015 COLOR 4:0N SL GOSUB 5000,5 
100,5200,5300,5400 

4020 IF A$=" " THEN COLOR 14:0N 
SL GOSUB 5000,5100,5200,5300,5 
400: RETURN 

4030 C=SC*COS (PH) 
4040 S=SCXSIN(PH) 
4050 IF AS=CHRS (29) 
4060 IF AS=CHR$ (28) 
4070 IF AS=CHR$(30) 
4080 IF AS=CHR$ (31) 
4090 IF A$-"M" THEN 
4100 IF A$="N” THEN 
4110 IF AS="K” THEN 





THEN 2000 


THEN X=X-3 
THEN X=X+3 
THEN Y=Y-3 
THEN Y=Y+3 
SC-SC*1.1 

SC-SC/1l.l 

PH=PH+ATN (1 
AS="L" THEN PH=PH-ATN (1 
)/7.5 

4140 IF 


4145 IF 


THEN 
THEN 


CLS:GOTO 20 
COLOR 15:EN 


Ag="C"” 
A$="F” 


D 

4150 GOTO 4000 

5000 LINE (X-7.2*8,Y-7.2*C) - (X- 
6*C*3.6*8,Y*6*8*3.6*C) 

5010 LINE -(X*6*C*3.6*S,Y-6*8*3 
.6*C) 

5020 LINE -(X-7.2*8,Y-7.2*C) 
5030 RETURN 

5100 LINE (X*6*C-6*S,Y-6*8-6*C) 
-7(X-6*8-6*C,Y46*8-6*C) 

5110 LINE -(X*6*S-6*C,Y*6*S*6*C 


) 
5120 LINE -(X*6*8*6*C,Y4*6*C-6*8 


) 
5130 
) 
5140 RETURN 

5200 LINE (X*12*C-6*8,Y-6*C-12* 
8) - (X-12*C-6*8, Y-6*C*12*8) 

5210 LINE - (X-12*C+6*S,Y+6*C+12 
*8) 

5220 LINE -(X*12*C*6*S,Y46*C-12 
х5) 


LINE -(X*6*C-6*S,Y-6*S-6*C 


5230 LINE -(X*12*C-6*8,Y-6*C-12 
*8) 

5240 RETURN 

5300 LINE (X-10.2*S,Y-10.2*C)-( 
X-9.8*C-3.2*8,Y-3.2*C*9.8*S) 


5310 LINE -(X-6*C+10.2*S,Y+10.2 
*C*6*8) 

5320 LINE -(X*6*C*10.2*S,Y*10.2 
*C-6*8) 

5330 LINE -(X*9.8*C-3.2*8,Y-3.2 
*C-9.8*8) 

5340 LINE -(X-10.2*S,Y-10.2*C) 


5350 RETURN 
5400 LINE (X-12*S,Y-12*C) - (X-10 
.4A*C-6*S,Y-6*C*10.4*8) 


5410 LINE -(X-10.4*C*6*8,Y*6*C* 
10.4*8) 

5420 LINE -(X*12*8,Y*12*C) 

5430 LINE -(X*10.4*C*6*8,Y*6*C- 
10.4*8) 

5440 LINE -(X*10.4*C-6*8,Y-6*C- 
10.4*8) 

5450 LINE -(X-12*8,Y-12*C) 


5460 RETURN 


A inicialização encontra-se entre as 
linhas 1000 e 1100, onde uma série de 
variáveis são definidas. As linhas 2000 
a 2070 compreendem a sub-rotina encar- 
regada de selecionar a figura. A seta é 
movimentada para a direita e para a es- 
querda através das teclas de controle (o 
Apple usa as mesmas teclas do progra- 
ma anterior). 

As linhas 3000 a 3040 identificam a 
figura que está sendo apontada pela se- 
ta, de acordo com a variável ME. Ao 
pressionar a tecla S, a figura escolhida 
aparecerá no centro da tela. 

A sub-rotina de desenho situa-se en- 
tre as linhas 4000 e 4150. A linha 4000 
desvia o programa para a sub-rotina que 
contém as instruções para desenhar a fi- 
gura escolhida. A linha 4020 fixa a fi- 
gura na tela se a barra de espaço for 
acionada. 

As linhas 4090 e 4100 verificam se as 
teclas M e N foram pressionadas, am- 
pliando ou reduzindo o desenho. A op- 
ção final é a rotação — linhas 4110 e 
4120. As teclas K e L controlam a dire- 
ção (para a esquerda e para a direita) em 
que será executada. 

Ao pressionar C (<CLEAR> no 
TRS-Color), a tela será apagada, fican- 
do pronta para o desenho seguinte. 

As sub-rotinas restantes contêm ins- 
truções para a construção das cinco fi- 
guras. As linhas 5000 a 5030 desenham 
o triângulo; as linhas 5100 a 5140 tra- 
çam o quadrado; as linhas 5200 a 5240, 
o retângulo; as linhas 5300 a 5350, o 
pentágono e as linhas 5400 a 5460, o he- 
xágono. 

Tome cuidado para que seu desenho 
não saia da tela, o que poderia acarre- 
tar a interrupção do programa e uma 
mensagem de erro. Para interromper o 
programa, pressione F. 












Os usuários do Apple e do TK-2000 
já aprenderam a utilizar rotinas em 
código de máquina para produzir sons 
em seu micro. Veráo agora como 
criar efeitos sonoros mais complexos. 


No artigo da página 712, explicamos 
como contornar as limitacóes dos micros 
das linhas Apple e TK-2000 para que 
produzam sons. Examinaremos aqui a 
criagáo de efeitos mais sofisticados. 

Com a rotina que se segue obtemos 
um ruído que pode ser utilizado como 
“tiro laser” em um jogo de ação. O tru- 
que consiste em combinar um som que 
vai se tornando mais agudo com outro 
que fica cada vez mais grave. 


#15) 


10 ORG 800 

20 LDA 4300 

30 STA SFF 

40 LDA 4500 

50 STA $FE 

60 LOOP LDA 4$00 
70 STA $C030 

B0 LDX $FF 

90 PAUSEA NOP 
100 NOP 
110 NOP 
120 NOP 
130 DEX 
140 BNE 
150 INC 
160 LDA 
170 STA $C030 
180 LDX SFF 
190 PAUSEB NOP 
200 NOP 
210 NOP 
220 NOP 
230 DEX 
240 BNE 
250 DEC 
260 BEQ 
270 JMP 
280 FIM 
290 END 


6] 


Para o míni-Assembler do TK-2000, 
a listagem é a seguinte: 


LDA %500 
8ТА SEF 


PAUSEA 
SFF 
+300 


PAUSEB 
$FE 
FIM 
LOOP 
RTS 


0320- 
0322- 


EFEITOS SONOROS 
COMPLEXOS 


0324- LDA 4500 
0326- STA $FE 
0328- LDA +300 
032A- STA $c030 
032D- LDX $FF 
032F- NOP 

0330- NOP 

0331- NOP 

0332- NOP 

0333- DEX 

0334- BNE $032F 
0336- INC SFF 
0338- LDA +500 
033A- STA $C030 
033D- LDX SFF 
033F- NOP 

0340- NOP 

0341- NOP 

0342- NOP 

0343- DEX 

0344- BNE $033F 
0346- DEC $FE 
0348- BEQ 50340 
034A- JMP $0328 
034D- RTS 


Depois de estabelecido o enderego 
inicial, as quatro primeiras instruções 
colocam o valor zero nas posições $FF 
e $FE, que servirão como contadores. 
O registro A é usado para isso, porque 
não há no chip 6502 uma instrução que 
coloque um certo valor diretamente em 
um endereço de memória, 


EMISSÃO 





SOM 


A seguir, o registro A é novamente 
carregado com zero e a instrugáo STA 
$C030 produz um movimento no cone 
do alto-falante. 

O valor contido na posigáo de memó- 
ria $FF é, entáo, colocado no registro 
X e as seis linhas seguintes provocam 
uma pausa com duração proporcional 
àquele valor. Como no programa ante- 
rior, a linha 130 encarrega-se de subtrair 
uma unidade de X e, enquanto este con- 
tador não tiver sido reduzido a zero, o 
laco entre as linhas 90 e 140 vai sendo 
repetido. 

Após essa pausa, a instrugáo INC 
$FF soma a unidade ao conteúdo da po- 
sição $FF, a fim de que a pausa seguin- 
te seja maior. 

As linhas 160 e 170 produzem nova- 
mente um movimento do alto-falante e, 
logo depois, as linhas 190 a 240 provo- 










COMO OBTER O EFEITO 
DE UM "TIRO LASER" 
MOVIMENTOS DO CONE 
PAUSAS 

ONTROLE DA DURAÇÃO 





cam nova pausa, agora com duração 
proporcional ao conteúdo de $FE. 

Ao contrário do que aconteceu na li- 
nha 150, a instrução DEC $FE subtrai 
uma unidade do conteúdo da posição 
$FE, fazendo com que, na próxima vez, 
a pausa seja menor. 


ҒІМ ОА НОТІМА 


A instrução BEQ FIM termina o pro- 
grama quando o conteúdo de $FE for 
reduzido a zero. O final da rotina ocor- 
re com o desvio para o rótulo FIM, que 
contém a instrução RTS. Enquanto 
houver um número maior que zero em 
$FE, a instrução JMP LOOP faz o la- 
ço entre as linhas 60 e 270 ser repetido. 


PAUSEA E PAUSEB 


Como podemos observar, o programa 
produz movimentos do alto-falante — e, 
portanto, emite som — em duas oca- 
siões: nas linhas 70 e 170. Entre esses 
dois eventos ocorrem duas pausas: uma 
que é rotulada PAUSEA e a outra, PAU- 
SEB. PAUSEA é controlada por $FF e 
vai aumentando de tamanho; PAUSEB, 
por $FE e vai diminuindo de tamanho. 
Combinam-se, dessa maneira, dois sons, 
um com freqüéncia crescente e outro 
com freqüéncia decrescente. 

Na realidade, o laco PAUSEA com- 
pleta 256 voltas na primeira vez, dando 
uma volta a mais cada vez que é executa- 
do. Como o contador $FF só usa um by- 
te, 256 é representado pelo nümero zero, 
е0 + 1 — I. Assim, PAUSEA dá uma 
volta na segunda execugáo e uma volta 
a mais a cada nova execução. Já PAU- 
SEB começa com 256 voltas e vai dan- 
do uma volta a menos a cada execução. 


CONTROLE DA DUR, 





0 


Para diminuir a duragáo do efeito so- 
noro, basta retirar alguns comandos 
NOP. Retire quantidades iguais de ca- 
da laco de pausa, pois, do contrário, o 
timbre do som será alterado. Quem es- 
tiver usando o míni-Assembler precisa- 
rá recalcular os desvios. 


AVALANCHE: O VYOO 








Nenhuma cena à beira-mar estaria 
completa sem uma revoada de gaivotas. 
Os próprios efeitos sonoros do jogo — 
que adicionaremos mais tarde ao pro- 
grama — indicam a chegada das aves, 
que voaráo pelo céu como parte do ce- 
nário de fundo. 

Vocé deve estar pensando que este é 
um detalhe desnecessário, já que não in- 
terfere no desenvolvimento da aventu- 
ra. Mas, certamente, são detalhes desse 
tipo que diferenciam um ama- 


programa 
dor de um comercial. O tempo dos jo- 
жил Т 








DAS GANMOTAS 


org 58751 
qui ld a, (57349) 
inc a 

res 3,a 

14 (57349),а 
1d bc,57192 
cp 4 

AS 

ld bc,57208 
gpt ld а,46 
14 һ1,42 
push bc 
call print 
іпс Һ1 

call print 
pop be 

1d hl,.68 
call print 
inc hl 

call print 
гет _. 

ого 58217 
print * 


PREPARANDO 0 VÓO 


A de memória 57349 contém 


ta. variável Eu 
tas batam as asas coelo. 


variável de atraso da gaivo- 
o 


Enquanto Willie tenta escapar 
dos perigos que o cercam, gaivotas 
levantam vóo e pairam no céu, 
acrescentando à aventura um detalhe 
digno de um produto comercial. 


atraso completo é carregado e incremen- 
tado no acumulador A. 

Para que as asas se movimentem pa- 
ra cima e para baixo adequadamente, o 
уайог да уагійуеі 4е айгаво деуе осйаг 
num limite bem restrito. A instrução res 
3,a ajusta o bit 3 do acumulador com 
o valor 0. 

No momento em que a variável de 
atraso for incrementada com um valor 
superior a 7 — o bit 3 teria, então, o va- 
lor | —, o programa volta a ajustá-la 
com o valor 0, O resultado do incremen- 
to ou do ajuste para zero é novamente 
armazenado no endereco 57349. 

Para fazer com que a ave pareça es- 
na tabela 














o atraso da gaivota ainda está armaze- 
nado — é comparado com o número 4. 

Uma instrução cp corresponde a uma 
subtração cujo resultado não foi arma- 
zenado. No nosso programa, o nüámero 
4 é subtraído do conteúdo do acumula- 
dor, mas não se armazena o resultado 
em nenhum lugar. Essa operação tem a 
função exclusiva de ajustar os indicado- 
res ou balizas. 

Ет сопведйёпсїа, ве о а!гаво да раї- 
vota for menor do que 4 — ou seja, 0, 
1,2 ou 3 — o indicador denominado 
carry é ajustado com 1. Se o atraso da 
gaivota for maior do que 4, carry tem 
0 valor 0. 

A instrução Jr c faz o processador sal- 
tar para o rótulo que a acompanha 
quando carry está ajustado com o va- 
lor 1. m uude da Аы 
menor do que 4, o processador pula a 
instrução seguinte e o endereco 57192 
permanece no par de registros BC. Mas, 
se o atraso da gaivota for maior ou igual 
a4 — e carry tiver, portanto, o valor 

o salto não ocorre e o par de re- 


$20. $ Em 
BC ндо соп о ү 
































cial dos padróes da segunda gaivota na 
tabela de dados. 


DECOLAGEM 


O acumulador A é carregado com 46, 
para que a cor da gaivota seja ajusta- 
da, e o par HL recebe a posicáo na tela 
da primeira gaivota, 42. 

O conteúdo do par BC é então guar- 
dado na pilha. Para complicar um pou- 
co mais, temos duas gaivotas tanto na 
tela como na tabela de dados. A tabela 
contém os padrões de uma gaivota com 
as asas para cima e outra com as asas 
para baixo, enquanto a tela exibe a mes- 
ma gaivota, impressa duas vezes em dois 
lugares diferentes. Como se utiliza uma 
só imagem, as gaivotas batem asas em 
sincronia. 

Por esse motivo, o apontador de da- 
dos é preservado na pilha, enquanto a 
primeira gaivota está sendo impressa na 
tela. A rotina print incrementa esse 
apontador automaticamente durante a 
impresso dos dezesseis bytes de dados 
que são necessários para completar o de- 





п VARIÁVEL DE ATRASO 
" COMO FAZER A GAIVOTA 

BATER ASAS 
1 DECOLAGEM 


DEFINIÇÃO DO VÔO 





senho de uma gaivota. Ao ser chama- 
da, a rotina print coloca na tela oito 
bytes de dados seguindo a posição ini- 
cial definida pelo par de registros BC. 
O conteúdo de BC é incrementado a ca- 
da byte impresso. 

Depois da impressão da primeira par- 
te da gaivota, o par HL é incrementado 
para apontar a posigáo na tela imedia- 
tamente à direita, Em seguida, a rotina 
print é chamada outra vez. 

Quando os dois blocos tiverem sido 
impressos, a primeira gaivota estará 
completa, O computador passa, entào, 
à impressão da segunda. Para isso, o 
apontador de dados é recuperado da pi- 
һа е о par HL é ajustado para apontar 
a nova posição de impressão. Feitos es- 
ses ajustes, a rotina print é chamada ou- 
tra vez. Todo o processo já descrito se 
repete, até que se complete o desenho da 
segunda gaivota. 








"e 


A listagem que vocé digitará a seguir 
náo faz parte do programa principal. 
Este é composto por quatro rotinas, trés 
das quais já publicadas. Apresentare- 
mos a última delas no artigo que encer- 
ra a série Avalanche. 

Este programa e todos os que o se- 
guem, a partir do presente artigo, cons- 
tituem sub-rotinas isoladas que iráo ser 
chamadas pela quarta rotina do progra- 
ma principal. Como esta será montada 
па ѕедйёпсіа да terceira rotina, a lista- 
gem que fornecemos aqui começa no en- 
dereço — 11380. Deixamos, assim, um 
espaço reservado para a última parte do 
programa principal do jogo. 

Esta rotina, além de colocar as gai- 
votas na tela, faz com que elas batam 
as asas para cima e para baixo usando 
só duas estruturas de animação. 


10 org 54156 

20 941 14 а,(-5206) 
30 inc a 

40 res 3,a 


50 14 (-5206),a 
60 14 b,28 

70 cp 4 

80 jr c,opt 

90 1d b,32 


100 9р push bc 
110 ld a,b 

120 19 Һ1, (62407) 
130 18 де, 42 
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140 add hl,de 
150 push hl 
160 push af 
170 call 77 
180 pop af 
190 pop hl 
200 inc hl 
210 add a,2 
220 call 77 
230 pop bc 
240 1d a,b 
250 ld hl, (62407) 
260 ld de,68 
270 add hl,de 
280 push hl 
290 push af 
300 call 77 
310 pop af 
320 pop hl 
330 inc hl 
340 add a,2 
350 call 77 
360 ret 

370 end 


DEFINIÇÃO DO VÔO 


A posição de memória — 5206 con- 
tém a variável de atraso da gaivota, que 
tem a função de impedir que as aves ba- 
tam as asas muito rapidamente. O atra- 
so completo é carregado e incrementa- 
do no acumulador A. 

Para que as asas se movimentem pa- 
ra cima e para baixo de maneira adequa- 
da, o atraso da gaivota deve oscilar nu- 
ma faixa restrita. A instrução res 3,a se 
encarrega disso, ajustando o bit 3 do 









acumulador com o valor 0. Analisando 
essa instrução, verifica-se que a variá- 
vel de atraso será reajustada ao valor 0 
sempre que ela for incrementada com 
um valor superior a 7. Nesse caso, o re- 
sultado do incremento e do ajuste para 
zero é armazenado novamente no ende- 
reco — 5206. 

Para dar a impressáo de que a gai- 
vota está batendo as asas, utilizamos pa- 
dróes de bits para duas gaivotas — uma 
com as asas para cima e outra com as 
asas para baixo. 

Os códigos dos padróes para a pri- 
meira gaivota sào 28 e 30, e para a se- 
gunda, 32 e 34. Cada padráo compreen- 
de oito bytes de dados e cada gaivota 
possui dois padróes. 

O registro B é carregado com o códi- 
go do primeiro padrão da primeira g 
vota. Depois, o conteúdo do acumula- 
dor — onde ainda está o atraso da gai- 
vota — é comparado com o número 4. 

Uma instrução cp equivale a uma 
subtração cujo resultado não foi arma- 
zenado, O número 4 é subtraído do con- 
teúdo do acumulador, mas não se arma- 
zena o resultado em nenhum lugar. Es- 
sa operação tem a função exclusiva de 
ajustar os indicadores ou balizas (flags). 
Se o atraso da gaivota for menor do que 
4, o indicador chamado carry é ajusta- 
do com o valor 1; se for maior ou igual 
a 4, carry não é ajustado. 

A instrução jr, c,gpt faz o processa- 
dor saltar para o rótulo gpt se carry foi 











ajustado com 1. Assim, se o atraso da 
gaivota for menor do que 4, o proces- 
sador salta a instrução seguinte e o có- 
digo 28 permanece em B. 

Se o atraso da gaivota for maior ou 
igual a 4, carry não foi ajustado e o sal- 
tonão ocorre. O registro B é, então, car- 
regado com o código 32, correspondente 
ao primeiro padrão da segunda gaivota 
na tabela de padrões. 


COLAGEM 


A rotina gpt — incumbida de colo- 
car as duas gaivotas na tela — começa 
armazenando na pilha o código do pri- 
meiro padrão da gaivota que está sen- 
do impressa. Isso é feito porque, como 
temos que imprimir a gaivota duas ve- 
zes, esse código sofrerá alteração duran- 
te a primeira impressão. 

Para imprimir uma gaivota na tela, 
recorremos à rotina 77 da ROM, já uti- 
lizada em partes anteriores do jogo. An- 
tes, precisamos ajustar seus parâmetros. 
O acumulador deve conter o código do 
padrão e o par de registros HL, o ende- 
reço na tabela de nomes onde vamos co- 
locá-lo — ou seja, a posição de impres- 
são na tela. 

O código do primeiro padrão da gai- 
vota é transferido do registro B para o 
acumulador. Em seguida, o par HL é 
carregado com o endereço inicial da ta- 
bela de nomes, que está armazenado nos 


| 37 CÓDIGO DEMAQUINA 37 





endereços 62407 e 62408 da RAM, Adi- 
cionando-se o número 42 a esse endere- 
ço, por meio do par de registros DE, ob- 
tém-se a posição na tela da metade ini- 
cial da primeira gaivota. 

Os conteúdos do par de registros HL 
e do acumulador são preservados na pi- 
lha, uma vez que podem ser alterados 
pela rotina 77. Esta é chamada logo em 
seguida e imprime a metade esquerda da 
primeira gaivota. 

O apontador da posição na tela é re- 
cuperado da pilha, voltando ao par HL, 
enquanto o código do padrão retorna ao 
acumulador. Em seguida, o apontador 
em HL é incrementado para indicar a 
posição de impressão da metade direi- 
ta. O número 2 é então adicionado ao 
acumulador, que passa a conter o códi- 
go do padrão da segunda metade. Quan- 
do a primeira gaivota já está na tela, a 
rotina 77 é chamada. 

O código do padrão da metade es- 
querda da gaivota é recuperado da pi- 
lha para o registro B, uma vez que essa 
mesma figura será novamente impressa 
em outra posição. 

O procedimento é análogo ao já des- 
crito, só que a adição do número 68 ao 









endereço inicial da tabela de nomes em 
HL indica a posição de impressão da se- 
gunda gaivota. À rotina 77 é chamada 
duas vezes, uma para cada metade, e o 
endereço da segunda gaivota se comple- 
ta na tela também. 


TESTANDO 


Para testar a listagem aqui apresen- 
tada, espere a publicação da última ro- 
tina da série Avalanche. Se quiser se an- 
tecipar, digite uma pequena rotina em 
código de máquina que chame a rotina 
deste artigo várias vezes, com um peque- 
no atraso entre cada chamada. Tal atra- 
so pode ser provocado por um laço 
qualquer. Depois disso, carregue a ta- 
bela de padrões e veja as gaivotas ba- 
tendo suas asas, 
















Muitos tipos de jogos e outros pro- 
gramas se tornaráo bem mais interessan- 
tes e “profissionais” se você adicionar 
a eles música e efeitos sonoros, como 
ruídos de tiros, explosões, disparos de 
canhões de laser e coisas do gênero. Na 
verdade, esta é uma das razões pelas 
quais a maioria dos microcomputado- 
res mais modernos tem comandos espe- 
ciais em BASIC para o controle de sin- 
tetizadores internos de som, como é o 
caso do TRS-Color, do Spectrum, do 
MSX e do TK-2000. 

Os micros compatíveis com a linha 
TRS-80 não contam com esse recurso, 
tão simples de usar. Mas isso não quer 
dizer que seja impossível programar 
efeitos sonoros e musicais nessas máqui- 
nas. Conhecendo alguns truques em lin- 
guagem Assembler, é fácil escrever pe- 
quenas rotinas para adicionar som aos 
seus programas. 


FACA UM SOM 


Fazer o programa não é tudo, porém. 
Normalmente, os microcomputadores 
da linha TRS-80 não têm alto-falante in- 
terno, como ocorre com o Apple, e nem 
possuem linha de conexão para o alto- 
falante da TV ou do monitor, como é 
o caso do MSX e do TK-2000. 

Por essa razão, se quisermos produ- 
zir sons nesse micro, devemos utilizar a 
saída para o gravador cassete. Esse re- 
curso vale também para os modelos da 
linha TRS-80 que dispõem de alto- 
falante interno (por exemplo, o Proló- 
gica CP-500), ligado em paralelo com a 
saída para cassete. 


PORTA DE SA! 


Como é possível produzir efeitos so- 
noros numa saída desse tipo? 

Um gravador de áudio é capaz de re- 
gistrar apenas sons na faixa audível (en- 
tre 200 e 10.000 Hz, com os valores má- 
ximo e mínimo dependendo da qualida- 
de do aparelho). Ora, uma interface es- 
pecial na saída para o gravador trans- 
forma os impulsos binários (0 e 1), que 
constituem a “linguagem” interna do 
computador, em ondas elétricas com 





freqiiência compatível. Em outras pala- 
vras, se você colocar uma fita gravada 
com um programa de computador para 
escutar, ouvirá uma “sinfonia” musical 
caótica, que corresponde aos sinais en- 
viados pelo computador. 

Essa interface de conversão digital- 
analógica está conectada internamente 
a uma porta do computador. 

Uma porta é um canal de comunica- 
ção entre o microprocessador e o mun- 
do externo. Em geral, uma porta faz a 
comunicação nos dois sentidos (entra- 
da e saída), mas muitos micros usam de- 
terminadas portas só para um tipo de 
operação. É o caso da porta para gra- 
vador cassete, que é apenas de saída. 

Em conseqüéncia, tudo o que neces- 
sitamos fazer para ouvir sons produzi- 
dos pela porta do gravador cassete é co- 
nectar o plugue do fio que normalmen- 
te é utilizado para gravar programas e 
dados (e que é chamado de AUX ou 
MIC) a um sistema de som, dotado de 
amplificador e alto-falante. 

Quem tem um microcomputador da 
linha TRS-80, ou compatível, já dota- 
do de alto-falante interno, nào precisa 
nem mesmo tomar essas medidas. 


SONS POR SOFTWARE 


Para acionar uma porta de saída, 
usamos a instrucáo OUT, em linguagem 
Assembler, que se encarrega de enviar 
um byte para essa porta. 

Para gerar sons com a instrução 
OUT, recorremos à velocidade do códi- 
go de máquina. Tudo o que é preciso fa- 
zer, neste caso, é movimentar alterna- 
damente o cone do alto-falante para fo- 
ra e para dentro. Se fizermos isso uma 
vez, produziremos um clique do tipo que 
costuma ocorrer quando ligamos um 
aparelho de som. O truque consiste em 
repetir a operação seguidas vezes, e de 
modo bastante rápido. Se os movimen- 
tos forem suficientemente velozes, a su- 
cessão de cliques vai parecer um zum- 
bido. Quanto| mais acelerado for o mo- 
vimento de vaivém do cone, mais agu- 
do será o som obtido. 

Para escrever um programa destina- 
do a criar qualquer tipo de efeito sono- 
ro, é necessário que se conheçam alguns 


O TRS-80 não conta com comandos para 
a produção de efeitos sonoros. 
Dois pequenos programas em código de 
máquina, porém, permitem a 
criação de diversos sons nesse micro. 





fatos básicos sobre a porta do gravador 
do micro TRS-80: 


* A porta de saída do gravador tem o 
endereço 255 (FF em hexadecimal). 

* Apenas o primeiro e o segundo bits do 
byte enviado à porta de saída são usa- 
dos pela/interface de conversão. O bit 
zero determina a saída de um impulso 
de som, ao passo que o bit um controla 
o motor do gravador. 

* Quando o bit zero da porta é iguala- 
do a 1, ocorre um impulso audível po- 
sitivo na linha AUX ou MIC do grava- 
dor. Quando o bit zero é igualado a 0, 
ocorre um impulso negativo. 

Portanto, para conseguir uma apro- 
ximação de uma onda sinusoidal (tom 
puro de uma certa freqüéncia) na porta 
de saída, o software deve fazer o seguin- 
te: um impulso positivo é enviado, e um 
pequeno período de espera é introduzi- 
do. Em seguida, um impulso negativo 
é enviado, e novo período de espera de- 
ve ocorrer. 

Ao ser aumentado o período de es- 
pera, a fregiência do som gerado sofre- 
rá uma diminuição; se, ao contrário, es- 
se período for reduzido, a fregiiência 
obtida será incrementada. 

Para produzir um ruído ou qualquer 
outro efeito sonoro diferente, basta va- 
riar os dois intervalos de espera segun- 
do algum padrão (ou, então, aleatoria- 
mente: com isso conseguiremos o cha- 
mado “'ruído branco”, semelhante ao 
chiado de um rádio). 


PURO: 


Apresentamos a seguir uma sub- 
rotina em linguagem de máquina que 
possibilita a produção de tons puros (bi- 
pes), com freqiiência e duração indivi- 
dualmente controláveis. 

Para facilitar o uso dessa rotina por 
programas em BASIC, a sub-rotina é in- 
teiramente realocável, e é colocada em 
uma parte protegida da memória por 
uma rotina de inicialização, em BASIC, 
que precisa ser chamada apenas uma 
vez. Uma segunda rotina, também em 
BASIC, invoca a sub-rotina em código 
de máquina, por meio do comando 
USR. 

É possível armazenar a rotina em có- 












digo de máquina em uma parte protegi- 
da da memória. Para isso, reinicialize o 
computador e forneça o limite mínimo 
da memória protegida quando ele apre- 
sentar na tela a questão “MEM USA- 
DA?" ou *MEMSIZE?"'. No exemplo a 
seguir, imaginamos que o computador 
tem 32Kbytes, e fixamos o limite míni- 
mo da memória; assim, a rotina passa- 
rá a ser armazenada na locagáo 49001. 
Para usar outro limite de memória, al- 
tere o valor da variável IM na linha 1010 
do programa de inicialização. O valor 
sugerido para um computador com 
48Kbytes de RAM seria 65000. 

A versão aqui apresentada funciona 
em microcomputadores da linha TRS-80 
com BASIC Nível II (para cassete): 


1000 ' ROTINA DE INICIALIZACAO 
1010 IM-49000 

1020 FOR I=1 TO 35 

1030 READ N:POKE IM+I,N 

1040 NEXT N 

1050 DATA 205;127;10,14,255,6! 
1060 DATA 1;237,65,17,29,0,27 
1070 DATA 122,179,32,251,6,2 
1080 DATA 237,65,17,29,0,27 
1090 DATA 122,179,32,251,43 
1100 DATA 124,181,32,227,201 
1110 POKE 16527, INT(IM/256) : 
POKE 16526, IM-INT(IM/256)*256+1 
1120 RETURN 


A rotina a ser chamada no momento 
de produção do som é assim: 


2000 ' SUBROTINA PARA SOM 
2010 CY=FQ*DR:N=29483/FQ 

2020 POKE IM*11,N:POKE IM*23,N 
2030 I=USR(CY) : RETURN 


Note que a rotina exige dois argu- 
mentos, que devem ser fornecidos pelo 
programa que a chamou: DR é a dura- 
ção, em segundos, e FQ, a freqüëncia do 
som, em hertz (ciclos por segundo). 
Apresentamos a seguir um pequeno pro- 
grama de teste, que exemplifica a ma- 
neira de usar as rotinas anteriores. 


10 'PROGRAMA DE TESTE 
20 GOSUB 1000 :'INICIALIZACAO 
30 CLS:INPUT”DURACAO (8)”;DR 
40 INPUT"FREQUENCIA (HZ)";FQ 
50 GOSUB 2000:GOTO 30 


Para rodar o programa em micros 
com Disk BASIC (para disquete), faca 
as seguintes modificacóes: 




















E PRODUZA SONS NO TRS-80 E ROTINA DE PRODUCÁO 
m INTERFACE DE CONVERSÃO DE SONS 
B A PORTA DE SADA W PROGRAMA DE TESTE 
n A INSTRUÇÃO OUT HE COMO VARIAR A FREQUÊNCIA 
m TONS MUSICAIS W TIROS E EXPLOSÕES 





1110 DEFUSRO=IM+1 
2040 I=USRO (CY) : RETURN 


Os programas apresentados funcio- 
nam da seguinte maneira: a rotina de 
inicialização lê os códigos decimais cor- 
respondentes à rotina em linguagem de 
máquina, e os coloca na memória pro- 
tegida por meio do comando POKE. 

Antes de terminar, a rotina define o 
endereço de partida da rotina de máqui- 
na, que é, então, comunicado ao inter- 
pretador (par de apontadores 16526 e 
16527, na versão destinada a gravador 
cassete, e DEFUSR, na versão adapta- 
da para disco). 

Na pequena rotina de produção de 
sons, inicialmente é calculado o núme- 
ro total de ciclos (positivo/negativo) ne- 
cessário para produzir a duração pedi- 
da. Esse valor é armazenado na variá- 
vel CY, que é passada à rotina USR por 
meio de seu argumento. 

A duração total da pausa a ser exe- 
cutada entre os ciclos (N) é também cal- 
culada e fornecida à rotina diretamen- 
te, mediante dois comandos POKE, nos 
pontos onde é necessária, 

A última linha da rotina em lingua- 
gem BASIC se encarrega de chamar a 
rotina em código de máquina, e retor- 
na depois de ser executada. 


TIROS, EXPLOSÓES E CHIADOS 


O próximo programa funciona se- 
gundo o mesmo princípio que o ante- 
rior, só que o intervalo entre as fases po- 
sitiva e negativa da onda sonora é alte- 
rado aleatoriamente a cada instante. Ao 
invés de um som puro (freqüéncia cons- 
tante em toda a duragáo), esse tipo de 
intervalo produz um impulso de **ruí- 
do branco"', que tem como caracterís- 
tica uma mistura de todas as freqüén- 
cias (daí seu nome, em analogia com a 
cor branca). Portanto, resta ao softwa- 
re controlar apenas a duragáo total do 
impulso sonoro. Duragóes muito curtas 
produzem um efeito sonoro semelhan- 
te a um tiro; durações um pouco maio- 
res, algo semelhante a uma explosão, e 
durações muito longas, um chiado que 
lembra a estática de rádio (ou, se você 
quiser, o barulho produzido pelo reator 





de um avião a jato). Todos esses efeitos 
têm suas aplicações em programas de 
jogos. 


FUNCIONAMENTO DA ROTINA 


Da mesma maneira que a anterior, a 
sub-rotina é inteiramente realocável, e 
é colocada em uma parte protegida da 
memória por uma rotina de inicializa- 
ção em BASIC, que precisa ser chama- 
da apenas uma vez. Uma segunda roti- 
na, também em BASIC, invoca a sub- 
rotina em código de máquina, por inter- 
médio do comando USR. 

A versáo a seguir destina-se a micro- 
computadores da linha TRS-80 com 
BASIC Nível II (para cassete). A rotina 
de inicialização é assim: 


1000 ' ROTINA DE INICIALIZACAO 
1010 IR=49000 

1020 FOR I-1 TO 26 

1030 READ N:POKE IR*I,N 

1040 NEXT N 

1050 DATA 205,127,10,62,1,211 
1060 DATA 255,237,95,87,71,16 
1070 DATA 254,62,2,211,255,66 
1080 DATA 16,254,43,124,181,32 
1090 DATA 234,201 

1410 POKE 16527,INT(IR/256) : 
POKE 16526,IR-INT(IR/256) *256*1 
1120 RETURN 


A rotina de produção de sons: 


2000 ' SUBROTINA PARA RUIDO 
2010 N=DR*1000 
2020 I-USR(N):RETURN 


E um pequeno programa de teste: 


10 'PROGRAMA DE TESTE 
20 GOSUB 1000 :'INICIALIZACAO 
30 CLS:INPUT"DURACAO (8)";DR 
40 GOSUB 2000:GOTO 30 


Finalmente, para rodar o programa 
em micros com Disk BASIC (para dis- 
quete), faça as seguintes modificações: 


1110 DEFUSRO=IR+1 
2040 I=USRO (N) : RETURN 


Se você quiser usar as duas rotinas em 
linguagem de máquina no mesmo pro- 
grama, altere os endereços de partida 
IMe IR, de modo a evitar superposição 
(por exemplo, se IM=49000, faça 
IR — 49036, no mínimo). 












No primeiro artigo desta série sobre 
jogos de guerra, criamos os blocos grá- 
ficos que iráo representar as unidades 
militares no campo de batalha. Esses 
símbolos seráo colocados e movidos em 
um mapa, para que possamos acompa- 
nhar o desenrolar da disputa e planejar 
nossa estratégia. 


Capa e Espada terá uma matriz para 
representar o mapa. Este permanecerá 
em exibigáo durante todo o jogo, ocu- 
pando a maior parte do vídeo. 

Como o mapa está sempre na tela, 
poderíamos dispensar a matriz, pois a 
memória de vídeo conterá todas as in- 
formações a respeito do mapa. Convém, 
no entanto, manter esses dados organi- 
zados em uma matriz, mesmo às custas 
de grande quantidade de memória. Se- 
rá muito mais fácil obter e modificar as 
informações na matriz do que na memó- 
ria de vídeo. 

A matriz terá tantos elementos quan- 
tas forem as posições do mapa. Os ma- 
pas dos micros das linhas MSX, TRS- 
Color e Spectrum têm trinta por dezes- 
seis posições; os do Apple e do TK-2000, 
vinte por dezoito. 


AS TROPAS 


Para controlar a posição das tropas 
no mapa e verificar se há obstáculos em 
seu caminho quando as movimentamos, 
precisamos de uma segunda matriz. Es- 
ta não só conterá a posição de cada uma 
das unidades, mas, também, toda e 
qualquer informação referente a elas. 

Em Capa e Espada, a matriz da tro- 
pa conterá ainda informações relaciona- 
das aos combates, ao movimento etc. O 
conteúdo de uma matriz desse tipo de- 
pende da natureza do jogo. Você terá 
melhores informações sobre isso à me- 
dida que formos ampliando o programa. 


DIMENSIONAMENTO DAS MATRIZES 


As linhas seguintes dimensionam as 
matrizes do mapa e da tropa. 


JOGOS DE GUERRA: 
O MAPA DA BATALHA 


350 DIM m(16,30) 
355 DIM T(16,9) 


nu 


350 DIM M(16,30) 
355 DIM T(15,8) 


16] 


350 
360 


DIM M(18,20) 
DIM T(16,9) 





350 DIM M(16,30) 
355 DIM T(16,9) 


Os valores contidos na matriz do ma- 
pa asseguram que ele tenha o tamanho 
da tela. A matriz da tropa, por sua vez, 
é dimensionada de modo que possa con- 
ter nove tipos de informação a respeito 
de cada uma das dezesseis unidades que 
estão em combate. 


с PREENCHER O MAPA 


O próximo passo consiste em deter- 
minar os vários tipos de terreno que 
compõem a área mapeada, bem como 
a posição inicial de cada uma das uni- 
dades. Poderíamos ter optado por um 
mapa fixo — o que seria muito impor- 
tante se quiséssemos reproduzir uma ba- 
talha famosa. Porém, é bem provável 
que os jogadores prefiram alterar o cam- 
po de batalha a cada jogo. Para fazê-lo 
sem complicações, utiliza-se o gerador 
de números aleatórios do micro. 

A definição do terreno poderia 
resumir-se a uma simples escolha ao aca- 
so entre os tipos possíveis. Porém, a dis- 
tribuição de florestas e montanhas ge- 
ralmente não é um simples fruto do aca- 
so. Seria interessante que o programa 
pudesse reproduzir um padrão mais pró- 
ximo do real, concentrando montanhas 
ou florestas em certas áreas. 

Durante o planejamento do mapa de 


Chegou a hora de desenhar o mapa 

do campo de batalha. Vamos preenchê-lo 
com vilas, florestas e montanhas, 

para, depois, colocar as forças 
inimigas em suas posições iniciais. 


um jogo de guerra, é importante tam- 
bém considerar o tipo de terreno no qual 
esperamos que se dê a ação. Em Capa 
e Espada, por exemplo, pretende-se si- 
mular uma guerra medieval, com a 
maioria das batalhas sendo travadas em 
campo aberto. Nesse caso, não é inte- 
ressante ter montanhas e florestas demais. 


A ESCOLI uil 


A rotina que listamos a seguir é es- 
sencialmente aleatória, embora haja um 
certo controle sobre a selegáo, o que aju- 
da a dar uma aparéncia de maior reali- 
dade ao mapa. 


20 DEF FN r(x)=INT (RND*x)+1 
800 REM Escolhe terreno 

810 LET R=FN r(50) 

820 IF R>5 THEN LET R=0 


830 IF R>4 THEN LET R=3: 
RETURN 

840 IF R>1 THEN LET R=2 
850 RETURN 


nu 


15 R-RND(-TIME) 

20 DEF FN R(X) *INT(RND(1)*X)*1 
800 REM TERRENO 

810 R=FN R(50) 

820 IF R>5 THEN R=0 

830 IF R>4 THEN R=3:RETURN 
840 IF R>1 THEN R=2 

850 RETURN 


(ШІ 


20 DEF FN R(X) = 
1) * X) +1 

800 REM TERRENO 
810 R = FN R(50) 
820 IFR» 5 THEN R =O 
830 IF R > 4 THEN R = 3: 
N 

840 
850 


INT ( RND ( 


RETUR 


IF R > 1 THEN R = 2 
RETURN 





800 REM ESCOLHE O TERRENO 


MATRIZES DO MAPA W COMO COLOCAR 
MATRIZES DAS TROPAS OS BLOCOS GRAFICOS NA TELA 
“COMO PREENCHER O MAPA W MOLDURA PARA O MAPA 
POSICIONAMENTO FATORES QUE AFETAM 


IDADES O MOVIMENTO DAS FORÇAS 








PROGRAMAÇÃO DE JOGOS 








40 PROGRAMAÇÃO DEJOGOS 40 








810 
820 
830 
840 
850 


R=RND(50) 

IF R>5 THEN R=0 

IF R>4 THEN R=3:RETURN 
IF R>1 THEN R=2 
RETURN 


O programa utiliza apenas números 
aleatórios inteiros. Como o Apple, o 
TK-2000, o Spectrum e o MSX nào tém 
uma função como a RND, a linha 20 
DEFine uma Função para isto. 

Em todos os programas, um núme- 
ro aleatório inteiro entre 1 e 50 é cria- 
do. A rotina de “escolha de terreno” se- 
leciona um valor para a variável R de 
acordo com o número criado. Se esse 
número for maior que 5, R valerá 0, có- 
digo de campo aberto. Se for 5, R será 
3, código de montanha; se for 2, 3 ou 
4, R será 2, valor que representa flores- 
ta; e, se for 1, R fica valendo 1, código 
de vila. 


CONTROLANDO O ACASO 


A rotina de “escolha de terreno” é 
chamada para definir cada posição da 
matriz do mapa ao longo de uma de suas 
dimensões. Como foi mencionado an- 
teriormente, não é desejável que a dis- 
tribuição seja totalmente aleatória. A 
rotina que se segue impõe um certo pa- 
drão à distribuição dos tipos de terreno, 
tornando o mapa mais real. 


370 

470 

480 

LET 

490 

500 

510 

520 

525 

1) 

530 LET m(i,3)*R 

540 IF R=3 AND 3<30 THEN 

m(1,3+1)=4 

550 IF m(1,3)<>0 AND m(1,3)<>3 

THEN PRINT AT i,j;CHR$ (m(i,j 

)*143) 

555 IF m(1,3)=3 AND 3<>30 THEN 
PRINT AT i,j;CHR$ 146;AT 1,3+ 

1;CHRS 147 

560 NEXT j 

570 NEXT à 

580 GOSUB 720 

590 FOR i=l TO 8 

600 FOR 3=1 TO 2: LET T(1,3)=2 
LET T(1+8,3)=2: NEXT j 

610 FOR 3=3 TO 4: READ T(1,3): 

LET Т(1%8,3)-Т(1,3): NEXT 3 

620 READ mr 

630 FOR j-0 TO 8 STEP 8 

640 LET T(i+5,5)=mr+EN r(2) 

650 LET T(1+3,6)=(FN r(100)*10 


LET i$2"NOSL" 
REM  Cria 

FOR i=l TO 16: GOSUB 800: 
m(i,l)*R: NEXT i 

FOR i-1 TQ 16 

FOR j=2 TO 30 

LET s-FN r(10) 

IF s«8 THEN GOSUB 800 

IF s>=8 THEN LET R=m(i,5- 


LET 


)*10 
660 
670 
680 
690 
700 
710 


LET T(i+5,7)=T(i+5,6) 
NEXT j 

LET T(i,8)=15 

LET T(1+8,8)=1 

NEXT i 

RETURN 


370 I$="NWSE” 

470 REM CRIACAO 

480 FOR I=1 TO 16:GOSUB 800:M(I 
,l)*R:NEXT I 

490 FOR I=1 TO 16 

500 FOR J=2 TO 30 

510 8=FN R(10) 

520 IF S<8 THEN GOSUB 800 

525 IF 8>=8 THEN R=M(I,J-1) 

530 M(I,J)*R 

540 IF R=3 AND J€30 THEN M(I,J* 
1)=4 

550 ТЕ M(1,J)<>0 AND M(I,J)<>3 
THEN LOCATE J,I:PRINT CHRS(M(I, 
J)*223) 

555 IF M(I,J)*3 AND J<> 30 THEN 
LOCATE J,I:PRINT CHR$(226)*CHR 
$(227); 

560 NEXT J,I 

580 GOSUB 720 

590 FOR 1=1 TO 8 

600 FOR J=1 TO 2:T(1,J)=2:T(1+8 
,1)=2:NEXT J 

610 FOR J=3 TO 4:READ T(I,J):T( 
1*8,J)*T(I,J):NEXT J 

620 READ MR 

630 FOR J=0 TO 8 STEP 8 

640 T(I*J,5)-MR*FN R(2) 

650 T(I*J,6)*(FN R(100) *10) *10 
660 T(I*J,7)*T(I*J,6) 

670 NEXT J 

680 Т(1,8)-15 

690 T(1+8,8)=1 

700 NEXT 1 

710 RETURN 


370 
470 


I$ = "NOSL" 

REM CRIACAO 
480 FOR I = 1 TO 18: 
:M(I,1) = R: NEXT 
490 FOR I = 1 TO 18 
500 FOR J = 1 TO 20 
510 8 = FN R(10) 
520 IF S < 8 THEN GOSUB 800 
525 IF 8» = 8 THEN R = M(I,J 
= 1) 

530 M(I,J) = R 

540 IF R = 3 AND J < 20 THEN M 
(IJ * 1) *4 

550 IF M(I,J) € > 0 AND M(I,J 
) < » 3 THEN Y = I:X = J:N = M 
(I,J) - 1: GOSUB 10000 

560 IF M(I,J) = 3AND J < > 2 
O THEN Y = I:X = J:N = 2: GOSUB 
10000:X = J + 1:N = 3: GOSUB 1 
0000 

570 NEXT.J,I 

580 GOSUB 720 

590 FOR I = 1 TO 8 


GOSUB 800 

















600 FOR J = 1 TO 2:T(1,J) = 2: 
T(I * 8,J) * 2: NEXT J 

610 FOR J = 3 TO 4: READ T(I,J 
):T(I * 8,J) * T(I,J): NEXT J 


620 READ MR 

630 FOR J = 0 TO 8 STEP 8 
640 T(I * J,5) = MR + FN R(2) 
650 T(I + 3,6) = ( FN R(100) * 
10) + 10 

660 Т(І + 3,7) = T(I + J,6) 
670 NEXT J 

680 T(1,8) = 18 

690 T(I + 8,8) = 1 

700 NEXT 1 

710 RETURN 


10000 X = X * 2 - 2:N = N * 2: 
FOR W = 0 TO 1:X = X + W:N = N 
+ W: FOR V = 0 TO 7 

10010 POKE T * (Y - 8 * (¥ > 7 
) - 8 * (Y » 15)) * 128 * 40 * 
(q3»57) *40* (215) *X * 1 
024 * V, PEEK (EE + N * 8 +V) 
10020 NEXT V,W: RETURN 





370 I$-"NOSL" 

470 REM CRIAR 

480 FOR I=1 TO 16:GOSUB 800:M(I 
,1)=R:NEXT І 

490 FOR I*1 TO 16 

500 FOR J=2 TO 30 

510 S=RND(10) 

520 IF S<8 THEN GOSUB 800 

525 IF S>=8 THEN R=M(1,J-1) 

530 M(I,J)*R 

540 IF R*3 AND J€30 THEN M(I,J* 
1)=4 

550 IF M(1,J)<>0 AND M(1,J)<>3 
THEN LINE (J*8,I*8)-(J*8*7,I*B* 
7) , PRESET , BF : DRAW” BM" +STR$ (J*8) 
*","*STRS (I*B) «UC$ (M(I,J)) 

555 IF M(I,J)*3 AND J<>30 THEN 
DRAW"BM"*STRS$ (J*B) *" , "*STRS (I*B 
)*UCS (3) *"BM"*STRS$ ((J*1) *B) t^," 
*STR$ (I*8) *UC$ (4) 

560 NEXT J,I 

580 GOSUB 720 

590 FOR I=1 TO 8 

600 FOR J=1 TO 2:T(I,J) *2:T(I*8 
19) *2:NEXT J 

610 FOR J=3 TO 4:READ T(I,J):T( 
І+8,Ј) =Т(І,Ј):МЕХТ Ј 

620 READ MR 

630 FOR J=0 TO 8 STEP 8 

640 T(I*J,5) MR*RND(2) 

650 T(I*J,6)* (RND(100)*10)*10 
660 T(I*J,7)*T(I*J,6) 

670 NEXT J 

680 Т(1,8)-15 

690 Т(1%8,8)-1 

700 МЕХТ І 

710 RETURN 


A rotina gera um novo nümero alea- 
tório, S, para cada elemento restante da 
matriz. O valor de S, selecionado na li- 
nha 510, varia de 1 a 10. A linha 520 faz 
com que, em 70% das vezes, o novo blo- 
co de terreno seja escolhido ao acaso — 
se S<8, o programa chama a sub-rotina 


de escolha de terreno. Os 30% restan- 
tes seráo constituidos de blocos iguais 
aos vizinhos da esquerda. Esse procedi- 
mento tem como objetivo criar grupos 
de blocos no mapa. As linhas que váo 
de 550 a 570 colocam os blocos na tela. 


POSICIONAMENTO DAS TROPAS 


As posições dos combatentes são ar- 
mazenadas nas matrizes das tropas co- 
mo pares de coordenadas — horizontais 
e verticais. 

Inicialmente, os adversários ficam 
em extremos opostos da tela. No cam- 
po de Capa e Espada, o jogador come- 
ça no extremo sul (margem inferior do 
mapa), e o computador, no norte (topo 
da tela). 

Portanto, a coordenada vertical já es- 
tá previamente determinada. 

A coordenada horizontal precisa ser 
selecionada, Assim como para a defini- 
ção do tipo de terreno, é interessante 
que haja um elemento de acaso nessa es- 
colha. Contudo, algumas restrições de- 
vem ser feitas — precisamos impedir, 
por exemplo, que duas unidades ocupem 
o mesmo espaço. 

A rotina que listamos a seguir sele- 
ciona a posição inicial de cada unidade, 
de ambos os lados. Em primeiro lugar, 
as tropas são selecionadas ao acaso. De- 
pois, o mapa é dividido verticalmente 
em oito colunas. Cada coluna representa 
os limites dentro dos quais as unidades 
serão colocadas. A posição definitiva de 
todas elas é, então, selecionada de acor- 
do com os limites da coluna, 





B60 REM Dispoe tropas 

870 INK 2 

880 FOR TO 2 

890 LET в=1: LET г=1 

900 FOR k-1 TO 8 

910 REM Loop 

920 LET s=FN r(8*m) 

930 IF Т(8,9) <>0 THEN GOTO 
910 

940 LET r=EN r(4)+r 

950 ГЕТ г=г-ІМТ (r/30) 

960 LET Т(8,9)=г 

970 INK m 

980 PRINT AT T(s,8),T(s,9) ;:u$( 
в) 

990 МЕХТ К 

1000 МЕХТ ш 

1010 RETURN 


nu 


860 REM TROPAS 
880 FOR M-1 TO 2 


890 
900 
920 
930 
940 
950 


S=1:R=1 

FOR K=1 TO 8 

S=FN R(8*M) 

IF T(8,9)<>0 THEN 920 
R=FN R(4)+R 
R=R-INT(R/30) 

960 T(S,9)-R 

980 LOCATE T(8,9),T(S,8) : PRINT 
CHR$ (U (S) ) 

990 NEXT K,M 

1010 RETURN 


(411%! 


860 REM DISTRIBUICAO 

880 FOR M = 1 TO 2 

890 8 = 1:R = 1 

900 FOR K = 1 TO 8 

9208 = FN R(8 * M) 

930 IF T(S,9) « » 0 THEN 920 
940R * FN R(3) + R 

950 R= R - INT (R / 20) 

960 T(S,9) * R 

980 Y = T(S,8):X = T(S,9):N = 
VAL ( MID$ (U$,8 - (M - 1) * 8, 
1)) * (M - 1) * 5: GOSUB 10000 
990 NEXT K,M 


1010 RETURN 





860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 


REM DISPOE TROPAS 

COLOR 2 

FOR M=1 TO 2 

S=1:R=1 

FOR K=1 TO 8 

REM 

S=RND(8*M) 

IF T(8,9)<>0 THEN 910 
R=RND (4) *R 

R=R-INT(R/30) 

T(S,9)*R 

970 COLOR M:IF M=1 THEN COLOR 3 
980 DRAW"BM"*STR$(T(S,9)*8)*"," 
*STR$ (T (S,8) *B) :UU-VAL (MIDS (US, 
8,1)) :AS$-UCS (UU) :GOSUB 3000 

990 NEXT K 

1000 NEXT M 

1010 RETURN 


Como as oito unidades sáo escolhi- 
das ao acaso, a posição inicial de cada 
uma varia e, assim, cada novo jogo é di- 
ferente do anterior. 

Os dois exércitos estáo armazenados 
em uma só matriz. Por isso, a mesma 
rotina pode ser usada para escolher a 
posicáo inicial de todas as tropas, bas- 
tando, apenas, um laco FOR... NEXT 
(linhas 880 e 1000). O laco também faz 
com que os dois exércitos aparecam em 
cores diferentes. 


ÀS ARMAS 


Uma vez determinadas as posicóes 
iniciais das unidades, elas devem ser co- 
locadas no vídeo. 





Capa e Espada: mapa do campo de batalha no Spectrum. 


410 LET US-CHR$ 148*CHR$ 1494 
CHR$ 150*CHR$ 150*CHR$ 1514 
CHR$ 151*CHR$ 152*CHR$ 152: 
LET US=US+US 


nu 


410 U(1)=228:U(2)=229:U(3)=230: 
U(4)=230:U(5)=231:U(6)=231:U(7) 
=232:U(8)=232 


ІШІ 


410 U$ = "45667788" 





410 U$="65778899" :US=US+US 


Na linha 410 definimos um cordáo 
US para armazenar os códigos dos ca- 
racteres que representam cada unidade. 
No caso do MSX, utilizamos uma va- 
riável indexada U( ). 


A tela fica mais bonita — e menos 
confusa — se fizermos uma moldura pa- 
ra o campo de batalha. 


720 REM Borda Decorativa 
730 FOR i-0 TO 16 


740 PRINT AT i,0;CHR$ 150;AT i 
+31;CHR$ 150 

750 NEXT à 

760 FOR і-0 ТО 31 

770 PRINT AT 0,1;CHRS 150;AT 
16,1;CHR$ 150 

780 NEXT i 

790 RETURN 


nu 


720 
730 
740 
750 
760 
32 

770 
780 
790 


REM BORDA 

FOR I=0 TO 31 

VPOKE BASE (5)+1,246 

VPOKE BASE (5) +1+544,246 
NEXT I:FOR 1=0 TO 574 STEP 


VPOKE BASE (5)+1,246 


УРОКЕ ВАЗЕ (5) +1-1,246 
NEXT I:RETURN 


[ak] [có] 


720 REM BORDA 
730 РОВ ҮҮ = 0 ТО 19 STEP 19 
740 FOR XX = 1 TO 20 


750 N = 11:X = X = ҮҮ 

760 x = X * 2 - 2:N = N * 2: FO 
RW = 0TO1:X- X+W:N= N + 
W: FOR V = 0 TO 7 

770 POKE T + (Y - 8 * (Y > 7) 
-8* (Y > 15)) * 128 + 40 * (Y 
» 7) * 40 * (Y > 15) * X + 102 
4 * V, PEEK (E-* N * B* V) - 1 
28 

780 NEXT V,W 

790 NEXT XX,YY: RETURN 








720 REM BORDA 
730 LINE (0,128)- (255,135) ,PRES 
ET,BF 


740 LINE(248,0)- (255,191) , PRESE. 


T,BF:LINE (4,4) - (252,132) , PSET, B 
790 RETURN 


Essa rotina simplesmente desenha, 
repetidas vezes; em torno do mapa, o 
símbolo utilizado para os lanceiros, só 
que em outra cor. 


MOBILIZACAO DAS FORCAS 


Agora que o mapa está preparado, 
veremos como os jogadores movem suas 
unidades. Toda a mobilização decorre 
de ordens — explicadas no próximo ar- 
tigo. Porém, antes que se possa comple- 
tar o movimento, é preciso definir vá- 
rios detalhes do jogo: 


* Distância máxima, em número de po- 
sições, que cada unidade pode atingir 
em um só movimento. Em Capa e Es- 
pada, a mobilidade de uma unidade de- 
pende apenas do peso de sua armadu- 
ra, mas, em outros jogos, fatores como 
moral, disciplina e cansaço, entre ou- 
tros, podem ser levados em conta. 


* Existência de vantagens e bônus. Em 
nosso programa, os bônus são dados 
apenas aos cavaleiros. Porém, é possí- 
vel destiná-los também a unidades que 
realizem determinadas ações — como 
subir uma ladeira ou transportar carga 
— ou, ainda, que possuam um coman- 
dante muito habilidoso. 


* Obstáculos ao movimento, O progra- 
mador deve decidir que tipo de influên- 
cia o terreno exerce sobre o movimento 
de tropas. Em nosso caso, todos os ter- 
renos, menos o campo aberto, dimi- 
nuem a distância máxima em uma uni- 
dade. Também é preciso verificar se há 
outra unidade no caminho. 


+ A borda do mapa foi alcançada? 


Adicione mais esta rotina e o progra- 
ma poderá movimentar as tropas levan- 
do em conta todos esses fatores. 


1160 REM Move unidade 

1170 LET ox=T(b,8): LET oy=t(b, 

9) 

1175 LET z$-"" 

1180 IF m(T(b,8),T(b,9))<>0 THE 

N LET z$-CHR$ (143*m(T(b,8),T( 

b,9))) 

1190 LET D-5-T(b,4) 

1200 ТЕ Ь<3 OR b-9 OR b-10 THEN 
LET D=D+2 

1210 LET v=T(b,2)-1 

1215 LET up-0: LET al-v-2 











1220 IF v/2-(INT (v/2))-0 THEN 
LET up=v-1: LET al=0 
1230 REM Repeticao 


1240 LET nl=T(b,9)+al: LET np=T 


(b,8)+up 

1250 IF np<l THEN ГЕТ пр=1 
1260 IF np>15 THEN LET np=15 
1270 IF nl<l THEN LET nl=1 
1280 IF n1>30 THEN LET п1=30 
1290 IF m(np,nl)»0 THEN LET D- 
D-1 

1300 FOR k=1 TO 8 

1310 IF (T(k,9)=nl AND T(k,8)=n 


p AND k<>b) THEN LET D-0 

1315 IF (T(k+8,9)=nl AND T(k+8, 
8)=np AND k+8<>b) THEN LET D=0 
1320 NEXT k 

1330 IF d»0 THEN LET T(b,9)-nl 
: LET T(b,8)=np: LET D=D-1 

1340 IF D<>0 THEN GOTO 1230 
1350 INK 0: PRINT AT ох,0у;25 
1360 INK cl: PRINT AT T(b,8),T( 
b,9) iu$(1) 

1370 RETURN 


nu 


1160 
1170 


REM MOVE 

OX=T(B,8) :0Y=T(B,9) 

1175 GH=32 

1180 IF M(T(B,8),T(B,9)<>0 THEN 
GH=223+M(T(B,8) ,T(B,9)) 

1190 D=5-T(B,4) 

1200 IF B<3 OR B=9 OR B=10 THEN 
D=D+2 

1210 V=T(B,2)-1 

1215 UP=0:AL=V-2Z 

1220 IF V/2-(INT(V/2))=0 THEN U 
P=V-1:AL=0 

1240 N1=T(B,9) +AL:NP=T(B,8)+UP 
1250 IF NP<1 THEN NP=1 

1260 IF NP>15 THEN NP=15 

1270 IF N1<1 THEN Nl=1 

1280 IF N1>30 THEN N1=30 

1290 IF M(NP,N1)>0 THEN D=D-1 
1300 FOR K=1 TO 8 

1310 IF (T(K,9)-Nl AND T(K,8)*N 
P AND K<>B) THEN D=0 

1315 IF (T(K+8,9)=N1 AND T(K+8, 
8)=NP AND K+8<>B) THEN D=0 

1320 NEXT K 

1330 IF D>O THEN T(B,9)=NI:T(B, 
8)=NP:D=D-1 

1340 IF D<>0 THEN 1240 

1350 LOCATE OY,OX:PRINT CHR$(GH 





); 

1360 LOCATE T(B,9),T(B,8):PRINT 
CHR$ (U (I) *CL) 

1370 RETURN 


(sd 


1160 REM MOVE 

1170 OX = T(B,8):0Y = T(B,9) 
1175 GH = 14 

1180 IF M(T(B,8),T(B,9)) < > 
O THEN GH = M(T(B,8),T(B,9)) — 
1 


1190 D = 5 - T(B,4) 
IF B < 3O0RB = 9 ОВВ = 


1215 UP = O:AL = UV - 2 

1220 IF Ç / 2- (INT (V / 2) 
= 0 THEN UP = V - 1:AL = 0 
1240 N1 = T(B,9) + AL:NP = T(B, 
8) + UP 


1250 IF NP < 1 THEN NP = 1 
1260 IF NP > 18 THEN NP = 18 
1270 IF Nl « 0 THEN Nl * 1 
1280 IF Nl » 19 THEN Nl - 20 
1290 IF M(NP,N1) > 0 THEN D = 
Do Y 

1300 FOR K = 1 TO 8 

1310 IF (T(K,9) = N1 AND T(K,8 
) = NP AND K < > B) THEN D = 0 
1315 IF (T(K + 8,9) = Nl AND T 
(K + 8,8) = МР ANDK + 8< >B 


) THEN D = 0 
1320 NEXT K 


1330 IF D » 0 THEN T(B,9) = М1 
:T(B,8) = NP:D = D - 1 
1340 IFD< > 0 THEN 1240 


1350 X = OY:Y = OX:N = GH: GOSU 
B 10000 

1360 X = T(B,9) 
VAL ( MIDS (US,1 - 


= T(B,8):N = 
(158) * 8 





,1)) + (1 > 8) * 5: GOSUB 10000 
1370 


RETURN 





1160 REM MOVE UNIDADE 

1170 OX=T(B,8) :0Y=T(B,9) 

1175 ZZ-0 

1180 IF M(T(B,8),T(B,9))<>0 THE 
М 22-М(Т(В,8),Т(В,9)) 

1190 D=5-T(B,4) 

1200 IF B<3 OR B=9 OR B=10 THEN 
D=D+2 

1210 V=T(B,2)-1 

1215 UP=0:AL=V-2 

1220 IF (V/2)-INT(V/2)*0 THEN U 
P-U-1:AL*0 

1230 REM 

1240 NL=T(B,9)+AL:NP=T(B,8)+UP 
1250 IF NP<1 THEN NP=1 

1260 IF NP>15 THEN NP=15 

1270 IF NL<1 THEN NL=1 

1280 IF N>30 THEN NL=30 

1290 IF M(NP,NL)>0 THEN D=D-1 
1300 FOR K-1 TO 8 

1310 IF (T(K,9)=NL AND T(K,8)=N 
P AND K<>B) THEN D=0 

1315 IF (T(K+8,9)=NL AND T(K+8, 
8)=NP AND K+8<>B) THEN D=0 

1320 NEXT K 

1330 IF D>0 THEN T(B,9)=NL:T(B, 
8)=NP:D=D-1 

1340 IF D<>0 THEN 1230 

1350 X9=0Y*8:Y9=0X*8:IF ZZ<>0 Т 
HEN COLOR 4:LINE(X9,Y9) - (X9*7,Y 
9+7) , PRESET , BF : DRAW” BM” +STR$ (X9 
)*","*STRS$(Y9) *UCS (ZZ) ELSE LIN 
E (X9,Y9) - (X9*7,Y9*7) , PRESET, BF 
1360 COLOR CL:DRAW"BM"+STRS(T(B 
+9)*8)+","+STRS(T(B,8)*8) :UU=VA 
L(MIDS(US,1,1)):AS=UCS (UU) :GOSU 
B 3000 

1370 RETURN 


Os testes váo aumentar, reduzir ou 
impedir completamente a mobilidade 
das tropas. A rotina primeiro “lembra- 












































O que é uma simulação aleatória? 

Os jogos de simulação geralmente 
envolvem uma metodologia de cálculo 
específica para a área que está sendo 
simulada. Na maioria das simulações is- 
so abrange tanto fórmulas matemáti- 
cas quanto regras de decisão (regras 
heurísticas). 

Entretanto, o jogo de simulação fi- 
ca muito previsível se não contiver al- 
gum elemento de probabilidade (ou se- 
ja, um sorteio ao acaso realizado para 
uma equação matemática para uma re- 
gra de decisão). As situações passam 
a se repetir exatamente da mesma ma- 
neira frente a um determinado conjun- 
to de condições. 

Por isso, é importante usar o gera- 
dor interno de números aleatórios do 
computador (funções RAND, RND etc.) 
para sortear ao acaso o caminho a ser 
seguido ou o valor numérico de algum 
dado de simulação. 

São exemplos do que pode ser ge- 
rado em programas de simulação: 


+ O nome de uma nave espacial e o de 
seu comandante. 

+ O número e a direção das saídas de 
uma câmara secreta em um jogo de 
aventuras. 

* А permanência do jogador na prisão, 
no Jogo Imobiliário. 












se” da posição anterior e do tipo de ter- 
reno que havia naquela posição. Em se- 
guida, calcula a direção e o deslocamen- 
to máximo. 

As linhas 1230 a 1340 formam um la- 
ço que testa cada posição ao longo da 
trajetória da unidade, verificando se são 
ocupadas por tropas ou tipos de terre- 
no que afetam o movimento. De acor- 
do com o que esse laco encontrar, o des- 
locamento final é calculado. O laco se 
repete até que a distáncia ao ponto de 
destino seja zero. 

Após decidir sobre o deslocamento, 
a rotina coloca o símbolo do terreno ori- 
ginal na posigáo anterior e desenha a 
tropa na nova posição. 

As listagens aqui apresentadas ainda 
não poderão ser completamente testa- 
das. Como está, o programa apenas de- 
senha o mapa, sendo interrompido por 
uma mensagem de “falta de dados”. 
Com as rotinas do próximo artigo, que 
trata das ordens dadas pelo jogador, es- 
se problema deixará de existir. 


O INÍCIO DA PARTIDA 
M COMO DAR ORDENS À TROPA 


Mobilize seu exército para a guerra, 
definindo uma estratégia de 

ação e disciplinando a tropa. Esses 
requisitos são fundamentais 

para o exercício da arte de comandar. 


Agora que as rotinas de pos 
mento e movimentação das tropas já fo- 
ram incorporadas ao programa, é pre- 
ciso começar a dar ordens ao exército. 

Diversos fatores tendem a i 
o comportamento de c; 
campo de batalha. Os mai: 
vos dentre eles sáo os seguintes: 


- Ultima ordem recebida pela unidade. 
reção em que a unidade se move. 
po de munição utilizado. 

- Armaduras e demais equipamentos de 

que dispõe a unidade. 

- Poder destrutivo inicial. 

- Poder destrutivo no momento em que 

a batalha é travada. 

- Moral da tropa. 

- Posição estratégica assumida pela uni- 

dade. 

- Terreno em que a batalha tem lugar. 


Esses fatores correspondem aos no- 
ve elementos da matriz da tropa, que di- 
mensionamos no artigo anterior. O ter- 
reno e a posição já foram definidos por 
ocasião da rotina de movimento. Neste 
artigo atribuiremos valores aos elemen- 
tos restantes. 

Ao começar o jogo, os valores iniciais 
adequados são colocados na matriz da 
tropa. Os tipos de armadura e de muni- 
gáo seráo sempre os mesmos. Da m 
ma forma, o moral será também quase 
sempre o mesmo, embora possa sofrer 
algumas variações — os camponeses 
provavelmente nunca estarão muito dis- 
postos a lutar (afinal, a guerra não é de- 
les, mas dos barões feudais), enquanto 
os cavaleiros, para manter as aparên- 
cias, nunca agirão covardemente. А с; 
pacidade destrutiva poderá ser muito di- 
ferente de uma partida para a outra. As 
ordens e as direções iniciais são deter- 
minadas pelo programa: todos começam 
parados (“ALTO”), de modo que não 
existe uma direção definida. 


















As rotinas que se seguem acertam o 
valor de diversas variáveis. Os dados sáo 
obtidos de linhas DATA, ou através de 
alguns cálculos, ou das duas maneiras. 
Quando o programa estiver completo e 
em funcionamento, poderemos modifi- 
car esses dados de acordo com nossas 
preferéncias. 


ABANDONE O RTEL-GENERAI 


Estas rotinas acertam os valores ini- 
ciais dos elementos que ainda não foram 
definidos: 


190 REM Inicializacao 

200 LET vc=0: LET de=0 

310 REM 

320 PAPER 7 

330 INK 0 

340 CLS 

360 DIM t$(8,12): DIM 0$(5,12) 
DIM wS(5,9): DIM m$(5,12): 


DIM a$(4,12): DIM r$(4,12): 
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—DIM c(8) 

380 FOR 1=1 TO 5: READ o$(i), 
w$(i),m$(i): NEXT i 

390 FOR i=l TO 8: READ t$(i): 
NEXT i 

400 FOR i-1 TO 4: READ a$(i), 
r$(i): NEXT i 


410 LET uS=CHRS 148+CHRS 149+ 
CHR$ 150*CHR$ 151*CHR$ 1514 
CHR$ 152*CHR$ 152: LET u$-u$* 
us 

415 LET x$="NnSs” 

420 RETURN 

2760 DATA "fogo","nada","covard 
e","alto","arco","baixo" 

2770 DATA "marche","espada","di 
sposto","status","machado","bra 








2780 DATA "retirada","lanca","v 
alente" 

2790 DATA "cavaleiros","sargent 
08","lanceiros","arqueiros","ar 
queiros","camponeses","campones 
ев" 

2800 DATA "пада", "сатро", "діђао 
","vila","malha metalica","flor 
esta","chapa metalica","montanh 
a" 

2810 DATA 5,4,3,5,3,3,4,3, 
.1,2,2,1,2,3,2,3,2,0,3,1,0 
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190 ВЕМ ІМІСІО 

200 VC=0:DE=0 

340 CLS 

360 DIM T$(8),0$(5),W$ (5) ,M$(5) 
,A$(4) , R$(4) 


380 FOR J=1 TO 5:READ 0$(J),W$( 
J),M$(J) :NEXT J 

390 FOR J=1 TO B8:READ T$(J):NEX 
TJ 

400 FOR J=1 TO 4:READ AS(J) ,RS( 
J):NEXT J 

415 X$-"NnSs" 

420 RETURN 

2760 DATA FOGO, NADA, COVARDE, ALT 
O, ARCO, BAIXO 

2770 DATA MARCHE, ESPADA, DISPOST 
O, STATUS, MACHADO, BRAVO 

2780 DATA RETIRADA, LANCA, VALENT 
E 

2790 DATA CAVALEIROS, SARGENTOS, 
LANCETIROS, LANCEIROS, ARQUEIROS, À 
RQUETROS, CAMPONESES, CAMPONESES 
2800 DATA NADA, CAMPO, GIBÃO, VILA 
+ MALHA METÁLICA, FLORESTA, PLACA 
METALICA, MONTANHA 

2810 DATA 5,4,3,5,3,3,4,3,2,3,3 
,1,2,2,1,2,3,2,3,2,0,3,1,0 


























190 REM INICIO 

200 CL = O:VC = 0:DE = 0 

340 HGR2 : POKE - 16301,0: СО 

SUB 2540 

360 DIM T$(8),0$(5),W$(5) ,M$(5 

) AS (4) , R$(4) 

380 FOR I = 1 TO 5: READ O$(I) 

,W$(I),MS(I): NEXT I 

390 FOR I - 1 TO 8: READ T$(I) 
NEXT I 

400 FOR I = 1 TO 4: READ AS(I) 

,R$(I): NEXT I 

410 US = "45667788" 

415 X$ - "NNSS" 

420 RETURN 

2760 DATA FOGO,NADA, COVARDE, À 

LTO, ARCO, BAIXO, MARCHE, ESPADA, DI 

SPOSTO 

2780 DATA STATUS,MACHADO, BRAV 


O, RETIRADA, LANCA, VALENTE 

2790 DATA CAVALEIROS, SARGENTO 
S,LANCEIROS, LANCEIROS, ARQUEIROS 
+, ARQUETROS, CAMPONESES, CAMPONESE 
s 
2800 


DATA NADA, CAMPO, GIBAO, VI 


LA,MALHA METALICA, FLORESTA, CHAP 
A METALICA, 


MONTANHA 





41 


PROGRAMACAO DEJOGOS 41 


2810 DATA  5,4,3,5,3,3,4,3,2, 
3,3,1,2,2,1,2,3,2,3,2,0,3,1,0 


Os usuários do micro TK-2000 devem 
modificar as seguintes linhas do progra- 
ma destinado ao Apple. 


340 HGR2 : GOSUB 2540 


310 
330 


REM 
COLOR 4,2 
340 PCLS 

360 DIM Т5(8) 
,+AS (4) ¡RS (4) 
380 FOR J=1 TO 5:READ 05(J) ,WS( 
J),M$(J) :NEXT J 

390 FOR J=1 TO B:READ TS(J) :NEX 
TJ 

400 FOR J=1 TO 4:READ A$(J),R$( 
J) :NEXT 

415 XS="NnSs” 

420 RETURN 

2760 DATA FOGO,NADA,COVARDE,ALT 
O,ARCO, BAIXO 

2770 DATA MARCHE, ESPADA, DISPOST 
O, STATUS, MACHADO, BRAVO 

2780 DATA RETIRADA, LANCA, VALENT 
E 

2790 DATA CAVALEIROS, SARGENTOS, 
LANCEIROS, LANCEIROS, ARQUEIROS, A 
RQUEIROS, CAMPONESES, CAMPONESES 
2800 DATA NADA, CAMPO, GIBAO, VILA 
+ MALHA METALICA, FLORESTA, CHAPA 
METALICA, MONTANHA 

2810 DATA 5,4,3,5,3,3,4,3,2,3,3 
.1,2,2,1,2,3,2,3,2,0,3,1,0 


,05(5),М5(5),М5(5) 


Os valores iniciais sào obtidos com 
READ das linhas DATA, juntamente 
com as palavras equivalentes aos valo- 
res numéricos colocados na matriz. As 
palavras seráo usadas na janela de tex- 
to para que a batalha se desenrole de 
maneira clara para o jogador. 


DÉ AS ORDENS 


O jogo consiste basicamente em dar 
ordens às unidades — sem isto nào ha- 
verá combate e, conseqüentemente, vi- 
tória ou derrota. 

Existem quatro ordens básicas no jo- 
go Capa e Espada: “Fogo”, “Alto”, 
“Marche” e “Status”. A ordem de ati- 
rar se aplica somente aos arqueiros, que 
obedecerão mesmo que não haja unida- 
des inimigas nas redondezas. 

Dar ordens às tropas tem suas des- 
vantagens: quanto mais real quisermos 
que seja um jogo de guerra, mais com- 
plicadas serão essas ordens. Inversamen- 





te, quanto mais simples for o jogo, mais 
fácil será o processo de comando. As- 
sim, um jogo muito realista será mais di- 
fícil de jogar; e, se quisermos produzir 
um jogo fácil de jogar, teremos que sa- 
crificar os detalhes. Depois de progra- 
mar alguns jogos desse tipo, você será 
capaz de criar programas mais com- 
plexos. 


ROTINA DE COMANDO 


A rotina de comando de Capa e Es- 
pada seleciona as unidades de cada jo- 
gador, uma a uma, para que estes pos- 
sam dar as ordens. A unidade em ques- 
táo tem sua cor modificada no mapa 
(em alguns computadores a mudança é 
sutil). Uma mensagem solicitando as no- 
vas ordens para essa unidade (indicada 
por seu número) é mostrada na janela 
de texto. Se o jogador não quiser alte- 
rar as ordens, basta pressionar a tecla 
N. Se S for pressionada, será mostrado 
um menu com as ordens possíveis. 

Caso seja selecionada a ordem de ati- 
rar (FOGO) e a unidade não seja cons- 
tituída de arqueiros, uma nova ordem 
será escolhida. O comando ALTO faz 
a unidade permanecer onde está e MAR- 
CHE exige a definição da direção, indi- 
cada pelas iniciais de norte, sul, leste e 
oeste. O programa não faz nenhum tes- 
te para verificar se a direção é válida; 
portanto, preste atenção ao mapa. 


COMO SELECIONAR UMA UNIDADE 


Quando chega a vez do jogador, a 
primeira unidade é destacada por meio 
da mudanga de cor; isso se repete com 
cada uma das outras sete unidades. O 
símbolo que muda de cor é a unidade 
que o jogador deve considerar: as or- 
dens devem ou náo ser modificadas? 
Quando a unidade é destacada, uma 
mensagem surge na janela de texto, 
mostrando a última ordem dada. 


1380 
1390 


REM unidade 
GOSUB 2540 
1400 INK O 
1410 PRINT 
(1,9) ;u$ (1) 
1420 PRINT AT 17, 
ero ";i;" ";t$(1) 
430 PRINT AT 18,0; 
:" 10$ (7T (1,1)) ; 
1440 IF T(i,l 
18,28;15(T(1,2)) 
1450 REM Loop 

1460 PRINT AT 19,0; 


FLASH 1;AT T(1,8),T 


Unidade num 





Ultima orde 





THEN PRINT AT 


"Deseja muda 















ordens (S/N)?" 


1465 LET y-0: LET y$-INKEYS 
1466 IF y$-"" THEN ^0TO 1465 
1470 FOR k=1 TO 4 


1475 
1480 
1490 
1500 


PSU 


1380 REM UNIDADE 

1390 GOSUB 2540 

1410 LOCATE T(I,9),T(I,8):PRINT 
CHR$(U(I)*48); 

2420 „LOCATE 9» 18: PRINT "UNIDADE 
;":";TS$ (0) 

1430 LOCATE 0; 19:PRINT "ULTIMA 
ORDEM:";OS$ (T(I,1)) ; 

1440 IF T(I,1)73 THEN PRINT I$( 
T(1,2)) 

1460 LOCATE 0,20:PRINT "QUER MU 
DAR AS ORDENS (S/N)?" 

1465 YW=0:YS=INKEYS 

1466 IF Y$-"" THEN 1465 

1470 YW-INSTR(1,X$,Y$) 

1490 IF YW-0 THEN 1460 

1500 RETURN 


[é] 


1380 
1390 
1410 


IF x$(k)=yS THEN LET y=k 
NEXT k 

IF y=0 THEN GOTO 1450 
RETURN 








REM UNIDADE 
GOSUB 2540 
X * T(1,9):Y = T(I,8):N = 





VAL ( MIDS (US,I - (I5 8) * 8 

‚1)) + (1 > 8) * 5: GOSUB 20000 

1420 VTAB 21: PRINT "UNIDADE М 

UMERO ";I;" ";T$(I) 

1430 PRINT "ULTIMA ORDEM: ";0$ 

(Т(1,1));” ”; 

1440 IF Т(І,1) = 3 THEN PRINT 
MIDS (IS,T(I,2),1): GoTO 1460 

1450 PRINT 

1460 PRINT "DESEJA MUDAR AS OR 

DENS (S/N)?": GOSUB 30000 

1465 YW = GET Y$ 

1470 FOR K = 1 TO 4 

1475 IF MIDS (XS$,K,l) = ҮҘ ТН 

EN YW = K 


1480 NEXT K 

1490 IF YW - 0 THEN 1450 

1500 RETURN 

20000 X = Xx * 2 -— 2:N = N * 2: 
FOR Q = 0 TO 1:X = X +W:N = N 
+W: FOR V = 0 TO 7 

20010 POKE T * (Y - 8 * (Y 5» 7 
) - 6 w (Y > 15)) * 128 + 40 * 
(57) * 40* (515) *X* 1 
024 * V, PEEK (EE * N * 8 * V) 
- 128 

20020 NEXT V,W: RETURN 


(5) 


Faça a seguinte modificação no pro- 
grama do Apple: 


1460 PRINT 
DENS (S/N)?" 


"DESEJA MUDAR AS OR 









1380 REM UNIDADE 

1390 GOSUB 2540 

1400 COLOR 4 

1410 DRAW"BM"-*STRS$(T(I,9)*8)*", 
"+STRS (T(1,8)*8) :UU=VAL (MIDS (US 
,1,1)):AS=UCS (UU) :GOSUB 3030 
1420 DRAW"BMO,144":A$-"UNIDADE" 
*SR$(I)*" "*TS(I)*" ":608 
UB 3190 

1430 DRAW"BMO,152":AS-"ORDENS S 
AO PARA "*0$(T(I,1))*" ":GOSU 
B 3190 

1440 IF T(I,1)-3 THEN DRAW "BMl 
60,152" :AS$-MIDS(IS,T(I,2),1):G0 
SUB 3190 

1450 REM 

1460 DRAW"BMO, 160" :AS="DESEJA M 
UDAR AS ORDENS (S/N)”:GOSUB 319 
0 
1465 
1466 
1470 
1490 


Y-0:Y$-INKEYS 

IF Y$-"" THEN 1465 
Y=INSTR(1,XS5,YS) 

IF Y-0 THEN 1450 

1500 RETURN 

3000 X9-PEEK (200) : Y9-PEEK (202) : 
LINE (X9, Y9) - (X9*7,Y9*7) , PRESET, 


BF 

3010 POKE 200,X9:POKE 202,Y9:DR 
AW AS 

3020 RETURN 

3030 X9-PEEK (200) : Y9-PEEK (202) : 
C9«PEEK(178):COLOR 2:LINE(X9,Y9 
)-(X9*7,Y9*7) , PSET, BF 

3040 POKE 178,C9:GOTO 3010 

3050 REM DADOS PARA LERAS E DIG 
ITOS 

3060 DATA BR4,BDD5RU3NR2U2ERFND 
5BRA4BU, D6R3EUHEURBRS5 , NR5D6R5BR3 
BU6 , NR3D6R3EU4BUBR4 , NR5D3NR3D3R 
5BR3BU6, NR5D3NR3D3BRBBUÓ , NR5D6R 
5U2BU4BR3 

3070 DATA ND6D3R5D3U6BR3,R5L2D6 
L3R5BR3BUÓ, BDSRFREUSL2BR6 , ND6D3 
R3FD2BU4U2BR4 , D6R5BR3BUÓ , ND6DR5 
NLSUBR3, ND6DR2D3R3D2U6DR 

3080 DATA D6R5U6NLSBR3,D6UJ3RS5UJ3 
NL5BR3,D6UR3FRBU2U4NLSBR3, D6U2R 
3FDUBU2NL2U3NL4BR4 , NR5D3R5D3NL5 
BU6BR3,R5L2ND6BR5 , DORSUGBR3 
3090 DATA D4RFDRUEU4BR4 , DGUR5DU 
6BR3,D2RFGND2ERFND2HEU2BR4 , D2RF 
D3RU3EU2BR4 , RAD2GLGD2R4BUGBR 3 
3100 DATA BR3LGD4FREU4BR4BU, BR2 
DNL2D5L2R5BUGBR3 , BDRERFDGL2D3R4 
BUSBR3, BDRERFDGFDGLHLBUSBRB8 , DAR 
5UD3BU6BR3,NR5D2R3FD2GLHLBU5BR8 
+ BDBRSLHLGD2NR2D2FREUBU4BR4 
3110 DATA R5D2LGLGD2BR7BU6,BR3L 
GDFGDFREUHEUBUBR4 , BR3LGDFR2D2GL 
HLBU2BR4U2BUBR4 

3120 REM MATRIZ DE CARACTERES 
3130 DIM LES(26) 

3140 FOR K9-0 TO 26:READ LES(K9 
):NEXT 

3150 FOR K9=0 TO 9:READ NUS(K9) 
¿NEXT 

3170 RETURN 

3180 REM ROTINA PARA IMPRIMIR A 
$ 


3190 FOR K9=1 TO LEN(AS) 
3200 BS=MIDS(AS,K9,1) 
3210 IF B$>="0" AND B$<="9" THE 
N DRAW NUS (VAL (B$)) :GOTO 3240 
3220 IF B$-" " THEN N9-0 ELSE N 
9-ASC(B$)-64 

3230 DRAW LE$ (N9) 

3240 NEXT 

3250 RETURN 


As ordens para a unidade destacada 
são mostradas na janela de texto. O jo- 
gador é indagado, então, sobre se dese- 
ja mudar as ordens. 

O micro TRS-Color possui linhas 
adicionais (3000 a 3250) destinadas a de- 
senhar as letras e os números na tela de 
alta resolução. 


А АНТЕ ОЕ СОМАМОАН 


Esta rotina mostra um menu com as 
ordens possíveis: 


1900 
1910 
1920 


REM acao 
GOSUB 2540 
PRINT AT 18,0;"Opcoes :" 


1930 FOR 3-1 TO 4 

1940 PRINT AT 17*),8;:0$ (3,1) 
"108(3) 

1950 NEXT j 


1960 REM loop 

1962 LET a=0 

1965 LET f$="FfAaMmSs” 
1970 LET g$=INKEY$: IF 9$= 
EN GOTO 1970 

1975 FOR k-1 TO 8 

1980 IF f$(k)=g$ THEN LET a=IN 
T ((k*1)/2) 

1985 NEXT k 

1990 IF a<=0 THEN GOTO 1960 
2000 IF 1<>6 AND 1<>5 AND a=1 T 
HEN GOSUB 2540: PRINT AT 18,8; 
"Nao ha arcos”: GOSUB 2410: GOT 
o 1910 

2010 IF a-4 THEN GOSUB 2440: R 
ETURN 
2020 
2030 
2040 


PSU 


1900 
1910 
1920 


^^ TH 


LET T(1,1)=a 
IF a-3 THEN GOSUB 2050 
RETURN 


REM ACAO 
GOSUB 2540 
LOCATE 0,19:PRINT "OPÇÕES: 


1930 FOR J=1 TO 4 

1940 LOCATE 8,18+J:PRINT LEFTS( 
0$,2);"-":0$(J) 

1950 NEXT J 

1960 A-0 

1965 FS="FHMS” 

1970 GS-INKEYS:IF G$-"" THEN 19 
70 


1980 A=INSTR(1,FS,GS) 


1990 IF A<=0 THEN 1960 (3,1):" - ";0S(J);: IF J< 4 T [d] 
2000 IF I<>6 AND I<>5 AND A-1 T HEN PRINT " " 
HEN GOSUB 2540:LOCATE 8,19:PRIN 1950 NEXT J: GOSUB 30000 


T "SEM ARCOS":GOSUB 2410:GOTO 1 1960 FS - "FFAAMMSS" :fcacó 2000: 
910 1970 GET G$ Modificações para o TK-2000: 
2010 IF A-4 THEN GOSUB 2440:RET 1973 А = 0 1950 NEXT J 

VRM 1075 FORO I To 2000 IFI< >6ANDIX< >5 


2020 T(1,1)=A 1980 IF MIDS (FS,K,1) * G$ TH ANDA = 1 THEN GOSUB 2540: PRI 


2030 IF THEN GOSUB 2050 EN A = INT ((K + 1) / 2) NT "NAO HA ARCOS": GOSUB 2410: 


2040 RETURN 1985 NEXT K ^ 
1990 ІҒ А < = 0 THEN 1970 0070-1930 


2000 ІРІ < > GANDI< >5 
[é] AND À = 1 THEN GOSUB 2540: PRI 
NT "NAO HA ARCOS”: GOSUB 30000: 
1900 REM ACAO GOSUB 2410: GOTO 1910 REM SELECIONA ACAO 
1910 GOSUB 2540 2010 IF A = 4 THEN GOSUB 2440 GOSUB 2540 
1920 VTAB 21: PRINT "OPCOES: " : RETURN DRAW"BM0,152":A$-"OPCOES 
; 2020 T(I,1) = À :GOSUB 3190 
1930 FOR J = 1 TO 4 2030 IF A= 3 THEN GOSUB 2050 FOR J=1 TO 4 
1940 HTAB 10: PRINT LEFT$ (0$ 2040 RETURN DRAW"BM104,"*STR$ (144*J*8) 











:ASTLEFT$(0$(J),1)*" "*0S(J):G 
OSUB 3190 

1950 NEXT J 

1960 REM 

1962 A-0 

1965 F$-"FAMS" 

1970 GS-INKEYS:IG G$-"" THEN 19 
70 

1980 A=INSTR(1,F$,G$) 

1990 IF A<=0 THEN 1960 

2000 IF I<>6 AND I<>5 AND A=1 T 


HEN GOSUB 2540:DRAW"BM64,152":A 
$-"NAO НА ARCOS":GOSUB 3190:GOS 
UB 2410:GOTO 1910 

2010 IF A-4 THEN GOSUB 2440:RET 
URN 
2020 
2030 
2040 


T(1,1)=A 
IF A=3 THEN GOSUB 2050 
RETURN 


As linhas 1920 a 1950 mostram as op- 
ções na tela. As linhas 1965 a 1985 ob- 
têm a resposta do teclado e colocam o 
número equivalente à ordem seleciona- 
da na variável A: O é “fogo”, 1 k *al- 
to”, 2 é “marche” e 3 é “statu 

Á ш de atirar só será чаа, рог 
meio de uma rotina do próximo artigo 
da série. As opções de marchar e de sta- 
tus serão dadas pelas próximas rotinas. 
A ordem “ALTO” não precisa de uma 
rotina especial, já que nada acontece 
com a unidade. O elemento da matriz 
da tropa que indica a direção em que se 
movimentava a unidade não deve ser 
modificado porque é utilizado na roti- 
na de combate. 

A linha 2020 coloca o valor da variá- 
vel A na matriz da tropa; o número da 
ordem corresponde ao primeiro elemen- 
to da matriz. 


lA NOVA DIREC. 


Se o jogador ordenar a uma unidade 
que se movimente, o programa solicita- 
rá uma direção. Esta rotina cuida das 








2050 REM Direcao 
2055 GOSUB 2540 
2060 PRINT AT 17, 
NSLO) ?" 
2065 LET 
2070 REM 
2080 LET g$-INKEYS: 
EN GOTO 2080 

2090 IF CODE (9$)>90 THEN 
g$=CHR$ (CODE (9$)-32) 


0;"Para onde ( 


9-0 
loop 
IF g$-"" TH 


LET 


2095 FOR k=1 TO 4 

2100 ІҒ 15(К)-95 THEN LET g=k 
2105 NEXT k 

2110 IF 9=0 THEN GOTO 2070 
2120 LET T(1,2)=9 


2130 RETURN 
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2050 REM DIRECAO 

2055 GOSUB 2540 

2060 LOCATE 0,18:PRINT "PARA ON 
DE (NSLO)?" 


2065 G-0 

2070 REM 

2075 REM 

2080 GS-INKEYS:IF G$="" THEN 20 
80 

2100 G-INSTR(1,I$,G$) 

2110 IF G=0 THEN 2070 

2120 T(I,2)*G 

2130 RETURN 

2050 REM DIRECAO 

2055 GOSUB 2540 

2060 VTAB 21: PRINT "PARA ONDE 
(NSLO)?" 

2065 GOSUB 30000 

2070 G = 0 

2080 GET G$ 

2090 IF ASC (GS) > 90 THEN G$ 
= CHRS ( ASC (G$) - 32) 

2095 FOR K * 1 TO 4 

2100 IF MIDS (IS,K,1) = G$ TH 
EN G= K 

2105 NEXT K 

2110 ЈЕ С = 0 THEN 2070 

2120 Т(1,2) = 6 

2130 RETURN 


Modificações a fazer no programa: 


2065 REM 


2050 REM DIRECAO 
2055 GOSUB 2540 
2060 DRAW"BMO, 144” 
IRECAO 
90 
2065 
2070 
2080 
80 
2100 
2110 
2120 
2130 


:AS="QUAL A D 
N 8 L O ":GOSUB 31 


G=0 
REM 
G$-INKEYS:IF G$-"" THEN 20 


G=INSTR (1,1$,GS) 
IF G<=0 THEN 2070 
T(1,2)=G 

RETURN 


A rotina verifica se a letra teclada pe- 
lo jogador é N, S, L ou O. Se for uma 
delas, a linha 2120 colocará o número 
do movimento equivalente no segundo 
elemento da matriz da tropa. 


Para conferir a situação de uma uni- 
dade, o jogador terá esta rotina. 


2440 REM status 
2450 GOSUB 2540 
2470 PRINT AT 18,0; 
T(1,3)) 

2480 PRINT AT 
”;¡aS(T(1,4)) 
2490 PRINT AT 
1,7) 

2500 PRINT AT 
$(T(1,5)) 

2510 PRINT AT 20,0;"Terreno: "; 
r$(m(T(1,8),T(1,9))*1) 

2520 GOSUB 2410 
2530 RETURN 

2560 PRINT AT 17,0; 
ы Tipo: ";t$(1) 


"Arma: ";w$( 


18,15;"Araadura: 


19,0;"Poder: ";T( 


19,14;"Moral im 


"UNIDADE ";i 


2440 REM STATUS 










































































































































2450 GOSUB 2540 

2460 LOCATE 0,18:PRINT 
";I,"TIPO:";T$(I) 

2470 LOCATE 0,19:PRINT 
WS(T(I,3)) 

2480 LOCATE 15,19:PRINT "ARMADU 
R. AS(T(1,4)) 

2490 LOCATE 0,20:PRINT "PODER:" 
;T(I,7) 

2500 LOCATE 15,20:PRINT “MORAL: 
”;M$(T(I,5)) 

2510 LOCATE 0,20:PRINT "POSICAO 
:" ;R$(M(T (I,B) , T(I,9)) *1) 

2520 GOSUB 2410 

2530 RETURN 


"UNIDADE 


"ARMA:"; 


REM STATUS 

GOSUB 2540 

VTAB 21: PRINT "UNIDADE " 
¡"TIPO: "TS(I) 

PRINT "ARMA: "¡WS(T(I, 


2480 PRINT "ARMADURA: ";AS(T(I 


4));”." 
2490 


2500 


PRINT "PODER: ";T(I,7);". 


PRINT "MORAL: ";M$(T(I.5) 


PRINT "TERRENO: 
I,8),T(I,9)) * 1) 
2520 GOSUB 2410 
2530 RETURN 


Modificações para o TK-2000 


";R$(MCT( 


2545 
0 191 
2546 
T 


2440 REM 


HCOLOR- 0: FOR ER = 


HPLOT 0,ER TO 279,ER: МЕХ 


STATUS 


160 T 


2450 GOSUB 2540 

2460 DRAW"BMO, 144" :A$="UNIDADE” 
+STRS (1)+" TIPO "*T$(I):GOSU 
B 3190 

2470 DRAW"BMO,152":A$-"ARMA 
$(T(I,3)):GOSUB 3190 

2480 DRAW"BM120,152":AS="ARMADU 
RA "*AS(T(I,4)):GOSUB 3190 
2490 DRAW"BMO, 160" :A$="PODER "+ 
SR$(T(I,7)):GOSUB 3190 
2500 DRAW"BM120,160":AS= 
"*M$(T(I,5)):GOSUB 3190 
2510 DRAW"BMO, 168” :AS="TERRENO 
"*R$ (M(T(I,8) , T(I,9)) *1) :GOSUB 
3190 

2520 GOSUB 2410 

2530 RETURN 


"+w 


MORAL 


Todos os elementos pertencentes à 
matriz da tropa (ou as palavras corres- 
pondentes) que se referem à unidade que 
o jogador está querendo conferir são 
mostrados na tela. 








0 EFEITO DAS ORDENS 


Esta rotina informa ao jogador quan- 
do cada unidade obedece às ordens. 


1020 REM cumpre 9 
1030 FOR i-1 TO 16 
1032 IF t(1,1)>3 THEN GOTO 114 


0 

1035 INK O: GOSUB 2540: PRINT A 
T 17,0;"Unidade ";i;" entra em 
acao !" 

1040 LET cl=1: 
cl=2: INK cl 
1050 IF T(i,1)=3 THEN LET b=1: 
GOSUB 1160 

1055 IF T(i,1)=2 THEN GOTO 114 


IF 1>8 THEN LET 


0 

1060 IF T(i,1)=1 THEN ГЕТ sh=i 
: GOSUB 1710: GOTO 1140 

1070 FOR f--1 TO 1 

1080 FOR 9--1 701 

1090 FOR e=1 TO 16 

1100 IF (T(i,8)*f-T(e,8)) AND ( 
T(1,9)+9=T(e,9)) AND T(e,1)<>5 
THEN LET us=i: LET th=e: GOSUB 
1510 
1110 
1120 
1130 
1140 
1150 


nu 


1020 
1030 





NEXT e 
NEXT 9 
NEXT f 
NEXT i 
RETURN 


REM CUMPRE 

FOR 1=1 TO 16 

1032 IF T(1,1)>3 THEN 1140 

1035 GOSUB 2540:LOCATE 0,18:PRI 
NT "UNIDADE";I;"OBEDECE" 

1040 IF T(1,1)>3 THEN 1140 

1050 IF T(1,1)=3 THEN B-I:GOSUB 
1160 

1055 ІР Т(1,1)-2 
1060 IF T(1,1)=1 
B 1710:GOTO 1140 
1070 FOR F=-1 TO 1 

1080 FOR G=-1 TO 1 

1090 FOR E-1 TO 16 

1100 IF (T(I,8)*F-T(E,8)) AND(T 
(1,9)*G-T(E,9)) AND T(E,1)<>5 Т 
HEN US=: H=E:GOSUB 1510 

1110 NEXT E 

1120 NEXT G 

1130 NEXT F 

1140 NEXT 1 

1150 RETURN 


[ф] 


1020 
1030 
1032 
1035 
TA 


THEN 1140 
THEN SH=1:GOSU 





REM CUMPRE 

FOR I = 1 TO 16 

IF T(I,1) > 3 THEN 1140 
GOSUB 2540: VTAB 21: PRIN 
UNIDADE ";1;” OBEDECE”: GO 


SUB 30000 

1040 LET CL = 0: IF 1 > 8 THEN 
CL-5 

1050 IF T(1,1) = 3 THEN B = І: 


GOSUB 1160 

1055 IF T(I,1) = 2 THEN 1140 
1060 IF T(I,1) = 1 THEN SH = I 
: GOSUB 1710: GOTO 1140 

1070 FORF = -1 TO1 

1080 FORG- -1 TO1 

1090 FOR E = 1 TO 16 

1100 IF (T(1,8) + F = T(E,8)) 
AND (T(1,9) + G = T(E,9)) AND T 
(E,1) < > 5 THEN US = І:ТН = Е 
: GOSUB 1510 

1110 NEXT E 

1120 NEXT G 

1130 NEXT F 

1140 NEXT I 

1150 RETURN 


Modificações necessárias: 


1035 GOSUB 2540: 
T "A UNIDADE ";I 


УТАВ 21: 
OBEDECE" 


PRIN 








1020 REM CUMPRE 

1030 FOR 1-1 TO 16 

1032 ІҒ Т(1,1)>3 ТНЕМ 1140 

1235 COLOR 4:GOSUB 2540:DRAW "B 
М0, 144" : А$="ОМІРА”Е" +8ТВҘ (1) +"Е 
NTRA EM ACAO !":GOSUB 3190 

1040 CL=3:IF I»8 THEN CL-4:COLO 
R CL 

1050 IF T(1,1)=3 THEN B=1:GOSUB 
1160 

1055 IF T(1,1)=2 THEN 1140 

1060 IF T(1,1)=1 THEN SH=I:GOSU 
B 1710:GOTO 1140 

1070 FOR F=-1 TO 1 

1080 FOR G=-1 TO 1 

1090 FOR E-1 TO 16 

1100 IF (T(I,8)*F-T(E,8)) AND ( 
T(I,9)*G-T(E,9)) AND T(E,1)<>5 
THEN US-1:TH-E:GOSUB 1510 

1110 NEXT E,G,F 

1140 NEXT I 

1150 RETURN 


O funcionamento dessa rotina é par- 
ticularmente simples. Ela toma cada 
uma das unidades e executa as ordens. 
Só haverá combate se uma das unida- 
des se mover (a que se moveu por últi- 
mo é considerada atacante). Quando 
uma ordem de “alto”” é detectada, tu- 
do permanece como está, passando-se à 
próxima opção. Quando ordens de ““fo- 
go” são encontradas, a rotina de tiro é 
chamada. Se as ordens forem de ““mar- 
che”, será chamada a rotina MOVE. 

Após a realização de um movimen- 
to, a rotina verifica as posições adjacen- 
tes à nova localização da unidade em 


busca de tropas inimigas (linhas 1070 a 
1150). Se alguma delas for encontrada, 
será chamada a rotina de combate, que 
apresentaremos no próximo artigo. 


A VEZ DO COMPUTADOR 


Por enquanto, o computador dará 
ordens ao acaso. Na última parte desta 
série, veremos como transformá-lo em 
um adversário inteligente. A rotina se- 
guinte limita-se a tornar o programa 
possível de ser jogado. 


2140 
2150 
2160 
2170 
THEN 
2180 
2)=1 
2190 


nu 


2140 
2150 
2160 
2170 
THEN 2160 

2180 IF T(E,2)*3 THEN IF FN R(2 
)=1 THEN T(E,2)=FN R(4) 

2190 RETURN 


(41%) 


2140 ВЕМ ІМІМІСО 


REM inimigo 

LET T(e,2)*3 

LET T(e,1)=FN r(3) 

IF T(e,1)=1 AND T(e,3)<>2 
20Т0 2160 

IF T(e,1)=3 THEN IF FN r( 
THEN LET T(e,2)*FN r(4) 
RETURN 





REM INIMIGO 

T(E,2)=3 

T(E,1)=FN R(3) 

IF T(E,1)=1 AND T(E,3)<>2 





2150 T(E,2) = 3 

2160 T(E,1) = FN R(3) 

2170 IF T(E,1) = 1 AND T(E,3) 
< > 2 THEN 2160 

2180 IF T(E,1) = 3 THEN IF F 
N R(2) * 1 THEN T(E,2) = EN R( 
4) 

2190 RETURN 

2140 REM INIMIGO 

2150 T(E,2)=3 

2160 T(E,1)=RND(3) 

2170 1F T(E,1)=1 AND T(E,3)<>2 
THEN 2160 

2180 IF T(E,1)=3 AND RND(2)=1 T 


НЕМ T(E,2)=RND(4) 
2190 RETURN 


А rotina gera um número aleatório 
na linha 2160 que decide o tipo de ação 
das unidades do computador na joga- 
da. Se o computador decidir mover al- 
guma unidade, haverá uma tendência ao 
movimento em direção sul (linha 2150). 
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UM AMPLIADOR 


GRÁFICO 


O programa deste artigo pode reduzir 
um desenho a proporções diminutas 
ou expandi-lo em escala astronómica. 
Utilize-o como jogo ou para 

realizar desenhos muito detalhados. 


O programa que acompanha este ar- 
tigo é muito mais divertido do que os 
programas aplicativos habituais. De fa- 
to, ele pode ser usado, seja como jogo, 
seja como aplicacáo. 

Ele permite desenhar e, em seguida, 
ampliar ou reduzir, até um nível micros- 
cópico, partes de uma figura para ob- 
ter maiores detalhes. É possível, além 
disso, mudar a escala a qualquer mo- 
mento, usando ampliagóes de milhares 
de vezes ou até mesmo de centenas de 
milhares. Assim, uma enorme quantida- 
de de detalhes que seriam imperceptíveis 
a olho nu numa figura de proporções re- 
duzidas aparece de modo bem claro 
quando ela é submetida a uma amplia- 
ção por meio de um zoom. 

Imagine-se com um poderoso micros- 
cópio, penetrando cada vez mais em di- 
reção à estrutura da imagem. Os deta- 


lhes desta aparecerão à medida que a 
ampliação for aumentando e, inversa- 
mente, desaparecerão quando ela sofrer 
uma redução de certa magnitude. 

Para tornar ainda mais claro esse 
processo, podemos considerar o seguin- 
te exemplo: se comecarmos a fotogra- 
far nossa casa e nos afastarmos pouco 
a pouco até uma distáncia de centenas 
de milhares de quilómetros, os objetos 
— primeiro a casa, depois a rua, o bair- 
ro, a cidade, o país e mesmo a Terra — 
desapareceráo gradualmente das ima- 
gens retidas pela cámara. Tais efeitos 
gráficos podem ser conseguidos com o 
programa deste artigo. 

Uma maneira de usar o programa é 
transformá-lo em um jogo para duas 
pessoas. Uma delas faz um desenho que 
esconde, em algum lugar discreto, um 
“tesouro”, de tamanho diminuto. A ou- 
tra deve procurar o tesouro. Essa tare- 
fa pode se revelar surpreendentemente 
difícil. Imaginemos que o jogador co- 
mece sua busca em um quadrado de 10 
cm de lado. Se este for ampliado 5 000 
vezes, o quadrado original se transfor- 
mará em uma área enorme de cerca de 
250 000 m? — espaço suficiente para 
esconder qualquer coisa. 


COMO DESENHAR 
AJUSTE A ESCALA 








Ш COMO AMPLIAR E REDUZIR 
DETALHES ESCONDIDOS 
= DESENHOS DE PRECISÁO 





O programa se presta ainda a aplica- 
ções em diferentes áreas profissionais. 
Desenhos minuciosos, por exemplo, po- 
dem ser produzidos traçando-se os de- 
talhes em uma escala de grandes propor- 
ções e depois reduzindo-se a figura pa- 
ra um tamanho normal. Desenhos téc- 
nicos muito precisos podem ser obtidos 
trabalhando-se em um setor de cada vez. 
O programa também é útil como ele- 
mento de apoio no campo peda- 
gógico. Tomemos como exemplo 
uma ligáo geográfica. A posigáo 
das maiores cidades pode ser 
marcada no mapa em uma esca- 
la muito reduzida. No tamanho 
normal, ficariam só como pon- 
tos residuais e apareceriam em 
detalhe apenas quando se usasse 
um zoom no local adequado. 

O programa oferece também 
a possibilidade de se es- 
crever nomes. Embora 
não permita o uso de le- 
tras normais, é possível 
desenhá-las. Para isso, 
recorra a uma escala 
bem grande e depois re- y 
duza as letras para o ta- 
manho adequado. 








Ampliando este desenho... 


COMO EXECUTAR O PROGRAMA 


Ao ser executado, o programa apre- 
sentará a tela em branco e um pequeno 
cursor no centro dela. Vocé encontrará 
também dois números: o da esquerda in- 
dica a escala da tela atual — 1 para co- 
megar; o da direita mostra o número de 
linhas desenhadas. Esse número é limi- 
tado a um máximo de seiscentos no iní- 
cio do programa, que é controlado pe- 
lo teclado e muito fácil de usar. 

No MSX, no Spectrum e no TRS- 
Color, o cursor é controlado pelas se- 
tas do teclado. Nos outros micros, as te- 
clas são: I, para cima; M, para baixo; 
J, para a esquerda e K, para a direita. 
Pressionando-se simultaneamente essas 
teclas — <SYMBOL-SHIFT> no 
Spectrum, ou <CLEAR> no TRS- 
Color — acelera-se o cursor. 

As outras teclas usadas são L, M, C, 
D, E, S e Z. Veja o que elas fazem: L 
desenha uma linha junto ao cursor; M 
move o cursor sem desenhar (nos micros 
da linha Apple, use ; em vez de M para 
mover o cursor). Pressionar C leva o 
cursor ao centro da tela; D cancela li- 
nhas. O nümero de linhas a ser apaga- 
do será perguntado pelo computador. 
Pressione S para ter acesso a um arqui- 
vo de saída que permita a armazenagem 
de seu desenho em disco ou fita. 

Agora, a parte mais interessante. A 
tecla Z (para zoom) permite a alteragáo 
da escala. É digitada sempre com um 
nümero: 2, por exemplo, dobra a escala 
e 0.5 a reduz ao meio. O desenho é refei- 
to na nova escala e centrado no cursor. 
Assim, você deve deixar o cursor sem- 
pre no meio da área que deseja ampliar. 

Usar 0 como escala nào altera o de- 
senho, enquanto 1 redesenha a figura 
centrada no cursor, reproduzindo-a na 
escala anterior (no Apple, 0 centra o de- 
senho e 1 retorna a imagem para à es- 
cala 1). Um nümero negativo produz 
uma imagem em espelho do desenho. As 
mudanças de escala são cumulativas. 
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você poderá olhar através da vidraça... 


Assim, um aumento de 2 seguido de ou- 
tro de 2 leva a ampliação para 4. 
Note que uma escala muito pequena 
no TRS-Color, como 0.0001, é conver- 
tida para 10E-4, mas aparece na tela co- 
mo 104. Esta é uma limitação da rotina 
que desenha números na tela e não afe- 
ta a maneira com que o desenho é feito. 


10 DEF FN a(x)=(x/256)+128 
20 DEF FN b(x)=(x/256)+85 


30 BORDER 0: INK 7: PAPER 0: 
CLS 

50 LET Insl: LET sc=l: LET 1= 
600 

60 LET £=0: LET x=0: LET y=0: 
LET zoom=1 

70 DIM a(1*1): DIM b(1): DIM 
с(1): DIM d(1) 

80 ГЕТ а(1) =х: ГЕТ Ь(1) =у 

90 LET с(1) =х: LET d(1)*y 


100 LET 1$=INKEYS 

110 IF i$-"1" AND f AND 1>In 
THEN SOUND 0.1,0: PLOT FN a(a 
(1n)) ,FN b(b(1n)): DRAW FN a(c 
(1n)) -PEEK 23677,FN b(d(1n))- 


PEEK 23678: LET 1п=1п+1: ГЕТ а 
(1n)ex: LET b(1n)*y: LET c(1n) 
=x: LET d(1n)-y: LET f-0 

120 IF i$-"c" THEN LET x-0: 
LET y=0: LET с(1п) =х: LET d(In 
үнү. 

130 IF i$-"m" THEN LET a(1n)- 
x: LET b(1n)*y 

140 IF i$-"i" THEN GOSUB 420 
150 IF i$-"o" THEN GOSUB 600 
160 IF i$-"d" THEN GOSUB 710 
170 IF i$-"z" THEN LET lv-0: 
GOSUB 840 


180 LET sp-256: IF CODE INKEYS 
<=41 THEN LET sp=2048 

190 IF INKEY$="8" OR INKEY$="( 
” AND x>-32768+sp THEN LET f= 
1: LET x-x*sp: LET c(In)=c(In) 
*sp 

200 IF INKEYS="5" OR INKEYS="* 
" AND x€32678-sp THEN LET f-- 
1: ТЕТ х=х-вр: ГЕТ с(1п) =с(1п) 


-вр. 
210 IF INKEY$-"7" OR INKEY$-"" 





e verificar que há um livro sobre a mesa! 





" AND y>-22400+8p THEN LET f- 

-1: LET y-y*sp: LET d(1n)-d(1n 

)*sp 

220 IF INKEYS="6" OR INKEY$="K 

” AND y<22400-sp THEN LET f=] 
LET y=y-sp: LET d(1n)*d(1n)- 

sp 

230 GOSUB 250 

240 GOTO 100 

250 PRINT AT 1,2; INVERSE 1;" 

ESCALA:";: LET a$-STR$ sc: IF 

LEN a$>4 THEN LET a$=aS( TO 4 


) 

255 PRINT INVERSE l;a$;AT 1, 
18;" LINHAS:";1n-l 

280 LET bx-*FN a(a(1n)): LET by 
*FN b(b(1n)): LET ex*FN a(c(1n 
)): LET ey*FN b(d(1n)) 

290 PLOT bx,by: PLOT ex,ey 
310 PLOT OVER 1;bx,by: PLOT 
OVER liex,ey 

320 RETURN 

420 CLS 

430 INPUT "NOME DO ARQUIVO ?"; 
f$ 
435 
440 
вс=1 
460 
470 
480 
485 
490 
590 
600 
610 
f$ 
615 
620 
625 
630 
640 
650 
660 


IP f$e"* 
LET 1п=1 


THEN GOTO 430 
LET zoom=1: LET 


LOAD f$ DATA a() 
LOAD f$ DATA b() 
LOAD f$ DATA c() 
LOAD £S DATA d() 
LET Insa(601) 

RETURN 
CLS 

INPUT 





"NOME DO ARQUIVO 


IF f$-"" THEN GOTO 610 
LET lv=1: GOSUB 840 

LET a(601)=In 

SAVE f$ DATA a() 

SAVE f$ DATA b() 

SAVE f$ DATA c() 

SAVE f$ DATA d() 

700 RETURN 

710 INPUT "NUMERO DE LINHAS A 
APAGAR ?"'k 

750 IF k=0 OR In-k<=0 THEN 
GOTO 830 

755 LET 1n-1n-k 
760 LET x-:a(1n): 
780 CLS 

790 LET c(1n)=x: LET d(1n)=y 
800 IF 1n-1 THEN GOTO 830 





LET y-b(1n) 
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810 IF ABS (c(1n-1))432767 AND 
ABS (d(1n-1))«22399 THEN LET 

x=0: LET y=0 

820 LET lv=2: GOSUB 840 

830 RETURN 

840 IF 1n-0 THEN RETURN 

850 IF lv=1 THEN ГЕТ 200ш=1/ 

sc: CLS сото 920 

860 IF 1v-2 THEN LET zoom-l: 

GoTO 920 

870 SOUND .1,10: INPUT "DIGITE 





A^ ESCALA - ZOOM ";zoom 
890 IF zoom=0 THEN GOTO 1020 
910 CLS 


920 FOR u=1 TO ln-1 

930 LET a(u)=(a(u)-x)*zoom: 
LET b(u)= (b(u) -y) *zoom 

940 LET c(u)=(c(u)-x)*zoom: 
LET d(u)*(d(u)-y)*zoom 

950 IF ABS (a(u))<32768 AND 
ABS (b(u))<22400 AND ABS (c(u) = 
)<32768 AND ABS (d(u))<22400 Z 
THEN PLOT FN a(a(u)),FN b(b(u Es 
)): DRAW FN a(c(u))-PEEK 23677 2 
,FN b(d(u))-PEEK 23678 

960 NEXT u 

970 LET a(u)=(a(u)-x)*zoom: 

LET b(u)=(b(u)-y)*zoom 

980 LET c(u)*(c(u)-x) *zoom: 

LET d(u)*(d(u)-v)*zoom 

990 LET c(1n): LET ys-d(1n) 
1000 IF ABS (a(1n))232767 OR AB 
S (b(1n))222399 THEN LET a(ln) 
=x: LET b(1n)=y 

1010 LET sc=sc*zoom 

1030 RETURN 





10 PMODE 4,1:COLOR 0,1:PCLS:SCR 
EEN 1,0:V=247 

20 DIM NUS(10):FOR I=0 TO 10:RE 
AD NUS(I) :NEXT 

30 DEF FN A(X)=(X/256)+128 

40 DEF FN B(X)=(X/256)+96 

50 LN=0:SC=1:L=600 

60 Х-0:Ү-0:200М-1 

70 DIM BX(L) ,BY(L) ,EX(L) ,EY(L) 
80 BX(0)*X:BY (0) *Y 

90 EX(0)=X:EY(0)=Y 

100 IS-INKEYS z 
110 IF IS-"L" AND F AND L>LN TH 2 
EN LINE (FNA (BX (LN) ) , FNB(BY (LN) ) Ë 
) - (FNA (EX (LN) ) , FNB (EY (LN) )) , PSE Ú 
T:LN=LN+1:BX (LN) =X: BY (LN) =Y: EX ( 
LN) =X: EY (LN) =Y:F=0 

120 IF 1$="C" THEN X=0:Y=0:EX(L 
N) *X: EY (LN) =Y 
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130 IF 
LN)=Y 
140 IF 
150 IF 
160 IF 
170 IF 
40 

180 IF PEEK(339)*191 THEN SP-20 
48 ELSE SP=256 

190 IF PEEK(343)=V AND X>-32768 
*SP THEN F X=X-SP:EX (LN) =EX( 
LN) -SP 

200 IF PEEK(344)=V AND X<32768- 
SP THEN F--1:X-X*SP:EX(LN) -EX(L 
N)*SP 

210 IF PEEK(341)=V AND Y>-24576 
+SP THEN F=-1:Y=Y-SP:EY(LN)=EY( 
LN)-SP 

220 IF PEEK(342)=V AND Y<24576- 
SP THEN F=-1:Y=Y+SP:EY(LN)=EYT( 
LN) +SP 

230 GOSUB 250 

240 GOTO 100 

250 SSS*STR$(SC) 

260 DRAW"BMO,183":GOSUB 330 

270 SSS-STRS(LN) : DRAW"BM200,183 
":GOSUB 330 

280 BX=FNA(BX (LN)):BY=FNB (BY (LN 
)) :EX=FNA (EX (LN)) : EY=FNB (EY (LN) 
) 
290 
300 
310 
320 
330 
340 
350 


I$-"M" THEN BX(LN)-X:BY( 
Is="I" 
I$-"O" 
I$="D" 
15-"2" 


GOSUB 420 
GOSUB 600 
GOSUB 710 
THEN LV=0:GOSUB 8 








PSET(BX,BY):PSET (EX,EY) 
FOR D-1 TO 50:NEXT D 

PRESET (BX, BY) : PRESET (EX, EY) 
RETURN 

FOR I-1 TO LEN(SS$) 
DI-ASC(MIDS(SS$,1,1))-48 
IF DI--2 THEN DI-10 

360 IF DI<O OR DI>10 THEN 380 
370 DRAW"C1;XNUS (8) ;C0;BL8”+NUS 
(DI)*"BR2" 

380 NEXT I 

390 RETURN 

400 DATA R6D8L6USBRB,BRÓNDBBR2, 


R6D4L6D4R6BR2BUB , RDANL3D4NL6BR 
2BUB , DARÓD4UBBR2 , NR6DAR6D4L6BEB 
410 DATA D8R6U4LGUA4BRB,R6NDB8BR2 
, R6D8L6UBD4R6U4BR2 , DARGD4UBLÓBR 
B,BR3BDBNRIBRSBUB 


420 CLS 

430 PRINT 6256,"";:LINE INPUT"N 
OME DO ARQUIVO A CARREGAR ?";Е 
5 

440 LN=0:200M=1:SC=1 

450 PCLS:SCREEN 1,0 

460 OPEN"I",$-1,F$ 


470 
480 
490 


INPUT#0-1,NS 

LN=VAL (NS) 

FOR U=0 TO LN-1 

500 INPUT 4-1,BXS,BYS,EXS,EYS 
510 BX(U) =VAL (BXS) : BY (U) =VAL (BY 
$) : EX (U) =VAL (EXS) : EY (U) =VAL (EYS 
) 


520 IF ABS(BX(U))<32768 AND ABS 
(BY (U))<24576 AND ABS (EX (U))<32 
768 AND ABS (EY (U))<24576 THEN L 
INE (FNA(BX(U)) , FNB (BY (U) ) ) - (FN 
A (EX (U) ) , FNB (EY (U) ) ) , PSET 

530 NEXT 

540 INPUT $-1,BX$,BYS,EXS,EYS 
550 BX(U)*VAL (BX$) : BY (U) -VAL (BY 
$) :EX(U) =VAL (EXS) : EY (U) «VAL (EYS 
) 
560 
570 
580 
590 





SCREEN 1,0 
RETURN 

600 CLS 

610 PRINT 8256,"";:LINE INPUT " 
NOME DO ARQUIVO A SALVAR ?";FS 
620 LV=1:GOSUB 840 

630 ОРЕМ "0”,4-1,FS 

640 PRINT4-1,STRS (LN) 

650 FOR U=0 TO LN 

660 PRINT 4-1,STRS(BX(U)),STRS( 
BY (U) ) , STR$ (EX (U) ) , STRS (EY (U) ) 
679 NEXT 

























































680 
690 
700 
v 710 
720 
























730 
740 
750 
760 
770 
780 
790 
800 
810 


e / 820 
830 
840 
850 


860 
0 

870 
880 
À / 
890 
900 
910 
920 
> 930 


940 


950 


960 
970 
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CLOSE $-1 

SCREEN 1,0 

RETURN 

CLS 

PRINT 6256,"QUANTAS LINHAS 


QUER APAGAR "; 


INPUT K 

SCREEN 1,0 

IF К=0 ОВ LN-K<0 THEN 830 
LN=LN-K 

X*BX (LN) : Y*BY (LN) 

PCLS 

EX (LN) =X: EY (LN) =Y 

IF LN=0 THEN 830 

IF ABS(EX(LN-1))<32767 AND 


ABS (EY (LN-1))<24576 THEN X=0:Y= 
0 


LV=2:GOSUB 840 

SCREEN 1,0:RETURN 

IF LN=0 THEN RETURN 

IF LV=1 THEN Z00M=1/SC:PCLS 


:GOTO 920 


IF LV-2 THEN ZOOM-1:GOTO 92 


CLS 

PRINT €256,” DIGITE A ESCAL 
ZOOM *; 

INPUT ZOOM 

IF ZOOM-0 THEN 1020 
PCLS:SCREEN 1,0 

FOR U=0 TO LN-1 

ВХ (0) = (ВХ (0) -Х) *200М:ВҮ (0) = 


(BY (U) -Y) *ZOOM 


EX (U) = (EX (U) -X) *ZOOM: EY (U) - 


(EY (U) -Y) *ZOOM 


IF ABS(BX(U))<32768 AND ABS 


(BY (U))<24576 AND ABS(EX(U))<3 
2768 AND ABS(EY(U))<24576 THEN 
LINE (FNA (BX (U) ) , FNB (BY (U) ) ) - (FN 
À (EX (U) ) , FNB (EY (U) ) ) , PSET 


NEXT 
BX (U) = (BX (U) -X) *ZOMM : BY (U) = 


(BY (U) -Y) *ZOOM 





980 ЕХ (0) = (ЕХ (0) -Х) *200М:ЕҮ (0) = 
(EY (U) -Y) *ZOOM 

990 X=EX (LN) : Y*EY (LN) 

1000 IF ABS(BX(LN))>32767 OR AB 
S(BY(LN))>24576 THEN BX(LN)=X:B 
Y (LN) =Y 

1010 SC=SC*ZOOM 

1020 SCREEN 1,0 

1030 RETURN 












5 ГОМЕ 16384 

10 НСА : НСОГОВ= 3: НОМЕ :0$ = 
CHRS (13) + CHRS (4) 

30 DEF FN A(X) = (X / 256) + 

128 

40 DEF FN B(X) = (X / 256) + 

96 

50 LN = 0:SC = 1:L = 600:LM = 8 

192 

60 X = 0:Y = 0:200M = 1:SP = 25 

6 

70 DIM BX(L),BY(L),EX(L) ,EY(L) 

80 BX(0) = X:BY(0) = Y 

90 EX(0) = X:EY(0) = Y 

95 GOSUB 240 

100 GET IS 

110 IF I$ - "L" AND F AND L > 

LN THEN HPLOT FN A(BX(LN)), F 

N B(BY(LN)) TO FN A(EX(LN)), F 

М B(EY(LN)): UTAB 21:LN = LN + 

1:BX(LN) = X:BY(LN) = Y:EX(LN) 

= X:EY(LN) = Y:F = 0:М1 = 0:М2 

= 0: GOSUB 320 

1 IF I$ = “C” THEN X = 0:Y = 

O:EX(LN) = X:EY(LN) = Y 

130 IF I$ = ”"”;” THEN BX(LN) = 

X:BY(LN) = Y 

140 IF I$ "E" THEN GOSUB 42 

0 


NM 


% 


а 
p 
an 


` 


OD 


QV 
Y 


MM 
iy 


AÑ 








150 IF I$ - "S" THEN GOSUB 60 
0 

160 IF 1$ - "D" THEN GOSUB 71 
0 

170 IF IS = "Z2" THEN LU * 0: G 
OSUB 840 

180 IF I$ = "J" AND X> - 327 
68 THEN F * - 1:X = X - SP:EX( 
LN) * EX(LN) - SP 

190 IF I$ = "K" AND X < 32768 
- SP THEN F = - 1:Х = Х + SP:E 
X(LN) * EX(LN) + SP 

.200 IF I$ = "I" ANDY 5 - 245 
76 + SP THEN F = - 1:Y «Y - 8 


P:EY(LN) = EY(LN) - SP 

210 IF 19 = "M” AND Y < 16128 
THEN F = - 1:Y = Y + SP:EY(LN) 
= EY(LN) + SP 

220 GOSUB 240 

230 GOTO 100 


240 IFM < > 0 THEN POKE M,M 
E: POKE MO,MA 

245 УТАВ 21: НТАВ 1: САМ. - 9 
58: PRINT "ESCALA:";SC,"LINHAS: 
"¡LN 

250 BX = FN A(BX(LN)):BY = FN 


B(BY(LN)):EX = FN A(EX(LN)):E 


Y = FN B(EY(LN)) Қ 

260 LX = INT (EY / 64):CX * I 
NT (EY / 8) - (8* INT (EY / 6 
4)):TX - EY - (8 * INT (EY / 8 


) 

270 M = LM + (LX * 40) * (CX * 
128) + (TX * 1024) 

280 M = M * ( INT (EX / 7)) 
290 LX = INT (BY / 64):CX = I 
NT (BY / 8) - (8* INT (BY / 6 
4)):TX - BY - (8 * INT (BY / 8 
) 


) 
300 MO = LM * (LX * 40) * (CX * 
128) * (TX * 1024) 





310 MO - MO * ( INT (BX / 7)) 
320 IF M « 2» Ml THEN Ml - M:M 
Е = PEEK (М) 

330 ІР МО < > М2 ТНЕМ М2 = MO 
:MA = РЕЕК (М0) 

340 HPLOT EX,EY: HPLOT BX,BY 
350 RETURN 

420 TEXT : HOME 

430 INPUT "NOME DO ARQUIVO A S 
ER LIDO:";F$ 

440 LN = 0:Z00M = 1:SC = 1 

450 HGR 

460 PRINT D$;"OPEN ";F$ 

470 PRINT DS;"READ ";FS 

480 INPUT LN 

490 FOR U = 0 TO LN - 1 

500 INPUT BX(U),BY(U),EX(U),EY 
(0) 

520 IF ABS (BX(U)) < 32768 АМ 


D ABS (BY(U)) € 24576 AND ABS 
(EX(U)) < 32768 AND ABS (EY(U 
)) < 24576 THEN HPLOT FN A(BX 
(U)), FN B(BY(U)) TO FN A(EX(U 
)), FN B(EY(U)) 

530 NEXT 

540 INPUT BX(U),BY(U) , EX(U) , EY 
(и) 
560 
570 
590 
600 


X = EX(LN):Y = EY(LN) 
PRINT D$;"CLOSE" 
RETURN 


TEXT : HOME 








610 INPUT "NOME DO ARQUIVO À S 
ER GRAVADO:";F$ 

620 LV = 1: GOSUB 840 

630 PRINT D$;"OPEN ";F$ 

635 PRINT D$;"WRITE ";F$ 

640 PRINT LN 

650 FOR U - 0 TO LN 

660 PRINT BX(U): PRINT BY(U): 
PRINT EX(U): PRINT EY(U) 

670 NEXT 

680 PRINT D$;"CLOSE" 

700 RETURN 

710 TEXT : HOME 

720 INPUT "QUANTAS LINHAS QUER 
APAGAR? ";K 

750 IF K = 0 OR LN - K < 0 THE 
N 830 

760 LN = LN - K 

770 X = BX(LN):Y = BY(LN) 

780 HGR 

790 EX(LN) = X:EY(LN) = Y 

800 IF LN = O THEN 830 

810 IF ABS (EX(LN - 1)) < 327 
67 AND ABS (EY(LN - 1)) < 2457 
6 THEN X = 0:Y = 0 


820 LV = 2: GOSUB 840 

830 RETURN 

840 IF LN = O THEN RETURN 
850 IF LV = 1 THEN Z00M * 1 / 
SC: GOTO 910 

860 IF LV = 2 THEN ZOOM = 1: G 
ото 910 

870 УТАВ 23 

880 INPUT "ESCALA DO ZOOM ? "; 
ZOOM 

900 IF ZOOM = 1 THEN LV = 1: G 
ото 850 

905 IF ZOOM = 0 THEN ZOOM = 1 
910 HGR 

920 FOR U - 0 TO LN - 1 

930 BX(U) - (BX(U) - X) * ZOOM: 
BY(U) = (BY(U) - Y) * ZOOM 

940 EX(U) = (EX(U) - X) * ZOOM: 
EY(U) = (EY(U) - Y) * ZOOM 

950 IF ABS (BX(U)) < 32768 AN 


D ABS (BY(U)) < 24576 AND ABS 
(EX(U)) < 32768 AND ABS (EY(U 
)) < 24576 THEN HPLOT ҒМ А(ВХ 
(U)), FN B(BY(U)) TO FN A(EX(U 
)), FN B(EY(U)) 

960 NEXT 

970 BX(U) = (BX(U) - X) * ZOOM: 
BY(U) = (BY(U) - Y) * ZOOM 

980 EX(U) = (EX(U) - X) * ZOOM: 
EY(U) * (EY(U) - Y) * ZOOM 

990 X = EX(LN):Y * EY(LN) 

1000 IF ABS (BX(LN)) > 32767 
OR ABS (BY(LN)) > 24576 THEN B 
X(LN) = X:BY(LN) = Y 

1010 SC = SC * ZOOM 

1030 RETURN 


nu 


5 MAXFILES-2:CLEAR 2000 

10 OPEN "GRP:" FOR OUTPUT AS 41 
20 DEFFNA(X)=(X/256)+128 

30 DEFFNB(X)=(X/256)+96 

40 LN=0:SC=1:L=600:SP=256 

80 Х-0:Ү-0:200М-1 

60 DIM BX(L),BY(L) , EX(L) , EY(L) 
70 BX(0)=X:BY(0)=Y 








80 EX(0)=X:BY(0)=Y 

90 GOSUB 1200 

100 IS-INKEYS 

110 IF I$="L” AND F AND L>LN TH 
EN LINE (FNA(BX(LN)) , FNB (BY (LN) 
) ) - (FNA (EX (LN) ) , FNB (EY (LN) ) ) ,15 
¿LN=LN+1 : BX (LN) =X: BY (LN) =Y : EX (L 
N)=X: EY (LN) =Y:F=0 
120 IF I$-"C" THEN 
N)*X:EY(LN) *Y 
130 IF IS-"M" 
LN) =Y 
140 IF 
150 IF 
160 IF 
170 IF 
40 


X=0:Y=0:EX(L 


THEN BX(LN) *X:BY( 
THEN GOSUB 420 
THEN GOSUB 600 
THEN GOSUB 710 
THEN LU-0:GOSUB 8 


IS="E" 
Is="s" 
Is="D” 
I$-"2" 































































H 
) 





180 IF I$=CHR$(29) AND X > -327 
68! + SP THEN F=-1:X=X-SP:EX(LN 
)*EX(LN) -SP 

190 IF IS-CHR$(28) AND X < 3276 
8! -SP THEN F=-1:X=X+SP:EX(LN)= 
EX (LN) +SP 

200 IF I$=CHR$(30) AND Y>-24576 
*SP THEN F--1:Y-Y-SP:EY(LN)-EY( 
LN)-SP 
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210 IF I$=CHRS(31) AND Y<24576- 
SP THEN F=-1:Y=Y+SP:EY(LN)=EY(L 
N)*SP 

220 GOSUB 250 

230 GOTO 100 

250 BX=FNA (BX (LN) ) : BY-FNB (BY (LN 
) ) :EX=FNA (EX (LN) ) : EY=FNB (EY (LN) 


) 
260 PUT SPRITE 1, (ВХ-4,ВҮ-4),15 
.1 
270 PUT SPRITE 2,(EX-4,EY-4),15 
280 LINE (10,180)-(255,191),4,B 


F 

290 PRESET (10,180): PRINT41,"ES 

€:*;8C;" LIN:";LN 

300 RETURN 

420 SCREENO 

430 INPUT"NOME DE ARQUIVO A SER 
CARREGADO: ” ; F$ 

440 LN=0:200M=1:SC=1:GOSUB 1200 
450 FS="CAS:"+FS 

460 OPEN FS FOR INPUT AS 42 

470 INPUT 42,LN 

490 FOR U=0 TO LN-1 

500 INPUT $2,BX,BY,EX,EY 

510 BX (U) =BX :BY (U) =BY : EX (U) «ЕХ: 
EY (U) -EY 

520 IF ABS(BX(U))<32768! AND AB 
S(BY(U))<24576 AND ABS (EX(U))<3 
2768! AND ABS(EY(U))<24576 THEN 
LINE (FNA (BX (U) ) , FNB (BY (U) ) ) - (F 
МА (ЕХ (0) ) , FNB (EY (U) ) ) ,15 

530 NEXT 

540 INPUT42, BX,BY,EX,EY 

550 BX (U) =BX:BY (U) =BY : EX (U) “ЕХ: 
EY (U) =EY 

560 X=EX (LN) : Y=EY (LN) 

570 CLOSE 42 

590 RETURN 

600 SCREENO 

610 INPUT”NOME DE ARQUIVO PARA 
GRAVAR: ";FS:FS="CAS:"+FS 

620 LV=1:GOSUB 1200:GOSUB 840 
630 OPEN FS FOR OUTPUT AS 42 
640 PRINT42,LN 

650 FOR U=0 TO LN 

660 PRINT42,BX(U) , BY(U) ,EX(U) ,E 
Y(U) 

670 NEXT 
680 CLOSE # 
700 RETURN 
710 SCREENO 
720 INPUT"QUER APAGAR QUANTAS L 
INHAS" ; 
730 GOSUB 1200 

750 IF K-0 OR LN-K«0 THEN 820 
760 LN-LN-K 

770 X=BX(LN) :Y=BY (LN! 

790 EX(LN)=X:EY (LN) =Y 

800 IF LN=0 THEN 830 

810 IF ABS(EX(LN-1))432767 AND 

ABS (EY (LN-1))<24576 THEN X=0:Y= 

0 




















820 LU-2:GOSUB 840 

830 RETURN 

840 IF LN-0 THEN RETURN 

850 IF LV-1 THEN 200M-1/SC:GOTO 
920 

860 IF LU-2 THEN Z00M-1:GOTO 92 
0 


870 SCREENO 








IDÉIAS PARA O JOGO 

Quando vocé usar o programa apre- 
sentado neste artigo como um jogo, а 
tarefa mais difícil será fazer com que 
o “tesouro” oculto na figura não apa- 
reça como uma mancha muito óbvia 
para quem o está procurando. 

Existem, para isso, vários truques. 
Um deles consiste em executar um de- 
senho bem elaborado e ocultar o tesou- 
ro em um dos detalhes. A dificuldade 
será ainda maior se você desenhar os 
detalhes em diferentes graus de am- 
pliação. Isso obrigará seu oponente a 
também utilizar vários graus de amplia- 
ção na procura do tesouro. 

Outro truque é a inclusão, no dese- 
nho, de pequenos detalhes parecidos 
com o tesouro, quando se utilizam as 
reduções. Seu oponente terá que inves- 
tigar um a um, perdendo precioso tem- 
po com isso. 

A diversão será maior se você ado- 
tar alguma forma de contagem de pon- 
tos. Verifique, por exemplo, o número 
de vezes que o jogador muda a escala 
de aumento, ou o nümero de movimen- 
tacóes que ele precisa fazer até achar 
o tesouro. Outra alternativa é medir o 
tempo transcorrido entre o início e o fim 
da busca. 











880 INPUT "ESCALA DO 200М: 
M 

890 GOSUB 1200 

900 IF ZOOM-0 THEN 1030 
920 FOR U-0 TO LN-1 

930 ВХ (0) = (ВХ (0) -Х) *200М:ВҮ (Ч) = 
(BY (U) -Y) *ZOOM 

940 EX(U)=(EX(U)-X) *200M: EY (U) = 
(EY (U) -Y) *ZOOM 

950 IF ABS(BX(U))<32768! AND AB 
S(BY(U))<24576 AND ABS(EX(U))<3 
2768! AND ABS(EY(U))<24576 THEN 
LINE (FNA (BX (U) ) , FNB (BY (U) )) - (F 
NA (EX (U) ) , FNB (EY (U) )) ,15 

960 NEXT 

970 BX (U) = (ВХ (0) -Х) *200М:ВҮ (0) = 
(BY (U) -Y) *ZOOM 

980 EX(U)* (EX (U) -X) *ZOOM: EY (U) 
(EY (U) -Y) *ZOOM 

990 X=EX (LN) :Y=EY (LN) 

1000 IF ABS(BX(LN))>32767 OR AB 
S(BY(LN))>24576 THEN BX(LN)=X:B 
Y(LN)=Y 

1010 SC-SC*ZOOM 

1030 RETURN 

1100 DATA 0,0,16,56,16,0,0,0 
1200 COLOR 15,4,4:SCREEN 2,0:RE 
STORE 

1210 FOR I=1 TO 8:READ S:S$-8$4 
CHR$ (S) : NEXT: SPRITES (1) 8$ 

1220 RETURN 


















Willie está agora num morro a beira- 
mar. Mas nào tem tempo de admirar a 
paisagem: se ele perder a calma quando 
as pedras estiverem rolando morro abai- 
xo, ou se tremer com o barulho das co- 
bras, descobrirá tardiamente que está 
em vias de afogar-se. Para criar o cená- 
rio adequado, devemos providenciar vá- 
rios baldes de água do mar. 


A rotina seguinte dá início ao avan- 
ço da maré; logo, é melhor que Willie 
não perca tempo no caminho e retorne 
rapidamente a seu gostoso piquenique. 


10 REM org 58882 

20 REM sea ld bc,57312 
30 REM 1d a, (57353) 

40 REM bit 2,a 

50 REM jr z,spt 

60 REM 1d bc,57320 

70 REM spt 1d hl, (57354) 
80 REM 1d a,15 

90 REM 1d d,32 

REM spu push de 
REM push bc 

REM call print 

REM inc hl 

REM pop bc 

REM pop de 


REM dec d 





























PERIPÉCIAS NO 
REINO DE NETUNO 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM 
REM 
REM 
REM ld 
REM 5r 
REM ld 
REM 1d 


jr nz,spu 
18 а, (57353) 
дес а 
(57353) ,a 
nz,srt 
a,10 
(57353),a 
REM 1d hl, (57354) 
REM ld de,32 

REM sbc hl,de 
REM 1d (57354),hl 
REM srt ret 

290 REM org 58217 
300 REM print * 


Embora parega que temos na tela um 
trecho do mar, há na verdade apenas 
dois caracteres. O primeiro ocupa as oi- 
to posições do endereço 57312 em dian- 
te, e o segundo as oito posições a partir 
do endereço 57320. Você pode achar que 
isso não é água suficiente nem mesmo 
para molhar os pés de nosso herói. Mas, 
quando esses dois caracteres forem im- 
pressos consecutivamente em linhas al- 
ternadas, você construirá rapidamente 
um oceano. 

Como o mar será impresso na tela na 
proporção de um caractere por vez, re- 
correremosárotina print de novo. Assim, 
os parâmetros necessários devem ser 
carregados nos registros corretos. Como 
de costume, o par BC carrega o apon- 
tador do primeiro byte de dados. O acu- 








Depois de viver mil aventuras em terra 
firme, Willie — o infortunado 

herói do jogo Avalanche — tem que se 
defrontar com os perigos de um mar 
agitado. Veja como ele se sai dessa. 





mulador A carrega o código da cor e o 
par HL contém a posição da tela onde 
o dado será impresso. Depois desse lem- 
brete, carregamos o par de registros BC 
com o endereço do byte inicial que for- 
та о primeiro caractere de mar. 

A variável no endereço 57353 é cha- 
mada variável de atraso do mar; é ela 
que controla o movimento das águas. O 
bit 2 é usado como uma baliza para in- 
formar ao processador qual dos dois ca- 
racteres de mar deverá ser impresso na 
última linha. 

O conteúdo do atraso do mar é colo- 
cado no acumulador e a instrução bit 2,a 
analisa esse bit em particular. Se o seu 
valor for 0, a instrução jr z que vem em 
seguida faz o processador saltar para a 
próxima instrução. Mas, se o valor do 
bit 2 é 1, o salto não ocorre e o par BC 
é carregado com o endereço do padrão 
inicial do segundo caractere de mar. 


MAR AGITADO 


O par de registros HL é carregado 
com o conteúdo das posições de memó- 
ria 57354 e 57355. Esses endereços con- 
têm a posição do mar que está sendo im- 
pressa no momento e que foi inicializa- 
da pela rotina da parte sete de Avalan- 
che com a posição do canto inferior es- 
querdo da tela. 

O acumulador A é carregado com o 
número 15 para dar ao mar a tonalida- 
de azul adequada. O registro D, por sua 
vez, é carregado com o número 32; ele 
será usado como contador para somar 
32 colunas através da tela. 

O contador em D deve ser preserva- 
do intacto. Se o processador utilizar o 
registro D na rotina print, ele se perde- 
rá; assim, o par DE é guardado na pi- 
Iha. Os dados para o caractere de mar 
serão usados outras vezes, já que cada 
linha de mar é formada pelo mesmo ca- 
ractere impresso 32 vezes. Dessa forma, 
o par BC é guardado na pilha também. 
A rotina print é chamada e os oito bytes 
do caractere de mar são impressos no lu- 
gar correto da tela. 

O par HL é então incrementado, mo- 
vendo o apontador de tela para a pró- 
xima posição ao longo da linha. Ao 
mesmo tempo, o apontador de dados é 
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п O AVANÇO DA MARÉ W REPETIÇÃO 
EE — IMPRESSÃO DOS CARACTERES DOS CARACTERES 
DO MAR EM LINHAS ALTERNADAS 
п TONALIDADE DO MAR E A ROTINA CHARPR 
w VARIÁVEL DE ATRASO W MAR BRAVIO 
іпісі 190 LEAX -256,X 
id io ip ein 200 Зы 18247 
do durante a rotina print), sendo recu- 220 CAAS Ra 10402 


perado da pilha. O contador de colunas 
é também recuperado da pilha e decre- 
mentado. Se ele nào foi reduzido a ze- 
ro, a instrugáo jr nz retornará ao início 
do lago e o processador imprimirá o ca- 
ractere de mar na posição seguinte da te- 
la ao longo dessa linha. 

Quando o contador em D tiver sido 
reduzido a zero, o processador saltará 
para fora do laço e prosseguirá com a 
próxima instrução. 


MESAS 


O atraso do mar é carregado sobre o 
acumulador, decrementado e armazena- 
do de volta em 57353. Se ele não tiver 
sido reduzido a 0, a instrução jr nz fa- 
rá o processador saltar as instruções res- 
tantes até o final da rotina para a qual 
ele retornará. Se ele tiver sido reduzido 
a zero, o atraso do mar será ajustado pa- 
ra 10. 

O apontador de posigáo do mar é car- 
regado em HL; 32 é carregado em DE 
e subtraído de HL; o resultado é arma- 
zenado de volta no apontador de loca- 
lizagáo do mar em 57354. Assim, na 
próxima vez que a rotina for chamada, 
o mar terá subido uma linha. 


O programa a seguir inicia a expan- 
são da maré. 





10 ORG 19678 

20 SEA LDU 418206 
30 LDA 18246 

40 BITA 42 

50 BEQ SPT 

60 LDU 418222 

70 SPT LDX 18247 


80 LDA 416 

90 SPTI PSHS A,U 
100 JSR CHARPR 
110 PULS U,A 
120 DECA 

130 BNE SPTI 

140 DEC 18246 
150 BNE SRT 

160 LDA 410 

170 STA 18246 


LDX 18247 


Para testar esse programa, você pre- 
cisa carregá-lo no resto de Avalanche e 
executar a seguinte rotina: 


5 POKE &H467F,&H4C:POKE &H4CB80, 
AHF3 

10 EXEC 19426 
20 FOR G=1 TO 
30 EXEC 19678 
40 FOR H=1 TO 
50 GOTO 50 


Quando esta rotina estiver funcio- 
nando, a maré subirá até que a tela es- 
teja completamente cheia de água. Isso 
nunca aconteceria durante o jogo, pois 
Willie teria se afogado antes e o jogo 
voltaria ao início. 


160 
100:NEXT H,G 
































Embora aparentemente tenhamos um 
trecho do mar representado na tela, exis- 
tem na verdade apenas dois caracteres 
importantes na tabela de dados. O pri- 
meiro desses caracteres ocupa os oito en- 
dereços a partir de 18206 e o segundo 
ocupa os oito a partir de 18222. Quan- 
do esses dois caracteres forem impres- 
sos repetidamente em linhas alternadas, 
você terá um oceano. 

Como o mar será impresso na tela do 
microcomputador, segundo um ritmo de 
um caractere de cada vez, a rotina 
CHARPR será usada de novo. Logo, 
seus parâmetros têm de ser carregados 
nos registros corretos. Como sempre, o 
registro U carrega o apontador do pri- 
meiro byte de dados; então, a própria 
tabela de dados atua como pilha do 
usuário. O registro X, por sua vez, car- 


















rega a posição da tela onde o dado será 
impresso. U é então carregado com o 
endereço do primeiro byte que forma o 
primeiro caractere de mar. 

A variável no endereço 18246 é cha- 
mada variável de atraso do mar e con- 
trola o movimento da maré. O bit 2 des- 
sa variável é usado como uma baliza pa- 
ra informar ao processador qual carac- 
tere de mar será usado na linha que es- 
tá sendo impressa. 

O conteúdo do atraso do mar é car- 
regado no acumulador e a instrução BI- 
TA #2 analisa esse bit em particular. Se 
o valor do bit não for 1, a instrução 
BEQ fará o processador pular a próxi- 


ma instrução através do rótulo SPT. 
Mas, se o valor for 1, o salto não ocor- 
rerá e U será carregado com o endereço 
do primeiro byte que forma o segundo 
caractere de mar. 


PRIMEIRO CARACTERE 


O registro X é carregado com o 
conteúdo da posição de memó- 
ria 18247. Esse endereço car- 
rega a posição em que 
o mar está sendo 
impresso no 
momento 
em que 
foi inicia- 
lizada pe- 
la rotina da parte sete de 
Avalanche no canto inferior esquerdo 
da tela. O acumulador A é carregado 
com 16, e será usado como contador pa- 
ra fazer com que dezesseis caracteres de 
mar sejam impressos. 

Esse contador precisa ser preservado 
intacto enquanto o processador execu- 
ta a rotina CHARPR; portanto, guar- 
damos A na pilha do usuário. Os dados 
para o caractere de mar serão usados vá- 
rias vezes, porque cada linha do mar é 
feita do mesmo caractere — assim, o re- 
gistro U também é guardado na pilha. 
A rotina CHARPR é chamada e os oi- 
to bytes do caractere de mar são impres- 
sos no lugar correto da tela. 





VEJA O MAR 


A rotina CHARPR incrementa auto- 
maticamente o registro X, de modo que 
ele esteja pronto para imprimir o pró- 
ximo caractere ao longo da linha. O 
apontador de dados é movido de volta 
ao início dos bytes que formam o carac- 
tere de mar por meio de sua recupera- 
ção da pilha; esse apontador foi incre- 
mentado durante a rotina CHARPR. O 
contador também é recuperado da pilha. 

O contador é então decrementado e, 
se ainda não for zero, a instrução BNE 
saltará para o laço onde o processador 
imprime o caractere de mar na próxima 
posição ao longo da linha atual. 

Quando o contador em A já for ze- 
ro, O processador sairá do laço e execu- 
tará a instrução seguinte. 


МАЯ ВААУІО 


О próximo passo consiste em decre- 
mentar o atraso do mar. Se esse atraso 
nào tiver sido reduzido a zero, a instru- 
ção BNE fará o processador saltar as 
próximas instruções até o final da roti- 
na, para onde ele retornará. 

Se ele tiver sido reduzido a zero, o 
atraso do mar será reajustado com va- 
lor 10. O apontador de posição será en- 
tão carregado no registro X e 256 sub- 
traído dele. O resultado é armazenado 








de volta nos enderecos que guardam es- 
se apontador, ou seja, 18247. Assim, da 
próxima vez que essa rotina for chama- 
da, o mar subirá uma linha. 


777 ын иясы? 


A rotina que vem a seguir inicia a ex- 
pansáo da maré; por isso, é melhor Wil- 
lie andar o mais rápido possível e recu- 
perar o seu lanche. 


10 org 54218 

20 gea ld b,72 

30 1d a,(-5213) 

40 bit 2,a 

50 Jr 2,8рі 

60 ld b,76 

70 spt ld hl, (62407) 
80 1d de,(-5212) 

90 add hl,de 


100 ld a,b 

110 1d bc,32 

120 call 86 

130 1d a,(-5213) 
140 dec а 

150 14 (-5213),а 
160 jr nz,srt 
170 ld a,10 

180 14 (-5213),а 
190 14 Һһ1,(-5212) 
200 14 de,32 

210 sbc hl,de 
220 1d (-5212),hl 
230 srt ret 

240 end 


Embora tenhamos a impressáo de 
que há um trecho do mar na nossa tela, 


na verdade só existem dois padrões di- 
ferentes. O primeiro tem o código 72 na 
tabela de padrões e o segundo é o pa- 
drão de código 76. À primeira vista, a 
quantidade de água não é suficiente nem 
mesmo para molhar os pés de Willie. 
Mas, quando esses dois padrões forem 
impressos consecutivamente em linhas 
alternadas, em pouco tempo teremos, na 
tela, um oceano. 

Como o mesmo padrão de mar será 
impresso 32 vezes na mesma linha, ocu- 
pando-a completamente, usaremos a ro- 
tina 86 da ROM. Essa rotina escreve um 
número na VRAM a partir de um ende- 
reço e um certo número de vezes. 

Neste programa, a rotina 86 da ROM 
será usada para colocar o código de um 
padrão de mar várias vezes na tabela de 
nomes da VRAM,; isso equivale a impri- 
mir o mesmo caractere diversas vezes em 
seqüéncia, já que a tela é um reflexo da 
tabela de nomes. 

Os parâmetros necessários devem ser 
carregados nos registros corretos, antes 
de se chamar a rotina 86. É preciso tam- 



















bém que o acumulador A contenha o có- 
digo do padrão que vai ser impresso. O 
par HL, por sua vez, contém a posição 
da tabela de nomes — ou seja, da tela, 
onde o padrão começará a ser impresso 
eo par de registros BC carrega o núme- 
ro de vezes que ele será impresso. Feito 
o lembrete, continuemos a examinar o 
programa. O código do padrão do pri- 
meiro caractere de mar é colocado no re- 
gistro B. 

A variável no endereco — 5213 é cha- 
mada variável de atraso do mar; é ela 
que controla a subida da maré. O bit 2 
dessa variável é usado como baliza pa- 
ra indicar ao processador qual dos dois 
caracteres de mar deve ser impresso na 
linha atual. 

O conteúdo do atraso do mar é colo- 
cado no acumulador e a instrução bit 
2,а analisa esse bit isoladamente. Se o 
seu valor for 0, a instrução jr z que vem 
em seguida fará o processador saltar a 
próxima instrução. Mas, se o valor do 
bit 2 for 1, o salto não será realizado e 
o registro B será carregado com o códi- 
go 76 do padrão do segundo caractere 
de mar. 


MAR AGIT 


Opar HL é carregado com o endere- 
ço inicial da tabela de nomes da VRAM. 














que está armazenado nas posições 62407 
e 62408. O par DE, por sua vez, é car- 
regado com o valor contido nas posições 
—5212 e —5211; esse número corres- 
ponde à posição na tela do começo da 
linha que está sendo impressa atualmen- 
te e foi inicializado pela rotina da parte 
sete de Avalanche para indicar o canto 
inferior esquerdo da tela. Os conteúdos 
de HL e DE sáo somados em HL, que 
passa a abrigar o enderego correspon- 
dente na tabela de nomes. 

O acumulador A recebe entáo o có- 
digo do padráo que até agora estava em 
B. Ao mesmo tempo, o par BC é carre- 
gado com o número de vezes em que o 
padráo deve ser impresso na tela — ou 
seja, 32, que corresponde ao número de 
colunas na linha. A seguir, é chamada 
a rotina 86 da ROM; nesse momento, 
a linha de mar já estará impressa. 


TEMPO DE SUBIDA 


O atraso do mar é carregado no acu- 
mulador, decrementado e armazenado 
de volta no endereço — 5213, Se o seu 
valor ainda não tiver sido reduzido a ze- 
ro, a instrução jr nz fará com que o pro- 
cessador salte as instruções restantes até 
o final da rotina, para a qual ele re- 
tornará. 


Por outro lado, se ele tiver sido re- 
duzido a zero, o atraso do mar será ajus- 
tado para 10. 

O apontador de posição do mar é car- 
regado em HL e o número 32 é subtraí- 
do dele por meio do par DE; o resulta- 
do é armazenado de volta no apontador 
de posição em — 5212 e — 5211. Assim, 
na próxima vez que a rotina for chama 
da, o mar terá subido uma linha. 

Como você já deve ter notado, 

o atraso do mar controla o tem- 
po que a rotina passará impri- 
mindo a primeira linha; es- 
gotado esse tempo, a roti- 

na é ajustada para subir uma 
linha a cada dez chamadas. 

Depois de jogar algumas vezes, 
talvez você queira reforçar a dose de 
emoção de Avalanche. 

Torne a aventura mais difícil alter- 
nando a variável de atraso. 






















































“COMO AS COISAS CRESCEM 
SUPERFÍCIE E VOLUME 
PROBLEMAS ESTRUTURAIS 
RAZÃO DE CRESCIMENTO 
NÚMEROS DE FIBONACCI 


MATEMÁTICA 








Os computadores têm sido utilizados 
no estudo dos mais diversos aspectos 
da natureza. Veja aqui como 
eles podem nos ajudar a compreender 
o fenômeno do crescimento. 


O emprego de computadores na aná- 
lise das situações relacionadas à nossa 
realidade não se limita às coisas inani- 
madas. Ao contrário, a máquina tem se 
mostrado de grande utilidade no estu- 
do do comportamento dos organismos 
vivos. Ocorre que a matemática está in. 
timamente associada à natureza — nas 
formas mais inesperadas. E, sempre que 
há uma conexão com a matemática, os 
computadores podem ajudar a com- 
preender o que se passa, efetuando cál- 
culos e indicando resultados. 

Neste artigo, examinaremos algumas 
maneiras de se utilizar computadores na 
análise do crescimento dos organismos. 
Todas as formas vivas são capazes, em 
algum estágio do seu desenvolvimento, 
de mudar de tamanho, número ou for- 
ma. Apenas as duas primeiras situações 
serão tratadas aqui, juntamente com ou- 
tros exemplos de inter-relação entre a 
natureza e a matemática. 


COMO AS COISAS CRESCEM 


O crescimento — mudanga de tama- 
nho — envolve a formagáo de novos 
materiais de estrutura. Tanto plantas 
quanto animais obtém a matéria-prima 
necessária para isso do seu meio ambien- 
te. Mas o crescimento geral de um ser 
pode se dar de duas maneiras: pela mul- 
tiplicacáo do nümero de células (por 
meio da divisão celular) ou pelo aumen- 
to do tamanho das células. 


Tendo em vista essa diferença, resta 
saber como medir o crescimento. E me- 
lhor medir o peso, como se faz com os 
bebês, ou a altura, como se faz com as 
crianças maiores? Ou seria o volume a 
medida mais adequada? Ou a superfi- 

















cie do corpo? Náo há uma resposta úni- 
ca para tais questóes, pois seres diferen- 
tes exigem tipos de medida diferentes. 
Porém, sempre é interessante comparar 
medidas diversas quando se estuda o 
crescimento. 

As medidas mais significativas para 
animais sáo as de volume (ou peso) e su- 
perfície corporal. Essas medidas náo au- 
mentam no mesmo ritmo, enquanto o 
animal cresce, o que tem conseqüéncias 
importantes, já que o tamanho e a for- 
ma de um ser estáo muito ligados a seu 
modo de viver. 

Como vimos no artigo da página 434, 
a área é uma medida quadrática e o vo- 
lume, uma medida cúbica — isso expli- 
ca a diferença de velocidade que se re- 
gistra no aumento dessas duas medidas. 
A relação entre ambas poderá ser me- 
lhor compreendida se tomarmos como 
exemplo uma forma regular como um 
cubo. O programa a seguir mostra o que 
acontece com o volume e a área de cu- 
bos que tenham diferentes tamanhos. 
Digite-o e execute-o. 


10 GosuB 180 
20 LET X=45: LET Y=35 
30 LET S=2 

40 GOSUB 140 






































































50 PRINT AT 18,8/5*X/8;8 

60 LET SA-6*(S^2): LET VO=5"3 
: LET AS-STRS (SA/VO): IF LEN 
A$>3 THEN LET A$-AS( TO 3) 
70 PRINT AT 20,8/5*X/8-1; 
PAPER 0; INK 7;A$;":1" 

80 INPUT "TAMANHO DO CUBO (MA 
X 20) 2^";A: IF A<S THEN 
GOSUB 180 


90 LET S=A 
100 IF S<1 OR 8>20 THEN GOTO 
80 


110 LET X-X*8*5*1.545 
120 IF Х%8%5%1,5>255 THEN 
GOSUB 180: LET X=45 
130 GOTO 40 
140 PLOT X,Y 
150 LET D=S*5 
160 DRAW 0,D: DRAW D,0: DRAW D 
/3,D/3: DRAW -D,0: DRAW -D/3,- 
D/3: DRAW 0,-D: DRAW D,0: DRAW 
D/3,D/3: DRAW 0,D: DRAW -D/3,- 
D/3: DRAW 0,-D 
170 RETURN 
180 BORDER 0: PAPER 4: INK O: 
CLS 
190 FOR N=0 TO 8: PRINT AT М,0 
; PAPER 1;" 

": NEXT N 
200 PRINT AT 18,0; INK 1;"LADO 
:";AT 20,0;"A/U:" 
210 PRINT AT 0,3; PAPER 1; INK 
7;"A/V-PROPORCAO AREA: VOLUME” 
220 RETUAN 



























10 GOSUB 180:CLS 

20 x=45:Y=156 

30 8=2 

40 GOSUB 140 

60 SA-6*S*S:VO-S*S*S 

70 PRINT"TAMANHO=";S;TAB(12);"P 
ROP.AREA/VOL*";:PRINT USING"4.4 
4:1" :SA/VO: PRINT 

B0 INPUT"DIGITE O TAMANHO DO CU 
BO (1-20)";A:IF A<S GOSUB 180 
90 S=A 

100 IF AX1 OR S>20 THEN 80 

110 X-X*8*7.5*5 

120 IF X*8*7.5»255 GOSUB 180:Х= 
45 
130 GOTO 40 

140 SCREEN 1,0 

150 DRAW"BM"*STR$(INT(X))*","*S 
TR$ (INT (Y) ) *"S"*STRS$ (INT(S*3))* 
"ClE2NR6U6C4R6G2L6NE2D6R6NUGE2U 
6" 

160 ІР ІМКЕҮ9<>" ” ТНЕМ 160 

170 RETURN 

180 PMODE 3:PCLS2 

190 RETURN 


nu 


10 GOSUB 180:CLS 

20 Х-45:Ү-156 

30 8-2 

40 GOSUB 140 

60 SCREEN0:SA-6*S*S:UO-S*S*S 

70 PRINT"TAMANHO-" ;S; TAB(15) ;"S 
UP/VOL=";:PRINTUSING"4.44:1”;SA 
/VO: PRINT 

80 INPUT"TAMANHO DO CUBO? (1-20 
)";A:IF A<S THEN GOSUB 180 

90 S=A 

100 ТЕ А<1 OR A>20 THEN 80 

110 Х-Х%8%7.5%5 

120 IF X+8*7.5>255 THEN GOSUB 1 
80:Х-45 

130 GOTO 40 

140 SCREEN2 

150 LINE (X,Y)-(X*5*S,Y-5*S),8, 


B 

160 X=X+2*S:Y=Y-2*S:LINE (X,Y)- 
(X*5*8,Y-5*8),8,B 

165 LINE (X,Y)-(X-2*S,Y*2*8),8: 
: LINE (X*5*S,Y)- (X*3*8,Y*2*8) ,8: 
LINE (X*5*S,Y-5*8)- (X*3*S,Y-3*8 
),8:LINE (X,Y-5*8)-(X-2*8,Y-3*8 
),8:Y=156 

170 1F INKEYS="" THEN 170 ELSE 
RETURN 

180 SCREEN2 

190 RETURN 


[st 


10 HOME GOSUB 180 
20 Х = 45:Y = 156 





308 = 2 
40 GOSUB 140 
60 ЗА = 6 *8 *8:0 =8 *8 w 


s 

70 VTAB 2 CALL 
"TAMANHO * 8: PRINT 
UP/VOL = ";SA / VO;":1" 
80 INPUT "TAMANHO DO CUBO (1-2 
0)? ";A: IF À < S THEN GOSUB 1 
80 

908^*A 





- 958: PRINT 
"RAZAO З 





100 IF A € 1 OR S > 20 THEN 80 
1l10X-*X*85*7.5*5 
120 IF X * S * 7.5 » 255 THEN 


GOSUB 180:X = 45 
130 GOTO 40 
140 HPLOT X,Y TO 
o0X*8*5,Y-8 
5 * 8 TO X.Y 
150 U = ABS (U - 1): IF U THEN 
X«*«Xt2*83:yY-25*8:G 
ото 140 

160 HPLOT X,Y TO X - 2 * 8,Y + 
2 * S: HPLOT X * 5 * S,Y TO X 
+ 3 * 8,Y + 2 * 8: HPLOT X + 5 
*8,y- 5 * 8 0 X + 3 w 8,Y — 
3 * 8: HPLOT X,Y- 5 * S TOX - 
2*8, Y-35*8 
170 Y - 156: RETURN 
180 HGR : HCOLOR= 


O programa pede ao usuário que es- 
colha um número para a aresta (a me- 
dida de uma quina á outra) do cubo. Em 
seguida, desenha a figura na tela e mos- 
tra a razáo entre área e volume. Come- 
ce com um cubo pequeno — quatro uni- 
dades de aresta, por exemplo — e vá au- 
mentando o valor fornecido ao compu- 
tador para simular um crescimento. Vo- 
cé verá que, á medida que o cubo se tor- 
na maior, a razáo entre área e volume 
diminui. Em outras palavras, o volume 
aumenta muito mais rapidamente que a 
superfície do corpo. 

Grande parte da listagem está desti- 
nada a formatar a tela e desenhar os cu- 
bos. Assim, vamos nos deter na linha 
60, cujo conteúdo nos interessa de ma- 
neira mais direta. 

S é a aresta do cubo. A área de um 
lado é, portanto, S*S e a superfície do 
cubo todo (ele tem seis lados) é 6*S*S. 
O volume é S ao cubo, ou S*S*S. A ra- 
zão entre as duas medidas corresponde 
ao resultado da divisão da superfície pe- 
lo volume. Por exemplo, quando S é 
igual a 2, a razão é 6*2*2 dividido por 
2*2*2, que dá 3:1. Se dobramos o tama- 
nho da aresta, temos 6*4*4 dividido por 
4*4*4, que dá 1,5:1 — ou seja, a área 
é relativamente menor. 

Como animais nào tém forma de cu- 
bo, é provável que queira adaptar o pro- 
grama para torná-lo mais próximo da 
realidade. Pequenos animais, como os 
camundongos, sáo melhor representa- 
dos por uma esfera, enquanto seres hu- 


X*5*8,YT 
* 5 TO X,Y - 


3: RETURN 





manos lembram mais um conjunto de 
cilindros — um para o tronco e outro 
para cada membro. No primeiro caso, 
precisamos conhecer a superfície e o vo- 
lume da esfera. A superfície é 
4*PI*raio e o volume, 4/3*PI*raio*. Já 
a área de um cilindro é 2*PI*raio*altura 
mais 2*PI*raio? e o volume, PI*raio^* 
altura. 

Seja qual for a forma escolhida, o 
princípio geral é o mesmo e, em todos 
os casos, о volume cresce mais rapida- 
mente que a superfície. 




















































CRESCIME! 





ЕМІ 





Essas relações matemáticas são mui- 
to importantes no Reino Animal, afe- 
tando as atividades e o habitat do ser em 
questão. Tomemos como exemplo o ra- 
to: ele tem um volume pequeno е, por- 
tanto, uma área relativa grande. Isso 
significa que seu corpo irradia calor ra- 
pidamente (dependendo do ambiente em 
que se encontra). O rato consegue 
manter-se aquecido produzindo energia 
pela queima de alimento. Ora, graças à 
velocidade com que perde calor, ele pre- 
cisa ingerir alimentos em quantidade 
equivalente à metade do seu peso. 

Um elefante, em contrapartida, tem 
um volume muito grande em compara- 
ção com sua superfície corpo:al. Por- 
tanto, mantidas as proporções, ele irra- 
dia menos calor que o rato, e sobrevive 
com uma quantidade menor (em relação 
ao seu peso) de alimentos diários. Isso 
explica por que animais grandes se adap- 
tam melhor ao clima frio dos pólos, on- 
de a comida é escassa. 


LIMITE DE TAMANHO 


A relação entre massa e superfície 
ajuda a explicar por que animais e plan- 
tas não crescem além de certo tamanho. 
Dadas as proporções de uma determi- 
nada espécie, há um limite definido pa- 
ra as dimensões que ela pode alcançar. 
Esse limite é imposto pelo peso que os 
ossos do ani podem suportar. 

Quando seu tamanho — isto é, altu- 
ra, comprimento e largura — dobra, o 
peso cresce oito vezes, mas a área de su- 
porte dos ossos cresce apenas quatro ve- 
zes. Se os ossos se desenvolvessem o su- 
ficiente para sustentar o novo , fi- 
cariam desproporcionalmente finos em 
relacáo ao tamanho do animal. Em de- 
terminado ponto do seu crescimento, o 
animal estaria tão desajeitado que não 
conseguiria se mover. 








Volumes e superfícies: gráfico comparativo. 


Se um rato atingisse o tamanho de 
um elefante, mantidas as mesmas pro- 
porções iniciais, suas pernas seriam in- 
capazes de suportá-lo. Isso explica por 
que espécies de tamanhos diversos têm 
proporções tão diferentes. 

O maior animal terrestre — o elefante 
— chega a pesar cerca de 10 toneladas. 
Um dinossauro podia alcançar 80 tone- 
ladas, mas ficava a maior parte do tem- 
po imerso na água. Os animais marinhos 
contam com o suporte da água, o que 
amplia os limites de seu tamanho. Ba- 
leias azuis têm peso superior a 150 to- 
neladas e medem mais de 30 metros de 
comprimento. Naturalmente, não have- 
ria pernas que fossem capazes de susten- 
tá-las fora da água. O limite de seu cres- 
cimento, assim como dos demais а: 
mais marinhos, está mais relacionado à 
perda de calor. 


RAZÃO DE CRESCIMENTO 


O programa a seguir mostra a velo- 
cidade de crescimento de uma planta, do 
plantio à maturidade, quando ela che- 
ga a seu limite de tamanho. 

A planta cresce devagar no início, e 
rapidamente depois. Atingindo seu limi- 
te de tamanho, volta a se desenvolver 
bem devagar, até parar ou, eventual- 
mente, morrer. Digite e execute o se- 
guinte programa: 





10 DIM G(11) 

20 DATA 2,9,22,35,58,92,104, 
112,115,117,118 
30 FOR N-1 TO 11: 
NEXT N 


READ G(N): 





Alteracóes da taxa de crescimento de uma planta. 


40 BORDER 0: PAPER 0: INK 4: 
CLS 

50 LET X-60: LET Y=10 

60 DRAW 80,0 

70 PLOT 30,0: DRAW INK 7;0, 
168 

80 PRINT INK 2;AT 0,1;"ALTUR 
А" 

90 FOR N-0 TO 138 STEP 12 
100 PLOT INK 7;30,N 

110 DRAW INK 7;-5,0 

120 NEXT N 


130 PRINT AT 20,0;"2";AT 17,0; 
"6";AT 14,0;"10";AT 11,0;"14"; 
AT 8,0;"20";AT 5,0;"24" 





140 PLOT 160,0: РВА INK 7;0, 
168 
150 PLOT 160,0: DRAW INK 7;95 


‚0 

160 PRINT AT 0,17; INK 6;"TAXA 
ПЕ” ;АТ 1,15;"CRESCIMENTO" 

170 LET C*1 

180 LET GX-161 

190 LET GY=1 

200 FOR N=1 TO 117 

210 IF G(C) ÓN THEN GOTO 250 
220 PLOT X,Y: DRAW 9,9,PI/2: 
DRAW -9,-9,PI/2 


230 DRAW -9,9,PI/2: DRAW 9,-9, 
PI/2 
240 LET GX=GX+8: LET GY=1: LET 
C=C+1 


250 PLOT Х,Ү 

260 FOR K=0 TO 3 

270 PLOT INK 5;GX,GY*K: 
INK 5;8,0 

280 NEXT K 

290 LET GY-GY*4 

300 LET Y=Y+1 

310 NEXT N 

320 FOR Үз117 ТО 140 
330 PLOT X,Y 


DRAW 





340 NEXT Y 

350 FOR R=1 TO 10 STEP .3 
360 CIRCLE INK 6;X,Y,R 
370 NEXT R 


380 GOTO 380 


20 DATA 2,9,22,35,58,92,104,112 
+115,117,118 

30 FOR N=0 ТО 10:READ G(N):NEXT 
40 PMODE 3:PCLS:SCREEN 1,1 

50 Х-60:Ү-190 

60 LINE (8,23)-(8,192) , PSET:LIN 
E- (80,192) ,PSET 

80 DRAW"BM20,6824C7D2BRUNLUBR2L 
DNRDRBRU2BR2LD2RUS8NLS24BED2BRU 
NLUBRS16RND3RC8” 

90 FOR N=47 ТО 191 STEP 12 


100 LINE (2,N)-(8,N),PSET 

120 NEXT 

140 LINE (158,23)-(158,191),PSE 
T 


150 LINE -(255,191),PSET 

160 DRAW"BM176,6C6S24LD2RUSBNLS 
24BEND2RDLFBRNU2RU2LBR2D2EFU2BR 
S16RND3RS24BRD2BRUNLUBM182 , 24ND 
2RDLFBRU2RDNLDS16BR2U3LR2824BR2 
LDNRDR" 

170 GX=161:GY=190 

190 COLOR 6,7 

200 FOR N=1 TO 117 

210 IF G(C)>N THEN 250 

220 CIRCLE (X,Y-4),15,6,.4,0,.5 
230 CIRCLE (X-16,Y) ,16,6,.4 
1:CIRCLE (X+16,Y),16,6,.4,. 
240 GX=GX+8:GY=190:C=C+1 
250 PSET(X,Y,6) 

260 FOR K=0 TO 3 

270 LINE (GX,GY-K) - (GX*8,GY-K) ,P 
RESET 

280 NEXT 

290 GY-GY-4 

300 Y=Y-1 

310 NEXT 

320 FOR Y=75 TO 58 STEP -1 

330 PSET (X,Y,6) 

340 NEXT:POKE 178,54 

350 FOR R=1 TO 15 

360 CIRCLE (X,Y),R,.8 

370 NEXT 

380 GOTO 380 











ЫШ ЕНШ 








FIBONACCI RATI 





Regra de Fibonacci para um retângulo bem proporcionado. 


20 DATA 2,9,22,35,58,92,104,112 
115,117,118 

30 FOR N=1 TO 10:READ G(N) :NEXT 
40 COLOR 2,15,15:SCREENZ 

50 X*60:Y*190:PI*3.1416 

60 LINE (8,23)-(8,192) :LINE -(8 
0,192) 

90 FOR N=47 TO 191 STEP 12 

100 LINE (2,N)-(8,N) 

120 NEXT 

140 LINE (158,23)-(158,191),8 
150 LINE -(255,191),8 

170 GX=161:GY=190 

200 FOR N=1 TO 117 

210 IF G(C)»N THEN 250 

220 LINE (X,Y) - (X*10,Y-5) : LINE (X 
,Y)7 (X710, Y-5) 

240 GX=GX+8:GY=190:C=C+1 

250 PSET(X,Y) 

260 FOR K=1 TO 3 

270 LINE(GX,GY-K) - (GX*8, GY-K) ,8 
280 NEXT 

290 GY=GY-4 

300 Y=Y-1 

310 NEXT 

320 FOR Y=75 TO 58 STEP-1 

330 PSET(X,Y),6 


340 NEXT 

350 FOR R=1 TO 14 

360 CIRCLE(X,Y),R,16-R,,,.8 
370 NEXT 


380 GOTO 380 


20 DATA 2,9,22,35,58,92,104,1 
12,115,117,118 

30 FOR N = 1 TO 10: READ G(N): 
NEXT 

40 HOME HGR HCOLOR= 3 

50 X = 60:Y = 156 


60 HPLOT 8,2 TO 8,158 TO 80,15 
8 


tê 
п 


80 WVTAB 21: PRINT " ТАМ DA PL 
ANTA"," VEL DE CRESCIMENTO" 
90 FOR N * 11 TO 155 STEP 12 


100 HPLOT 2,N TO 8,N 

120 NEXT 

140 HPLOT 158,2 TO 158,156 TO 
255,156 


170 GX = 161:GY = 156 


200 FOR N = 1 TO 117 
210 IF G(C) > N THEN 250 
230 HPLOT X,Y TO X * 10,Y - 





HPLOT X,Y TO X - 10, Y - 5 
240 GX = GX + 8:GY = 156:C = C 


* 3 

250 HPLOT X,Y 

260 FOR K * 1 TO 3 

270 HPLOT GX,GY - K TO GX * 8, 
TK 

280 NEXT 


290 GY = GY - 4 
300Y*Y-1 


310 NEXT 

340 СХ = X:CY = Y - 15:R1 = 13: 
R2 = 8: HPLOT CX + R,CY 

350 FOR A * 0 TO 6.28 STEP .1 
360 HPLOT TO CX * R1 * COS ( 
A),CY - R1 * SIN (A): HPLOT T 


O Cx + R2 ж 
SIN (A) 
370 NEXT 


O programa mostra graficamente o 
que acontece com a planta. Os dados da 
linha 20 equivalem ao tamanho da plan- 
ta, medido a intervalos regulares. São 
usados tanto no desenho da figura quan- 
to no traçado do gráfico que mostra a 
velocidade de crescimento. 

A rotina da linha 200 à 310 encarre- 
ga-se do desenho da planta. Os eixos e 
escalas do gráfico sáo definidos nas li- 
nhas 40 a 160, enquanto o tragado das 
barras é feito pelas linhas 260 a 280. A 
flor, finalmente, é desenhada pelas li- 
nhas 350 a 380. 

Como o gráfico deixa claro, o cres- 
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Uma explosão populacional de coelhos. 


cimento da planta é lento no princípio, 
acelerando em seguida, até perder, de 
novo, a velocidade. Os dados foram re- 
tirados de um experimento real que me- 
diu o crescimento da área de uma folha 
de um pepineiro. Os mesmos valores po- 
dem ser usados para avaliar o crescimen- 
to de toda a planta. 


GERAÇÕES E NÚMEROS 


Quando se acasalam, os animais mul- 
tiplicam-se, dando origem a várias ge- 
rações. Tomemos o caso dos coelhos. 
Um par de coelhos — primeira geração 
— produz um novo par. Este forma a 
segunda geração. O casal inicial produz 
mais um par e a segunda geração passa 
a ter dois pares. Como veremos adian- 
te, uma série de números representan- 
do gerações pode ser como se segue: 
1,1,2,3,5,8,13,21 etc. O próximo pro- 
grama mostra graficamente como o nú- 
mero de coelhos cresce com o passar do 
tempo. 


10 BORDER 0: PAPER 1: INK 7: 
CLS 
20 FOR N=0 TO 7: READ A: POKE 


ОЗА "a"+N,A: NEXT N 

30 FOR N=0 TO 7: READ A: POKE 
ОЗА "b"+N,A: NEXT N 

40 LET C$-" 





50 LET AS-CHR$ 144: LET B$- 
CHR$ 145 

60 PAPER 0: CLS : PAPER 1 
70 FOR N=1 TO 6: PRINT C$'': 
NEXT N 


ВО PRINT INK 5;AT 0,0;"GER" 














Comgmrrmjrrempeermgnremqmr ngm 


90 FOR N=1 TO 20 
100 IF N>1 THEN FOR P=1 TO 10 
: SOUND .01,P: NEXT P 
110 READ X,Y: PRINT AT Y,X;A%; 
AS;AT Y+1,X;B$;BS 
120 NEXT N 
130 FOR N=1 TO 20 
140 READ X,Y,XX,YY: PLOT X,Y: 
DRAW INK 4;XX,YY 
150 NEXT N 
160 PRINT AT 18,2; INVERSE 1;" 
ARVORE GENEALOGICA - COELHOS 








170 INK 6: INVERSE 1: PRINT '" 
GERACAO 1.0 1-2-3 4 
5"'"PARES VE 1. 

3.5 :8" 


180 GOTO 180 

190 DATA 144,80,48,28,52,62,62 
.24,60,126,118,120,126,254,252 
,63 

200 DATA 16,0,16,3,22,6,11,6, 
16,9,6,9,11,12,25,9,22,12,3,12 
.6,15,14,15,16,12,28,12,26,15, 
2,15,10,15,18,15,22,15,30,15 
210 DATA 136,159,0 
32,-31,128,135,-34, 
0,-31,184,112,0,-31,192,112,8, 
-8,88,111,-25,-7,96,111,0,-31 
220 DATA 48,87,-10,-7,56,87,0, 
731,24,63,-5,-7,90,63,-8,-7, 
128,87,-8,-8,120,79,0,-23,136, 
87,0,-7 

230 DATA 144,63,7,-7,184,63,0, 
-7,208,88,0,-31,216,88,7,-7, 
240,63,7,-7 

















10 PMODE 3:PCLS:DIM R(9) 

20 SS-PEEK (186) *256*PEEK (187) 
30 FOR K«8S TO S8*480 STEP 32 
40 READ A,B:POKE K,A:POKE K+1,B 
50 NEXT 

60 GET (2,0)-(13,15),R,G 

70 PUT(14,0)-(25,15) , R, PSET:GET 
(2,0)-(25,15),R,G 

80 PCLS4:SCREEN 1,0 

90 COLOR3: FOR K=0 TO 5 

100 LINE (0,32*K)-(255,32*K*24) 
,PSET,BF 

110 NEXT 

120 COLOR 1:FOR N=1 TO 20 

140 READ X,Y:PUT(X,Y) - (X*23, Y*1 
5),R,PSET 

150 IF N>1 THEN PLAY"O1T50CCEFG 
AB" 

160 READ X,Y,XX, YY:LINE(X,Y) - (X 
X,YY) , PSET 

170 NEXT 

180 GOTO 180 

190 DATA 169,170,153,170,165,17 
0,169,90,165,154,165,86,15,90,1 
69,106 

200 DATA 169,106,165,90,165,154 
+165,106,165,106,149,106,149,10 
6,165,90 

210 DATA 114,7,124,24,124,38,11 
4,39,113,56,69,70,59,71,138,23, 
178,68,171,71,57,89,42,100,31,1 
03 





220 DATA 124,57,124,101,115,103 





+195,87,208,101,199,103 
230 DATA 29,120,12,133,3,135,68 
,89,68,133,59,135,124,121,124,1 
33,115,135 

240 DATA 180,89,180,133,171,135 
.222,120,234,133,225,135,12,153 
,12,165,3,167 

250 DATA 40,121,42,165,33,167,6 
8,153,72,165,63,167,113,120,98, 
165,93,167,124,153,144,165,137, 
167 

260 DATA 178,153,176,165,167,16 
7,208,121,206,165,197,167,234,1 
53,234,165,225,167,124,70,124,7 
0 


nu 


5 CLEAR 5000 

10 COLOR 4,15,15:SCREENZ 
60 AS="S4F1D1L2BFIR3GILIDIRIFIL 
3D1R3" 

90 FOR K=0 TO 5 

100 LINE(0,32*K)-(255,32*K+24), 
2,BF 

110 NEXT 

120 FOR N=1 TO 20 

140 READ X,Y:PRESET(X,Y) :DRAW"X 
AS;": PRESET(X+15,Y) :DRAW"XAS;" 
160 READ X,Y,XX, YY:LINE(X,Y) - (X 
X,YY),8 

170 NEXT 

180 GOTO 180 

210 DATA 114,7,124,24,124,38,11 
4,39,113,56,69,70,59,71,138,23, 
178,68,171,71,57,89,42,100,31,1 
03 

220 DATA 124,57,124,101,115,103 
+195,87,208,101,199,103 

230 DATA 29,120,12,133,3,135,68 
,89,68,133,59,135,124,121,124,1 
33,115,135 

240 DATA 180,89,180,133,171,135 
,222,120,234,133,225,135,12,153 
.12,165,3,167 

250 DATA 40,121,42,165,33,167,6 











8,153,72,165,63,167,113,120,98, 
165,93,167,124,153,144,165,137, 
167 

260 DATA 178,153,176,165,167,16 
7,208,121,206,165,197,167,234,1 
53,234,165,225,167,124,70,124,7 
0 


(41%) 


10 HGR2 : HCOLOR- 3 

20 DATA 1,0,4,0,60,60,28,109, 
1,193,193,43,53,55,53,54,55,45, 
53,63,63,46,173,27,54,45,45,62, 
63,63,46,45,53,63,55,45,53,63,6 
2,63,60,7,0 

30 р = 233: РОКЕ P - 1,0: POKE 
P,97: SCALE= 1: ROT= 0 

40 FOR I = 24832 ТО 24874: 
: РОКЕ І,С: МЕХТ 

90 FOR K = 0 TO 5 

100 HPLOT 0,30 * K TO 255,30 * 








REA 


110 NEXT 

120 FOR N = 1 TO 20 

140 READ X,Y: DRAW 1 AT X,Y: D 
RAW 1 AT X + 15,Y 


160 READ X,Y,XX,YY: HPLOT X,Y 
TO XX,YY 
170 NEXT 
190 DATA 114,7,124,24,124,38 


,114,39,113,56,69,70,59,71,138, 
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23,178,68,171,71,57,89,42,100,3 
1,103 

200 DATA 124,57,124,101,115,1 
03,195,87,208,101,199,103 

210 DATA 29,120,12,133,3,135 
,68,69,68,133,59,135,124,121,12 
4,133,115,135 

220 DATA 180,89,180,133,171, 
135,222,120,234,133,225,135,12, 
153,12,165,3,167 

230 DATA 40,121,42,165,33,167 
,68,153,72,165,63,167,113,120,9 
8,165,93,167,124,153,144,165,13 
7,167 

240 DATA 178,153,176,165,167 
,167,208,121,206,165,197,167,23 
4,153,234,165,225,167,124,70,12 
4,70 


O programa comega criando o UDG 
para o coelho, a partir das linhas de da- 
dos (190 e 200). As linhas 60 a 110 (40 
a 80, no Spectrum) desenham barras na 
tela para separar cada geração. A seção 
seguinte do programa, que vai até a li- 
nha 180, imprime os coelhos e as linhas 
que ligam as gerações. Os dados que de- 


\ 


finem as linhas e posições são lidos da 
linha 210 em diante. 

À medida que os organismos se mul- 
tiplicam, eles se espalham e colonizam 
outras áreas. Um bom exemplo é a ma- 
neira pela qual as bactérias se reprodu- 
zem. Computadores também podem ser 
usados para representar esse tipo de ex- 
pansão. Existem jogos interessantes ela- 
borados a partir dessa idéia. Você en- 
contrará um deles, o Jogo da Vida, na 
página 961. 


MEROS DE FIBONACCI 


A série de números mencionada an- 
teriormente — 1,1,2,3,5,8,13,21 etc. — 
apresenta algumas propriedades que po- 
dem ser observadas na natureza e em 
obras de arte. É conhecida como “nú- 
meros de Fibonacci” desde o século 
XIII, quando o matemático italiano a 
descreveu. Cada número dessa série cor- 
responde à adição dos dois anteriores. 


Uma propriedade interessante pode 
ser observada tomando-se quaisquer três 
números em seqüência. Multiplique o 
primeiro pelo último e compare o resul- 
tado com o quadrado do número do 
meio. A diferença será sempre 1. Tome- 
mos os números 5, 8 e 13: 5 vezes 13 dá 
65 e 8 ao quadrado, 64. 

Dividindo cada número pelo da direi- 
ta, obtemos uma série de frações que se 
relacionam à natureza e à arte. Desco- 
briu-se, por exemplo, que nem todas as 
formas retangulares são igualmente 
agradáveis de se olhar. Algumas pare- 
cem muito estreitas, outras muito largas. 
O retângulo de melhor aparência tem 
uma relação especial entre altura e lar- 
gura, conhecida como a “'razão de ou- 
ro”. Essa razão é igual a (sqr (5) — 1)/2, 
cujo resultado é 0.6180. Se você calcu- 
lar qualquer das frações de Fibonacci, 
verá que, quanto maiores os números 
usados, mais elas se aproximam da ra- 
zão de ouro. Por exemplo, 8/13 é igual 
a 0,6154; 13/21, a 0,6190 e 21/34, a 
0,6176. 

Experimente agora o próximo pro- 
grama. Ele desenha retângulos de dife- 
rentes tamanhos, de maneira que você 
mesmo poderá julgar quais os melhores. 

















10 DIM F(12): DIM D(14) 
20 LET D(1)=1: LET D(2)=1 
30 FOR N=3 TO 14 

40 LET D(N)*D(N-1)*D(N-2) 
50 NEXT N 

60 FOR N=1 TO 12 

70 LET F(N)=D(N)/D(N+1) 
80 NEXT N 

90 BORDER O: INK 7: 
сз 

100 LET A-15: LET B=8 
110 LET X=20: LET Y=170 

120 GOSUB 310 

130 PLOT 0,130: DRAW INK 2; 
255,0 


PAPER 0: 













140 PLOT 0,128: DRAW INK 2; 
255,0 
150 PLOT 80,130: DRAW INK 2;0 


‚45 
160 PLOT 82,130: DRAW INK 2;0 


‚45 

170 PRINT AT 2,1; INK 3;"B";AT 
4,5;"A" 

180 INPUT "COMPRIMENTO DO LADO 
А (МАХ 70) ?";А 

190 ІҒ А<1 OR A>70 THEN GOTO 
180 

200 INPUT "COMPRIMENTO DO LADO 
B (MAX 40) ?";B 

210 IF B<1 OR B>40 THEN GOTO 
200 

220 LET X*128- (A*3/2) : 
120 

230 GOSUB 310 
240 PRINT AT 0,11; INK 5;"LADO 
A=";A;” LADO B B 

250 FOR N=1 TO 12 

260 IF A/B=F(N) ОА В/А=Е (М) 
THEN PRINT AT 2,8;"RAZAO DE 
FIBÓNACCI" 

270 NEXT N 

280 PRINT AT 4,1; FLASH 1; INK 
6;"QUALQUER TECLA PARA CONTINU 
AR” 

290 PAUSE 0 

300 RUN 

310 PLOT X,Y: DRAW 3*A,0: DRAW 
0,-3*B 

320 DRAW -3*A,0: DRAW 0,3*B 
330 RETURN 


LET Y= 








10 DIM F(11),D(13) 

20 D(0)=1:D(1)=1 

30 FOR N=2 TO 13 

40 D(N)=D(N-1)+D(N-2) 
50 NEXT 

60 FOR N=0 TO 11 

70 F(N)=D(N) /D(N+1) 
80 NEXT 

90 PMODE 3:PCLS:CLS 
100 A=15:B=8 

110 X=20:Y=22 

120 GOSUB 310 

130 COLOR 4:LINE(0,62)-(255,62) 


,PSET 
140 LINE(0,64)-(255,64) , PSET 


150 LINE(80,62)-(80,17),PSET 
160 LINE(82,62)- (82,17) , PSET 
170 DRAW"BM9,38C288U4R2FGNLFGL2 

BM40,58U3EFDNLD2” 

175 FOR K=1 TO 900:NEXT 

180 INPUT"COMPRIMENTO DO LADO A 
(MAX 70) "¡A 

190 IF AX1 OR A>70 THEN 180 

200 INPUT"COMPRIMENTO DO LADO B 
(MAX 40) ";B 

210 IF B<1 OR B>40 THEN 200 

220 X=128-A*S/3:Y=72 

230 GOSUB 310 

250 FOR N=0 TO 11 

260 1F A/B=F(N) OR B/A=F(N) THE 

N DRAW"BM106,44C288NR2D2NRD2BR4 

U4BR2ND4RFGNLFGLBRANU4R2U4L2BR4 

DND3F2NU3DBR2U3EFDNL2D2BR4L2U4R 
2BR4L2D4R2BR2U4BRBND4R2D2L2F2BR 
2U3EFDNLD2BR3UALR2BR2D4BR2R2U4L 
2D4" 
270 
280 
300 
310 
320 

T,BF 
330 RETURN 


q 


10 DIM F(11),D(13) 
20 D(0)=1:D(1)=1 

30 FOR N=2 TO 13 

40 D(N)=D(N-1)+D(N-2) 
50 NEXT 


NEXT 

IF INKEYS="" THEN 280 

RUN 

SCREEN 1,0:COLOR 3 

LINE (X, Y) - (3*A*X, Y* 3*B) , PSE 


60 FOR N=0 TO 11 

70 F(N)=D(N)/D(N+1) 

80 NEXT:OPEN "GRP:" FOR OUTPUT 
AS 41 

85 COLOR 15,2,2:GOTO 180 

90 SCREEN2 

100 A=15:B=8 

110 X=20:Y=22 

120 GOSUB 310 

130 LINE(0,62)-(255,62),8 


140 
150 
160 


LINE (0,64)-(255,64),8 
LINE(80,62)-(80,17),8 

LINE (82,62)-(82,17),8 

170 FOR K=1 TO 1500:NEXT:RETURN 
180 SCREENO: INPUT” TAMANHO DO LA 
ПО А (МАХ 70)";АА 

190 IF AA<1 OR AA>70 THEN 180 


200 INPUT"TAMANHO DO LADO B (MA 
X 40)”;BB 

210 ІР ВВ<1 OR BB>40 THEN 200 
215 GOSUB 90 

220 A=AA:B=BB:X=128-A*3/2:Y=72 
230 GOSUB 310 

240 FOR N=0 TO 11 


260 IF A/B=F(N) OR B/A-F(N) THE 
N PRESET (90,15) : PRINT41,"RAZAO 
DE FIBONACCI" 

270 NEXT 

280 IF INKEY$="" THEN 280 

300 RUN 

310 REM 

320 LINE(X,Y)- (3*A*X, Y*3*B) , 4, B 


F 
330 RETURN 


ІШ 1 


10 DIM F(11),D(13) 

20 D(0) = 1:D(1) = 1 

30 .FOR N 2 TO 13 

40 D(N) * D(N - 1) * D(N - 2) 
50 NEXT 

60 FOR N = 0 TO 11 

70 F(N) * D(N) / D(N * 1) 

80 NEXT 

90 HOME : HGR : HCOLOR- 3 
100 А = 15:B = 8 

110 X = 20:Y = 22 

120 GOSUB 310 

130 HPLOT 0,62 TO 255,62 
140 HPLOT 0,64 TO 255,64 
150 HPLOT 80,62 TO 80,17 
160 HPLOT 82,62 TO 82,17 
180 УТАВ 21: INPUT "TAMANHO DO 
LADO A (MAX 70) "¡A 





190 IF A < 1 OR À > 70 THEN 18 
0 

200 INPUT "TAMANHO DO LADO B ( 
MAX 39) "; 

210 IF B « 1 OR B > 39 THEN 20 
0 

220 Х = 128 - Ая 3 / 2:Ү = 72 
230 GOSUB 310 

250 FOR N = 0 TO 11 

260 IFA/B=F(N) ORB / A= 


F(N) THEN УТАВ 21: САМ. - 95 
8: PRINT " RAZAO DE FIBONACCI " 
¡ CHRS (7) 

270 NEXT 

280 FOR 1 = 1 TO 1000: 
РОКЕ - 16302,0: GET R$ 
300 GOTO 90 

310 FOR XX = XTOX+3* A 
320 HPLOT XX,Y TO XX,Y * 3 * B 


NEXT : 


325 
330 


NEXT 
RETURN 


O programa comeca pedindo que o 
usuário defina o tamanho dos lados do 
retángulo. Se vocé entrar dois nümeros 
adjacentes da série de Fibonacci, será 
avisado de que se trata de uma fração 
de Fibonacci. 

Os números da série são calculados 
nas linhas que vão de 20 a 50. A partir 
dos dois primeiros números, os demais 
vão sendo calculados pela adição de ca- 
da número ao anterior. As linhas 60 a 
80 guardam os números em uma matriz 
e as linhas 90 a 170 desenham um retân- 
gulo, para exemplo. Em seguida, come- 
ça a rotina de entrada, que verifica se 
os números escolhidos pertencem à sé- 
rie de Fibonacci. 

Podem-se encontrar exemplos dos 
números de Fibonacci também na natu- 
reza; assim, uma espiral ligando folhas 
de um galho tem voltas e vãos que for- 
mam razões de Fibonacci. Conte o nú- 
mero de voltas da espiral, de uma folha 
à outra. Depois, conte o número de vãos 
da espiral entre essas duas posições. А 
razão é, em geral, 5/3 ou 8/5. 


JOGOS DE GUERRA 


М 
A batalha comega, afinal, possibilitada 
pelas rotinas de combate balístico e 

corpo a corpo que apresentamos neste 


artigo, Veremos também como testar o 
moral e contar as baixas de cada lado. 


Capa e Espada está quase completo; 
já podemos dar ordens ás unidades e 
mové-las pelo campo de batalha. Faltam 
apenas as rotinas de combate. Depois de 





adicioná-las ao programa, experimenta- 
remos, finalmente, o jogo. 

Os eventos resultantes do choque en- 
tre dois exércitos podem ser bem com- 
plicados — assim, antes de qualquer coi- 
sa, devemos decidir o que incluir no pro- 
grama. No tipo mais simples de resolu- 
ção de combate, o maior sempre vence, 
o que faz do tamanho das unidades o 
fator decisivo da vitória ou da derrota. 
Podemos ainda relacionar o desenlace 
da batalha ao moral da tropa, ao núme- 
ro de cavaleiros etc. Na realidade, nin- 


ONY 


ALCANCE DOS PROJÉTEIS 
COMBATE CORPO A CORPO 
CONFERINDO O MORAL 

VITÓRIA E DERROTA 


INSTRUÇÕES 


guém tem a receita infalível do triunfo; 
portanto, os fatores que determinam 
quais serão os vencedores em um jogo 
de guerra dependem da escolha do pro- 
gramador. 


COMBATE BALÍSTICO 


Em Capa e Espada existem dois tipos 
de combate: balístico (flechas) e corpo 
a corpo. Esta primeira rotina trata do 
combate com projéteis. 





1710 REM Tiro 

1720 GOSUB 2540 

1730 PRINT AT 18, “;s 
hi* atira” 
1740 LET fx=5 
--1 

1745 LET st=9 
1750 IF sh>8 THEN LET st=1 
1770 FOR m-st TO (st*7) 

1780 LET tm-ABS (T(m,8)-T(sh,8) 
): LET ty=ABS (T(m,9)-T(sh,9)) 
1785 IF tméfx AND T(m,1)<5 AND 
ty<fy THEN LET fx-tm: LET fy-t 
: LET qp=m 

1790 NEXT m 

1800 IF qp=-1 THEN 
,0;"Fora de alcance": 
0: RETURN 

1810 LET C=8-T(9p,4)-ABS (£x-£y ) 
1820 ІҒ ор<3 ОН ор ОВ 9р=10 Т 
НЕМ ГЕТ С=С+1 

1830 ІҒ ш(Т(ор,8).Т(ор,9))<2 ТН 
EN LET C=C-2 

1840 IF T(gp,1)<>2 THEN 
c+1 
1850 
)*FN 


LET fy=5: LET Qp 


PRINT AT 19 
GOSUB 241 


LET C= 


LET C=(C+(INT (T(sh,7)/40) 
r(3))*10 

1860 LET T(9p,7)=T(0p,7)-C 
1870 PRINT "Houve ";C;" baixas 
na unidade "; ор 
1875 GOSUB 2410 
1880 LET un*9p: 
1890 RETURN 


GOSUB 2200 


PSU 


1710 REM TIRO 
1720 GOSUB 2540 

1730 LOCATE 0,19:PRINT 
";SH;"ATIRA" 

1740 FX=5:FY=5:GP=-1 
1745 ST-9 

1750 IF SH>8 THEN ST=1 
1770 FOR M=ST TO ST+7 
1780 TM=ABS(T(M,8)-(T(SH,8)):TY 
=ABS(T(M,9)-T(SH,9)) 

1785 IF TM<FX AND T(M,1)<5 AND 
TY<FY THEN FX=TM:FY=TY:GP=! 

1790 NEXT M 

1800 IF GP=-1 THEN LOCATE 0,20: 
PRINT "FORA DE ALCANCE” :GOSUB 2 
410 

1810 C-8-T(GP,4)-ÀBS(FX-FY) 
1820 IF GP<3 OR GP=9 OR GP=10 T 
НЕМ С=С+1 

1830 IF M(T(GP,8),T(GP,9))=2 TH 
EN C=C-2 

1840 IF T(GP,1)<>2 THEN C=C+1 
1850 C=(C+INT(T(SH,7)/40))+FN R 
(3))*10 

1860 T(GP,7)=T(GP,7)-C 

1870 PRINT "HOUVE "BAIXAS NA 
NIDADE” ;GP 

1875 GOSUB 2410 

1880 UN=GP:GOSUB 2200 

1890 RETURN 


[é] 


1710 REM TIRO 


“UNIDADE 


1720 GOSUB 2540 

1730 УТАВ 2 PRINT "UNIDADI 
18H;" ATIRA”: GOSUB 30000 
1740 FX = S:FY = S:GP = - 1 
1745 ST = 9 

1750 IF SH > 8 THEN ST = 1 
1770 FOR M = ST TO (ST + 7) 


1780 TM = 
)):TY = 
1785 


ABS (T(M,8) 
ABS (T(M,9)) 
IF TM € FX AND T(M,1) < 5 


- T(SH,8 


AND TY < FY THEN FX = TM:FY = 


TY:GP * M 
1790 NEXT M 
1800 IF GP = 


- 1 THEN 


PRINT 





"FORA DE ALCANCE” : 

GOSUB 2410: 
1810 C = 
- FY) 


1820 
1830 


RETURN 
8 - T(GP,4) - 


GOSUB 30000: 


ABS (FX 


IF GP < 3 OR GP = 9 OR GP 
= 10 THEN C =< C + 1 


IF M(T(GP,8),T(GP,9)) 


- 2 


THENC = C - 2 
1840 IF T(GP,1) < 
4 
1850 C = 
40)) + 


> 2 THEN C 


(C * ( INT (T(SH,4) / 
FN R(3)) * 10 

1860 T(GP,7) = T(GP,7) - € 
1870 PRINT "HOUVE ";C;" BAIXAS 
NA UNIDADE ";GP 

1875 GOSUB 30000: GOSUB 2410 
1880 UN = GP: GOSUB 2200 

1890 RETURN 


Modifique as seguintes linhas do pro- 
grama destinado ao Apple: 


1730 VTAB 21: "UNIDADE " 
1SH;" ATIRA” 
1800 IF GP = - 
"FORA DE ALCANCE”: 
RETURN 

1875 GOSUB 2410 


PRINT 


1 THEN PRINT 
GOSUB 2410: 


1710 REM TIRO 

1720 GOSUB 2540 

1730 DRAW"BMO, 152" :AS="UNIDADE” 
*STRS(SH)*" ATIRA":GOSUB 3190 
1740 FX-5:FY=5:GP=-1 

1745 ST-9 

1750 IF SH>8 THEN ST=1 

1770 FOR M=ST TO (ST+7) 

1780 TM*ABS(T(M,8)-T(SH,8)) :TY* 
ABS (T (M, 9) -T (SH, 9)) 

1785 IF ТМ<ҒХ AND T(M,1)<5 AND 
TY<FY THEN FX=TM:FY=TY:GP=M 
1790 NEXT M 

1800 IF GP=-1 THEN DRAW"BMO,160 
":AS="FORA DE ALCANCE” :GOSUB 31 
90:GOSUB 2410:RETURN 

1810 C=8-T(GP,4)-ABS(FX-FY) 
1820 IF GP<3 OR GP=9 OR GP=10 T 
HEN C=C+1 

1830 IF M(T(GP,8),T(GP,9))=2 ТН 
EN C-C-2 

1840 IF T(GP,1)<>2 THEN C=C+1 
1850 C=(C+INT(T(SH,7)/40))+RND( 
3))*10 

1860 T(GP,7)*T(GP,7)-C 

1870 DRAW"BMO, 160” :AS="HOUVE"+S 
TRS(C)+” BAIXAS NA UNIDADE" +STR 
$(GP):GOSUB 3190 

1875 GOSUB 2410 

1880 UN-GP:GOSUB 2200 

1890 RETURN 


A rotina de tiro é chamada sempre 
que os arqueiros recebem a ordem “FO- 
GO”. Em outros jogos pode haver mais 
de um tipo de unidade com capacidade 
de atirar diferentes projéteis. 

Quando uma unidade recebe a ordem 
de disparo, G% (GP ou gp) passa a va- 
ler — 1 na linha 1740. A seguir, a rotina 
verificará se há um alvo vulnerável na 
área. As coordenadas da unidade que 
atira sáo comparadas ás de cada unida- 
de inimiga pela linha 1780. Se o alvo es- 
tiver dentro de um alcance de cinco po- 


sições do mapa, G% (GP ou gp) assu- 
me o número da unidade atingida. Se 
houver mais de um alvo, o mais próxi- 
mo será considerado. 

Caso não haja unidades inimigas por 
perto, G% (GP ou gp) permanece va- 
lendo —1 e o jogador é informado que 
o inimigo está “FORA DE ALCANCE”. 

Se o disparo atingir o alvo, as baixas 
inimigas serão calculadas e armazenadas 
em C% (ou C). 

Vários fatores determinam a gravida- 
de dos danos causados por um disparo. 
Na linha 1810, o tipo de armadura da 
unidade-alvo é subtraído de 8. Em se- 
guida, subtrai-se do resultado um fator 
de distância. A linha 1820 adiciona 1 a 
C% (ou C), se a unidade-alvo for de ca- 
valeiros. Se ela estava resguardada por 
uma floresta (terreno tipo 2), a linha 
1830 subtrai 2; se se encontrava em mo- 
vimento, a linha 1840 adiciona 1 (tro- 
pas em movimento são mais vulneráveis 
à artilharia). 

Finalmente, a linha 1850 soma o re- 
sultado a um quarto do poder da uni- 
dade atacante, mais uma parcela alea- 
tória — tudo isso vezes dez. O resulta- 
do corresponde ao total de baixas da 
unidade-alvo. As baixas sào subtraídas 
do poder da unidade e, em seguida, a 
rotina que testa o moral é chamada. 


CONFRONTO 


O resultado do combate corpo a cor- 
po é calculado de maneira similar: 


1510 REM Combate 

1520 IF (us<9 AND th<9) OR 
8 AND th>8) THEN RETURN 
1530 IF T(us,1)=5 OR T(th,1)=5 
THEN RETURN 

1540 GOSUB 2540 

1550 PRINT AT 18,0;"Combate !!" 
1560 LET at=INT ((T(us,7)-T(th, 
7))/50) 

1570 LET at-at*T(us, 3) -T(th,4)* 
T(us,5) *FN r(5) 

1580 IF ABS (T(us,2)-T(th,2))<> 
2 THEN LET at-at*2 

1590 IF us<3 OR us=9 OR us=10 T 
HEN LET at-at*l 

1600 LET dr-INT ((T(th,7)-T(us, 
7))/60) 

1610 LET df-df*T(th,3)-T(us,4)* 
T(th, 5) *m(T(th,8) , T(th, 9) ) *FN r 
(3)+2 

1615 LET wn=th: LET lo=us 

1620 IF at>df THEN LET wn=us: 
LET lo=th 

1630 LET wc=INT (T(wn,7)/10): 1 
Е wc<l THEN LET wc=1 

1640 LET T(wn,7)=T(wn,7)-wc 
1650 LET 1c-INT (T(1o,7)/5): IF 
1с<1 THEN LET 1с=1 


(us> 





DOT Te moceamacioorsosos ә | L TTITO 


1660 LET T(10,7)*T(10,7)-1c 
1670 PRINT wn;” perde ";шс;" ”; 
lo;” perde ";lc 

1680 GOSUB 2410 

1690 LET un=lo: GOSUB 2200 
1700 RETURN 


1510 REM COMBATE 

1520 IF (US<9 AND TH<9) OR (US> 

8 AND TH>8) THEN RETURN 

1530 IF T(US,1)=5 OR T(TH,1)=5 

THEN RETURN 

1540 GOSUB 2540 

1550 LOCATE 0,19:PRINT "COMBATE 
ТЫ 

1560 AT=INT((T(US,7)-T(TH,7))/5 

0) 

1570 AT-AT*T(US,3) -T (TH, 4) *T (US 
,5) *FN R(5) 

1580 IF ABS(T(US,2) -T(TH,2)) «»2 
THEN AT-AT*2 

1590 IF US<3 OR. US=9 OR US-10 T 

НЕМ АТ=АТ+1 

1600 DR=INT((T(TH,7)-T(US,7))/6 

0) 

1610 DF-DF*T(TH,3)-T(US,4) *T (TH 
45) *M(T (TH, 8) , T(TH, 9) ) *FN R(3)* 

2 


1615 WN=TH:LO=US 

1620 IF AT>DF THEN WN=US:LO=TH 
1630 WC=INT(T(WN,7)/10):IF WC<1 
THEN WC=1 

1640 T(WN,7)=T(WN,7)-WC 

1650 ІС-ІМТ(Т(1.0,7)/5):ТЕ ІС<1 
THEN LC=1 

1660 T(LO,7)=T(LO,7)-LC 


1670 PRINT WN;"PERDE";WC;".";LO 
;"PERDE";LC 

1680 GOSUB 2410 

1690 UN-LO:GOSUB 2200 

1700 RETURN 


1510 REM COMBATE 

1520 IF (US < 9 AND TH < 9) OR 
(US > 8 AND TH > 8) THEN RETU 
RN 

1530 IF T(US,1) = 5 OR T(TH,1) 
* 5 THEN RETURN 

1540 GOSUB 2540 

1550 УТАВ 21: PRINT "COMBATE ! 
11": GOSUB 30000 

1560 TT - INT ((T(US,7) - T(TH 
.7)) / 50) 

1570 TT = TT + T(US,3) - T(TH,4 
) * T(US,5) * FN R(5) 

1580 IF ABS (T(US,2) - T(TH,2 
)) < > 2 THEN TT = TT + 2 
1590 IF US < 3 OR US = Y OR US 
= 10 THEN TT = TT + 1 

1600 DR = INT ((T(TH,7) - T(US 
‚7)) / 60) 

1610 ОЕ = DF * T(TH,3) - T(US,4 
) % Т(ТН,5) % М(Т(ТН,8),Т(ТН,9) 
) % FNR(3 *2 

1615 WN - TH:LO - US 

1620 ІР ТТ » DF THEN WN - US:L 
O = TH 

1630 WC = INT (T(WN,7) / 10): 
IF WC < 1 THEN WC = 1 

1640 T(WN,7) - T(WN,7) - WC 
1650 LC - INT (T(LO,7) / 5): I 
F LC « 1 THEN LC = 1 


1660 T(LO,7) - T(LO,7) - LC 
1670 PRINT WN;” PERDE ";WC;” " 
;LO;" PERDE ";LC: GOSUB 30000 
1680 &GOSUB 2410 

1690 UN = LO: GOSUB 2200 

1700 ВЕТОВМ 


Substitua as seguintes linhas: 
1550 УТАВ 21: PRINT "COMBATE ! 


ЛЫ 
1670 PRINT WN;” PERDE ";WC;" " 
;LO;" PERDE ";LC 


1510 REM COMBATE 

1520 IF (US<9 AND TH<9) OR (US> 
8 AND TH>8) THEN RETURN 

1530 IF T(US,1)=5 OR T(TH,1)=5 
THEN RETURN 

1540 GOSUB 2540 

1550 DRAW"BMO,144":AS="COMBATE! 
1” :GOSUB 3190 

1560 AT-INT((T(US,7) -T(TH,7))/5 
0) 

1570 AT=AT+T(US,3)-T(TH,4)+T(US 
+ 5) +RND(5) 

1580 IF ABS(T(US,2)-T(TH,2))<>2 
THEN AT=AT+2 

1590 IF US<3 OR US-9 OR US=10 T 
HEN AT-AT*l 

1600 DF-INT((T(TH,7)-T(US,7)) /6 
0) 

1610 DF-DF*T(TH,3)-T(US,4) *T(TH 
4,5) *M(T (TH, 8) , T(TH, 9) ) FNND(3) *2 
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1615 WN-TH:LO-US 

1620 IF AT>DF THEN WN=US: LO=TH 
1630 WC=INT(T(WN,7)/10):IF WC<] 
THEN WC=1 

1640 T(WN,7)-T(WN,7)-WC 

1650 LC-INT(T(LO,7)/5) :IF LC<1 
ТНЕМ 1С=1 

1660 T(LO,7)=T(LO,7)-LC 

1670 DRAW"BMO, 160”: AS=STRS (WN) + 
" PERDE"*STRS(WC)*" "*STR$(LO)* 
" PERDE"*STRS(LC):GOSUB 3190 
1680 GOSUB 2410 

1690 UN*LO:GOSUB 2200 

1700 RETURN 


Essa rotina é chamada sempre que 
duas unidades se encontram no tabulei- 
ro. Se elas forem do mesmo exército, a 
rotina é imediatamente interrompida. O 
mesmo acontece se uma das unidades es- 
tiver em retirada — linha 1530. 

A principal diferença entre o combate 
balístico e o corpo a corpo é que, no se- 
gundo caso, as duas unidades entram em 
acáo. O combate corpo a corpo é, por- 
tanto, mais complexo, exigindo que se 
calculem as baixas dos dois lados. 

A linha 1560 dá ao atacante uma no- 
ta igual a um quinto da diferenca entre 
o poder das duas unidades. Em segui- 
da, a diferenca entre a arma do atacan- 
te e a armadura do atacado é somada 
ao valor do moral do atacante mais um 
número aleatório de 1 a 5. 

Aquele que ataca tem um bônus adi- 
cional se o inimigo não estiver de fren- 


te. Inclui-se nessa situação o atacante 
que se movia em direção diferente da do 
inimigo — se ele estiver parado, a dire- 
ção de seu último movimento será con- 
siderada. Por isso, nunca apagamos o 
elemento de direção de uma unidade, 
após uma ordem “ALTO”. Finalmen- 
te, o atacante tem também um bónus se 
for uma unidade de cavaleiros. 

A nota da unidade atacada é calcu- 
lada de modo semelhante, correspon- 
dendo à soma destes elementos: um sex- 
to da diferença de poder, a diferença en- 
tre a arma do atacante e a armadura do 
atacado, o moral do defensor, um bô- 
nus que depende do terreno, um bônus 
fixo de 2, um número aleatório de 1 a 
3. Еввев сйісшов (еп сото ргеввиров10 
que defender é mais fácil que atacar. 
vezes, porém, o entusiasmo do atacan- 
te pode neutralizar tal vantagem. 

Assim, os atacantes obterão uma no- 
ta (AT) e os defensores outra (DF). A 
unidade que alcanca o valor mais alto 
ganha a batalha, perdendo apenas um 
décimo de seu poder. Já o poder do der- 
rotado é reduzido em um quinto. 

Finalmente, a rotina que testa o mo- 
ral é chamada para o derrotado. 


MOR 





O fator psicológico tem grande peso 
numa guerra. É bem possível que um 


exército seja derrotado, mesmo que es- 
teja equipado com as melhores armas do 
mundo, se a tropa detestar seus gene- 
rais, simpatizar com a causa inimiga ou, 
simplesmente, não quiser lutar. 

A psicologia humana é muito com- 
ERAN ud reproduzi-la 
aqui. Em Capa e Espada o moral in- 
fluencia apenas a sobrevivéncia da uni- 
dade e o resultado do combate. 


2200 REM Moral 

2210 IF T(un,6)-T(un,7)«((T(un, 
6)/100)*((T(un,5)*2))) THEN RE 
TURN 

2220 GOSUB 2540 
2230 PRINT AT 18,0;” 
foram tao grandes" 
2240 РВІМТ АТ 19,0;" que a unid 
ade ";un;” se desintegra” 

2250 GOSUB 2410 

2260 LET T(un,1)*5 

2270 PRINT AT T(un,8),T(un,9) ;" 


As perdas 


2280 


2200 REM MORAL 

2210 IF T(UN,6) -T (UN, 7) K((T(UN, 
6)/100) *((T(UN, 5) *2))) THEN RET 
URN 

2220 GOSUB 2200 

2230 LOCATE 0,19:PRINT "AS PERD 
AS FORAM TAO PESADAS" 


RETURN 








2240 PRINT "QUE A UNIDADE";UN;" 
SE DESINTEGRA" 

2250 GOSUB 2410 

2260 T(UN,1)=5 

2270 LOCATE T(UN,9),T(UN,8): PRI 
NT"; 

2280 RETURN 


СЯ 


2200 REM MORAL 

2210 1F T(UN,6) - T(UN,7) < (( 
T(UN,6) / 100) * ((T(UN,5) + 2) 
)) THEN RETURN 

2220 GOSUB 2540 

2230 VTAB 21: PRINT 
FORAM MUITO GRANDES” 
2240 PRINT "A UNIDADE ";UN; 
E DESINTEGROU" 

2250 GOSUB 2410 

2260 T(UN,1) = 5 

2270 X * T(UN,9):Y * T(UN,8) :N 
* 14: GOSUB 10000 

2280 RETURN 


[d] 


Adicione as seguintes linhas: 
2545 COLOR= 0: FOR I = 160 TO 
191 


"AS BAIXAS 


ZH 


2550 HPLOT 0,I TO 279,I: 
: RETURN 
30000 RETURN 


NEXT 





2200 REM MORAL 
2210 IF T(UN,6) -T (UN, 7) K((T(UN, 
6)/100) * ((T(UN, 5) *2) *10)) THEN 
RETURN 
2220 GOSUB 2540 
2230 DRAW"BMO,152":A$="AS PERDA 
ош MUITO GRANDES":GOSUB 31 
2240 DRAW"BMO, 160" :AS*"UNIDADE" 
*STR$(UN)*" SE DESINTEGRA":GOSU 
B 3190 
2250 GOSUB 2410 
2260 T(UN,1)=5 
2270 X9=T(UN,9)*8:Y9=T(UN,8)*8: 
LINE (X9,Y9)- (X9+7,Y9+7) ,PRESET, 
BF 
2280 RETURN 
A linha 2210 subtrai o poder atual do 
poder inicial da tropa, comparando o re- 
sultado com o moral. Se a unidade so- 
freu uma perda de 30% e tem o moral 
baixo, ela se dispersa e náo participa 
mais do jogo. Se o moral for mais ele- 
vado, uma unidade poderá perder até 
70% do poder antes de se dispersar. 
Quando uma unidade náo passa no 
teste do moral, as linhas 2230 e 2240 
transmitem uma mensagem informando 
a dispersáo. O elemento de comando da 
matriz da tropa passa a valer 5, o que 
significa que a tropa bateu em retirada. 
A unidade é apagada da tela e ignora- 
da. Porém, como há desertores espalha- 


dos pelo campo de batalha, a unidade 
poderá dificultar o movimento de tro- 
pas, apesar de estar invisível. 


ENFIM, A PAZ 


Entre os últimos detalhes que preci- 
samos incluir no programa está uma ro- 
tina de verificação do fim do jogo. 


2290 
2300 
2310 
2320 
qd+1 
2330 IF T(m+8,1)<>5 THEN 
d=bd+1 

2340 NEXT m 

2350 IF gd>bd*2 OR 
>2) THEN LET vc=1 
2360 IF bd»gd*2 OR 
»2) THEN LET de=] 
2370 RETURN 

2380 REM Fim 
2390 IF vc=1 THEN PRINT 
TA 111” 

2395 IF de=1 THEN PRINT 
umilhante derrota." 

2400 RETURN 


nau 


2290 
2300 
2310 
2320 
2330 
1 
2340 МЕХТ М 

2350 IF GD>BD*2 OR (BD<2 AND GD 
>2) THEN VC=1 

2360 IF BD>GD*2 OR (GD<2 AND BD 
>2) THEN DE=1 

2370 RETURN 

2380 REM FIM 

2390 IF VC=1 THEN PRINT "VITÓRI 
А 111" 

2395 IF DE*1 THEN PRINT 
MILHANTE DERROTA." 

2400 RETURN 


REM Vitoria 

LET qd=0: LET bd=0 

FOR m=1 TO 8 

IF T(m,1)<>5 THEN LET gd= 


LET b 


(bd<2 AND gd 


(94<2 AND bd 


"VITOR 
"Uma h 


REM VITÓRIA 

GD=0:BD=0 

FOR M=1 TO 8 

IF T(M,1)<>5 THEN GD=GD+1 
IF T(M+8,1)<>5 THEN BD=BD+ 


"ОМА HU 


REM VITORIA 

GD = 0:BD = 0 

FORM = 1 TO 8 

1F T(M,1) < > 5 THEN CD 
IF T(M * 8,1) < > 5 THEN 
BD = BD + 1 

NEXT M 

2350 IF GD > BD * 2 OR (HD < 2 
AND GD > 2) THEN VC = 1 

2360 1F BD > GD * 2 OR (GD < 2 
AND BD > 2) THEN DE = 1 
2370 RETURN 

2380 REM FIM 

2390 IF VC = 1 THEN PRINT 
TORIA !!!": GOSUB 30000 


"VI 


2395 IF DE = 1 THEN PRINT "UM 
A HUMILHANTE DERROTA”: GOSUB 30 
000 


2400 RETURN 


[d] 


Modificações do programa do Apple: 


2390 IF VC = 1 THEN PRINT "VI 
TORIA !!!" 

2395 IF DE = 1 THEN PRINT "UM 
A HUMILHANTE DERROTA” 





2290 
2300 
2310 
2320 
2330 
1 
2340 NEXT M 

2350 IF. GD>BD*2 OR (BD<2 AND GD 
>2) THEN VC=1 

2360 IF BD>GD*2 OR (GD<2 AND BD 
>2) THEN DE=1 

2370 RETURN 

2380 REM FIM 

2390 IF UVC-1 THEN DRAW"BMO0,176" 
:A$="VITORIA !!!":GOSUB 3190 
2395 IF DE-1 THEN DRAW"BMO,176" 
:AS="UMA HUMILHANTE DERROTA.”:G 
OSUB 3190 

2400 RETURN 


REM VITORIA 

GD=0:BD=0 

FOR M=1 TO 8 

IF T(M,1)<>5 THEN GD=GD+1 
IF T(M+8,1)<>5 THEN BD=BD+ 


A rotina verifica se um dos adversá- 
rios conta com o dobro de unidades do 
outro ou se um deles tem menos de duas 
unidades. Uma mensagem informa aos 
jogadores o resultado. 

Poderíamos acrescentar outras con- 
dições de vitória. Por exemplo, um fa- 
tor que decidiu muitas guerras do perio- 
do medieval foi a morte do líder. Po- 
rém, a incorporação desse elemento a 
um jogo, além de trazer outros proble- 
mas, faria com que a atenção dos joga- 
dores estivesse permanentemente volta- 
da para uma das unidades. 

Uma unidade também poderia obter 
a vitória se atingisse a extremidade opos- 
ta do mapa com metade de seus efeti- 
vos, ou metade de seu poder. Outro cri- 
tério seria pelo total de baixas. Nesse ca- 
so, teríamos de acrescentar uma variá- 
vel para calcular o número. 


CTA EST 


Já digitamos todas as rotinas neces- 
sárias ao jogo. Agora, precisamos ape- 
nas incluir um laco principal, que as 
chame ordenadamente: 


10 CLEAR 
30 GOSUB 190 


40 GOSUB 470 
50 GOSUB 860 
60 REM Loop 
70 FOR i-1 TO 8 
80 ІҒ T(i,1)<4 THEN GOSUB 
1380: IF y>2 THEN GOSUB 1900 
90 IF T(1,1)<5 THEN INK 1: 
PRINT AT T(i,8),T(i,9);u$(i) 
100 NEXT i 
110 FOR e-9 TO 16 
120 ІҒ Т(е,1)<4 THEN GOSUB 
2140 
130 МЕХТ е 
140 GOSUB 1020 
150 GOSUB 2290 
160 IF vc<>1 AND de<>1 THEN 
GOTO 60 
170 GOSUB 2380 
180 STOP 
2410 REM Atraso 
2420 PRINT AT 21,7;" [QUALQUER T 
ECLA]” 
2425 LET 9S=INKEYS: IF 95-"" ТН 
ЕМ СОТО 2425 
2430 RETURN 


Чч 


10 CLEAR 5000 

30 GOSUB 190 

40 GOSUB 470 

50 GOSUB 860 

70 FOR I=1 TO 8 

80 IF T(I,1)<4 THEN GOSUB 1380: 
IF YW>2 THEN GOSUB 1900 

90 IF T(I,1)<5 THEN LOCATE T(I, 
9), T(1,8): PRINT CHR$(U(I)); 

100 NEXT I 

110 FOR E=9 TO 16 

120 IF T(E,1)<4 THEN GOSUB 2140 
130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VC<>1 AND DE<>1 THEN 6 
170 GOSUB 2380 

180 END 

2410 REM ATRASO 

2420 LOCATE 5,22:PRINT "APERTE 
QUALQUER TECLA" 

2425 G$-INKEYS:IF G$-"" THEN 24 
25 

2430 RETURN 


30 GOSUB 190 
40 GOSUB 470 
50 GOSUB 860 
70 FOR I * 1 TO 8 
80 ІР Т(І,1) < 4 THEN GOSUB 1 
380: IF YW > 2 THEN GOSUB 1900 
90 IF T(I,1) < 5 THEN X = T(I, 
9):Y * T(I,8):N * VAL ( MIDS ( 
U$,1,1)): GOSUB 10000 
100 NEXT I 
110 FOR E = 9 To 16 
120 IF T(E,1) < 4 THEN GOSUB 
2140 
130 NEXT E 
140 GOSUB 1020 
us GOSUB 2290 

IF VC < > 1 ANDDE< >1 
p GoTo 70 





170 GOSUB 2380 

180 END 

475 REM XXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX. 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXX 

476 REM XXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXX 

2410 REM ATRASO 

2420 PRINT "APERTE QUALQUER TE 
CLA";: GOSUB 30000 

2425 GET G$: 

2430 RETURN 

30000 FOR QQ = 1616 TO 2000 ST 
EP 128 

30010 FOR WW * 0 TO 39 

30020 POKE QQ + WW + 1024, PEE 
K (QQ + WW) 

30030 NEXT WW, QQ 

30040 RETURN 


[d) 


Modificações a serem feitas no pro- 
grama acima: 


2420 PRINT "APERTE QUALQUER TE 
CLA”; 





10 CLEAR 500:PMODE 3,1:COLOR2,1 
:PCLS:SCREEN 1,0:DU=RND(-TIMER) 
18 GOSUB 2410:CL8:END 

30 GOSUB 190 

40 GOSUB 470:GOSUB 3130 

50 GOSUB 860 

60 REM 

70 FOR 1=1 TO 8 

80 IF T(1,1)<4 THEN GOSUB 1380: 
IF Y>2 THEN GOSUB 1900 

90 IF T(1,1)<5 THEN COLOR 3:DRA 
W"BM"*STRS$ (T(I,9) *8) *^, "*STRS (T 
(1,8) *8) :UU-VAL (MID$ (U$,I,1)) :A 
$=UC$ (UU) :GOSUB 3000 

100 NEXT I 

110 FOR E=9 TO 16 

120 IF T(E,1)<4 THEN GOSUB 2140 
130 NEXT E 

140 GOSUB 1020 

150 GOSUB 2290 

160 IF VC<>1 AND DE<>1 THEN 60 
170 GOSUB 2380 

190 REM INICIO 

200 VC=0:DE=0 

2410 REM ATRASO 

2420 DRAW"BM80,176":AS="APERTE 
QUALQUER TECLA” :GOSUB 3190 

2425 G$-INKEYS:IF G$-"" THEN 24 
25 


2426 LINE(0,176)-(255,183) , PRES 


ET,BF 
2430 RETURN 


Em primeiro lugar, todos os micro- 
computadores, com excecáo dos perten- 
centes às linhas Apple e TK-2000, lim- 
pam a memória. O TRS-Color selecio- 
na o modo gráfico. Em segvida, as ro- 
tinas que criam os blocos gráficos e de- 
senham o mapa sáo chamadas. 

O laço principal começa na linha 60 
e termina na linha 160. Ele permite que 
tanto o jogador quanto o computador 
dêem ordens às suas respectivas unida- 
des. Depois, a rotina que faz com que 
as unidades obedeçam às ordens é exe- 
cutada dezesseis vezes, seguida de uma 
chamada para verificação de final de jo- 
go. O laço se repete enquanto um dos 
lados não vencer. 

Ao final da listagem (começando na 
linha 2410), temos uma rotina encarre- 
gada de provocar uma pausa em deter- 
minados momentos do jogo. 


AS INSTRUCÓES 


Ao ser executado, o programa dese- 
nha o mapa com os diferentes terrenos, 
a moldura e as tropas beligerantes. 

Este é o momento de planejar sua es- 
tratégia. Uma série de mensagens sur- 
girá na janela de texto. Comecando com 
a unidade um, sáo mostrados na tela o 
número e o tipo de homens da unidade, 
juntamente com suas últimas ordens — 
“ALTO”, por exemplo. O jogador é en- 
tão questionado sobre uma possível mu- 
dança de ordens. 

Se a resposta for Sim, um menu com 
as opções FOGO, ALTO, MARCHE e 
STATUS é exibido. A opção de atirar 
aplica-se somente aos arqueiros e, se se- 
lecionada indevidamente para qualquer 
outra unidade, surgirá na tela a mensa- 
gem “SEM ARCOS”. Quando a opção 
MARCHE for selecionada, o computa- 
dor REA que se indique a direcáo 
(N,S,L,O). 

Esse | processo se repete para cada uni- 
dade, cuja cor é modificada para orien- 
tar o jogador. 


E FALTA? 


Neste estágio, Capa e Espada é um 
jogo de guerra bem simples, mas, ain- 
da assim, bastante divertido. 

Na última parte da série, veremos co- 
mo transformar o computador em um 
jogador mais habilidoso. Mas, especial- 
mente se vocé for um principiante, ten- 
te jogar Capa e Espada como está, pa- 
ra apreciar os principais aspectos desse 
tipo de jogo. 

















Como se Willie já nào tivesse proble- 
mas suficientes com os buracos, as ser- 
pentes e a maré, uma nuvem escura pro- 
mete chuva, ameacando molhar seu lan- 
che! Mas náo se preocupe se vocé náo 
for usuário do Spectrum ou do MSX. 
Troveja apenas nas versóes de Avalan- 
che para esses micros. 

Willie está com mais sorte no progra- 
ma do TRS-Color. Náo há nuvens no 
céu e um belo sol de veráo brilhará du- 
rante todo o jogo. 


A seguinte rotina desenha uma nu- 
vem que se movimenta de acordo com 
a diregáo do vento: 


10 REM org 58795 

20 REM cld ld a, (57347) 
30 REM dec a 

40 REM ld (57347) ,a 
50 REM cp O 

60 REM jr z,cdm 

70 REM ret 

80 REM cdm ld a,6 
90 REM 1d (57347),a 
ВЕМ 14 а,45 

REM 1d bc,16384 
REM 1d hl, (57345) 
REM 1d d,3 

REM 1d e,2 

REM call blk 

REM 1d a,(57348) 
REM cp 0 

REM jr z,crt 

REM dec hl 

REM jr chm 

REM crt inc hl 
REM chm 1d (57345),hl 
REM 1d bc,57144 
REM 1d a,47 

REM 1d d,3 

REM ld е,2 

REM call blk 

REM 1d de,129 
REM sbc hl,de 
REM jr nz,cnr 
REM ld a,0 

REM 14 (57348),а 
REM ret 

REM cnr 1d de,144 
REM 1d hl,(57345) 
REM sbc hl,de 
REM jr nz,cnl 
REM ld a,l 

REM 1d (57348),a 


400 REM cnl ret 
410 REM org 58970 
420 REM blk * 


А posição de memória 57347 contém 
o atraso da nuvem. Essa variável con- 
trola a rapidez com que ela se movimen- 
ta pelo céu. Quando se inicializa o nível 
do jogo, a velocidade é especificada por 
meio de um número que é carregado 
nessa posição. 

Depois de carregado no acumulador, 
o atraso da nuvem é decrementado e ar- 
mazenado de volta em 57347. Se seu va- 
lor tiver sido reduzido a zero, as instru- 
ções ep O e jr z saltam a instrução ret e 
dão prosseguimento à rotina que movi- 
menta a nuvem. Caso contrário, o pro- 
cessador retorna e adia o movimento da 
nuvem até que o valor do atraso tenha 
sido reduzido a zero. 


CEU AZUL 


A rotina encarregada de movimentar 
a nuvem comega acertando a variável de 
atraso. Repare que, se o valor desta já 
foi reduzido a 0, um outro decremento 
resultaria em 255. Para que o atraso che- 
gasse novamente a 0, a rotina precisa- 
ria ser chamada 256 vezes — o que tor- 
naria o movimento da nuvem extrema- 
mente lento, Para evitar que isso ocor- 
ra, O número 6 é carregado no acumu- 
lador e colocado no endereço 57347. 
Com o atraso assim restabelecido, uma 
suave e refrescante brisa passa a empur- 
rar a nuvem, o que você pode constatar 
observando a tela. 

O número 45 é carregado no acumu- 
lador. Ele será aproveitado pela rotina 
bik, que imprime um bloco de caracte- 
res. As dimensões do bloco devem ser 
carregadas nos registradores D e E — D 
carrega o número de colunas e E, o nú- 
mero de linhas. A rotina blk, por sua 
vez, utiliza a rotina print, que tem sido 
empregada com freqüência neste jogo. 
O par de registros HL deve, então, car- 
regar a posição de tela; o par BC, o 
apontador de dados, e o acumulador A, 
a cor do caractere. 

O número 5 — código da cor azul 
ciano sobre azul ciano — é carregado no 
acumulador, pois a rotina imprime ca- 
racteres de céu sobre a nuvem, apagan- 


AVALANCHE: 
O TEMPO FECHA 


Meteorologia pode náo ser seu ponto 
forte, mas chegou a hora de adicionar 
um pouco de tempestade ao jogo. 
Avalanche tem agora nuvens ou sol, 
conforme a versáo do programa. 


do-a. Depois disso, imprime a nuvem 
uma posição para a direita ou para a es- 
querda, dependendo da direção em que 
o vento está soprando. 

O par de registros BC é carregado 
com o endereço inicial dos padrões. Es- 
se endereço irá fornecer os dados apro- 
priados ao bloco azul de céu. O par HL 
é carregado com o conteúdo de 57345 
e 57346, que são os apontadores da po- 
sição atual da nuvem. 

A nuvem tem três colunas de compri- 
mento por duas linhas de altura. Assim, 
3 é carregado em D e 2, em E. Em se- 
guida, a rotina blk é chamada e impri- 
me o bloco de caracteres de céu azul, 
apagando a nuvem. 


DIREÇÃO DO VENTO 


A nuvem deve se movimentar na di- 
reção em que o vento está soprando. Pa- 
ra isso, utiliza-se a posição de memória 
57348, originalmente ajustada pela ro- 
tina de inicialização, como uma baliza. 
Se ela contém o valor 1, o vento está so- 
prando para a esquerda; se contém o va- 
lor 0, o vento está soprando para a 
direita. 

O conteúdo de 57348 é carregado no 
acumulador. Se seu valor for 0, a ins- 
trução jr z salta para o rótulo crt e o 
apontador de posição da nuvem é incre- 
mentado, movendo-se uma posição pa- 
ra a direita na tela. Se o conteúdo de 
57348 for 1, a instrução jr z não atua 
eo par de registros HL é decrementa- 
do, movendo o apontador de posição da 
nuvem um caractere para a esquerda. A 
próxima instrução jr z simplesmente sal- 
ta sobre a instrução inc. 


$ОРВА! 





Б 





ENS 


O conteúdo de HL é trazido de volta 
para o apontador de posigáo da nuvem, 
nos enderecos 57345, ajustando-o. Em 
seguida, o apontador de dados BC é car- 
regado com о епдегесо inicial dos da- 
dos da nuvem. 

O acumulador é carregado com 47 — 
código de branco sobre fundo ciano, a 
cor da nuvem. O registro D é carregado 
com 3eo registro E, novamente com 2. 
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a DESENHO DA NUVEM 8 MUDANÇA DE DIREÇÃO 
A DIREÇÃO DO VENTO E CÉU ENCOBERTO 
п OSCARACTERES Ш O MOVIMENTO DAS NUVENS 

DO CÉU AZUL M VERIFICAÇÃO DA POSIÇÃO 
п O EFEITO DO ATRASO M O SOL NO TRS-COLOR 











A nuvem é do mesmo tamanho daque- 
la que foi apagada. 

Depois disso, a rotina blk é chama- 
da e imprime a nuvem em sua nova po- 
sição na tela. 

O movimento da nuvem pode levá- 
la até o canto do vídeo. A parte dela que 
ultrapassar a primeira ou a última co- 
luna será impressa na linha seguinte ou 
na linha de cima, provocando a desfi- 
guração de sua forma. 

Para evitar que isso aconteça, o pro- 
grama verifica primeiro se a nuvem al- 
cançou o extremo esquerdo do vídeo. O 
par DE é carregado com 129 — a posi- 
ção de tela do canto esquerdo da linha. 
Esse valor é subtraído do apontador de 
posição da nuvem no par HL. Se o re- 





sultado não for 0, a nuvem não chegou 
no canto esquerdo. A instrução jr nz sal- 
ta então para verificar se ela alcançou 
o canto direito. 

Se o resultado for 0, a nuvem atin- 
giu o canto esquerdo e o salto não ocor- 
re. O acumulador é então carregado 
com 0 e esse valor é transferido para a 
baliza de direção do vento, de modo que 
a nuvem se desloque para a direita na 
próxima vez. 

A rotina err verifica se a nuvem che- 
gou ao canto esquerdo do vídeo sub- 
traindo o número 144 do apontador de 
posição. Se ela atingiu o canto direito 
da linha, o valor 1 é carregado no indi- 
cador da direção do vento. Na próxima 
vez, à nuvem irá para a esquerda. 


O BLOCO DA NUVEM 


Esta rotina imprime um bloco de ca- 
racteres na tela, com D colunas de com- 
primento por E linhas de altura. 


10 REM org 58970 
20 REM blk push hl 
30 REM blj push de 
40 REM push hl 

50 REM z push de 
60 REM call print 
70 REM inc hl 

80 REM pop de 

90 REM dec d 

100 REM jr nz,z 
110 REM pop hl 

120 АЕМ 10 де, 32 
130 REM add hl,de 
140 REM pop de 

150 REM dec e 

160 REM jr nz,blj 
170 REM pop hl 

180 REM ret 

190 REM org 58217 
200 REM print * 


O programa anterior, que movimen- 
ta a nuvem, utiliza a rotina blk. Portan- 
to, nào irá trabalhar até que a rotina que 
acabamos de apresentar esteja guarda- 
da na memória. Esta, por sua vez, nào 
entrará em funcionamento sem que a ro- 
tina print, que também é chamada, se 
encontre na memória. 


É 0 BLOCO CERTO? 


O apontador da posicáo de tela em 
HL e o número de colunas e linhas que 
estáo em DE sáo armazenados na pilha 
duas vezes. Isso é feito porque a rotina 
trabalhará com duas dimensóes, usan- 
do dois lagos. 

Como os parámetros já estáo arma- 
zenados, a rotina print é chamada e im- 
prime o primeiro caractere na tela. O 
par HL é incrementado, movendo-se um 
caractere para a direita. As dimensões 
do bloco são recuperadas da pilha e o 
parâmetro horizontal — equivalente ao 
número de colunas — é decrementado. 
Se o parâmetro não foi reduzido a 0, a 
instrução jr nz volta ao início do laço 
para imprimir outro caractere da nuvem 
nessa linha da tela. 











Quando o registrador D for 0, a pri- 
meira linha do bloco estará completa. 
Em seguida, recupera-se o par HL da pi- 
Iha e adiciona-se o número 32 ao seu va- 
lor. Como se trata de uma adigáo de nú- 
meros de dezesseis bits, a operação é fei- 
ta por intermédio do par DE. O resul- 
tado fica no par HL, fazendo com que 
esse apontador de tela se mova uma li- 
nha para baixo. O par DE é novamente 
recuperado da pilha, para ajustar o va- 
lor em D e para decrementar o valor em 
E. Esse registrador conta o nümero de 
linhas que falta. 

Se o valor no registro E nào tiver si- 
do reduzido a 0, a instrução jr nz man- 
da o processador de volta ao início do 
laço, para começar a impressão de uma 
nova linha. 

Quando o valor de E for 0, o processa- 
dor sai do laço e o par HL é recuperado 
da pilha, ajustando o apontador de tela 
para as checagens que serão realizadas. 
Lembre-se de que precisamos verificar 
se a nuvem não atingiu nenhum dos can- 
tos da tela. 

Depois disso, a rotina blk retorna ao 
programa principal deste artigo. 


Na versão de Avalanche para o TRS- 
Color, a inclusão de uma nuvem exigi- 
ria um conjunto adicional de dados ou 
padrões. Ainda que isso não constituís- 
se um problema, haveria um outro obs- 
táculo: o conjunto de cores já definido 
é azul, vermelho e verde — nenhuma de- 
las, portanto, é adequada para a nuvem. 
Como nesta versão a aventura transcor- 
re num dia muito quente — com o céu 
avermelhado —, uma nuvem não é real- 
mente essencial. A rotina a seguir mo- 
vimenta o sol durante o jogo. 


10 ORG 19727 
20 MOVSUN DEC 18258 
30 BNE SUNRET 





40 LDA 45 

50 STA 18258 

60 SYNC 

70 LDX $1569 

80 LDA 430 

90 MOVA PSHS A 

100 LDA 42 

110 MOVB ANDCC 4SFE 

120 PSHS CC 

130 CLRB 

140 MOVC PULS CC 
ROR B,X 
PSHS CC 
INCB 
CMPB 414 
BNE MOVC 
LSL,X 
PULS CC 
ROR,X 








230 DECA 

240 ВМЕ МОУВ 
250 LEAX 32,X 
260 PULS A 

270 DEC A 

280 ВМЕ МОУА 
290 SUNRET RTS 


Para testar a rotina, digite o seguin- 
te programa: 


10 EXEC 19426 
20 EXEC 19727 
30 GOTO 20 


A posição de memória 18258 contém 
a variável de atraso do sol. Essa variá- 
vel impede que o atraso risque o céu co- 
mo se fosse um disco voador, е é ajus- 
tada, inicialmente, com 5. 

A primeira instrução da rotina decre- 
menta o atraso do sol. Se o valor dessa 
variável for 0, a instrução BNE é des- 
viada para a instrução RTS do final da 


rotina e o processador retorna. Caso 
contrário, a instrução BNE não realiza 
o desvio e o processador continua com 
o restante da rotina. Em outras pala- 
vras, o movimento do sol sofre um atra- 
so, já que a rotina é executada uma vez 
a cada cinco chamadas. 

Logo que é chamada, a rotina ajusta 
o atraso do sol, colocando o número 5 
no acumulador e armazenando-o de vol- 
ta na posição de memória 18258. 


$\МСВОМ$МО 


O comando SYNC encarrega-se de 
sincronizar o restante da rotina com o 
sinal de TV. Isso é feito para resguar- 
dar a posigáo do sol da mudanga que se 
efetuará na tela. O registro X é carre- 
gado com o endereco na tela do canto 
superior esquerdo do sol. O acumulador 





A € carregado com 30 (o sol tem 30 li- 
nhas de altura), valor que se guarda na 
pilha. Em seguida, A é carregado com 
2 — um contador de lago que fará o sol 
se deslocar lateralmente dois pontos na 
tela. 

A operagáo AND é efetuada entre 
o registro de código condiciomal e o 
nümero hexadecimal $FE. Como a re- 
presentação binária de $FE é 11111110, 
os sete bits mais significativos do re- 
gistro de código condicional permane- 
cem inalterados, enquanto o bit menos 
significativo é ajustado com 0. Esse bit 
— ou seja, o bit O do registro de có- 
digo condicional — corresponde à ba- 
liza carry, que, portanto, é zerada nes- 
sa operação. 

O registro de código condicional é 
guardado na pilha. O registrador B, 
ajustado com 0, será usado como um 
compensador. A rotina está ajustada e 
pronta para realizar o deslocamento. 


Kua 





A parte seguinte da rotina que esta- 
mos examinando desloca o sol pelo céu. 
Para isso recupera da pilha o registro de 
código condicional, garantindo que, na 
primeira passagem do laço, o valor da 
baliza carry seja zero. 

A instrucáo ROR B,X roda uma po- 
sigáo para a direita os bits do enderego 
da tela apontado por X +B. A rotação 
desloca todos os bits. Assim, o último 
lugar desocupado no processo é carre- 
gado com o conteúdo da baliza carry, 
eo bit que ultrapassou o fim do outro 
lado é colocado nessa baliza. 

Os pontos que formam essa parte do 
sol são deslocados uma posição para a 
direita. O ponto no canto esquerdo é 
aceso (ajustado para 1) ou apagado 
(ajustado para 0, ou seja, adquire a cor 
do céu). O resto desse byte do sol é des- 
locado um ponto. 

O ponto colocado na baliza carry é 
preservado e a baliza volta para a pilha. 
O contador de laço em B é incrementa- 
do e comparado a 14 — número de ca- 
racteres da parte do céu ocupada pelo 
sol. A comparação permite-nos verifi- 
car se o último byte da área já foi des- 
locado. Se B for menor que 14, a ins- 
trução BNE manda o processador de 
volta, para continuar com o próximo ca- 
ractere. Chegando ao último caractere, 
o processador salta do laço. 


FINAL LIVRE 


Esta aventura se passa no hemisfério 
norte e o sol se move da esquerda para 


a direita. Seria muito artificial se, ao al- 
cançar o final da tela ou esbarrar no es- 
core, o sol começasse a fazer o caminho 
de volta — isto é, da direita para a es- 
querda. 

Porém, como não existe noite na re- 
gião de Avalanche, nosso astro reapa- 
recerá à esquerda sempre que concluir 
seu percurso na tela. 

A instrução LSL ,X promove o des- 
locamento lógico para a esquerda do 
conteúdo da posição de tela apontada 
por X. O registrador X não foi altera- 
do nesta parte da rotina, e, por isso, ain- 
da aponta para o canto inferior esquer- 
do da figura do sol. Assim, o bit do can- 
to esquerdo é deslocado para fora do re- 
gistrador. O bit do canto direito, por 
sua vez, que já tinha sido deslocado do 
byte, é recuperado da pilha, voltando 
para a baliza carry. Em seguida, a ins- 
trução ROR ,X faz com que ele execute 
uma rotação sobre o canto esquerdo da 
posição de tela. 

O contador em A é decrementado e, 
se seu valor ainda não tiver chegado a 
0, o processador salta para deslocar o 
sol mais um ponto. 

Quando o deslocamento correspon- 
der a dois pontos, a instrução LEAX 
32,X adiciona o valor 32 ao conteúdo 
do registro X e movimenta o apontador 
da posição de tela para a próxima linha 
abaixo do sol. O contador de linha, re- 
cuperado da pilha para o acumulador, 
é, então, decrementado. Se seu conteú- 
do não for igual a 0, a instrução BNE 
manda o processador de volta para ro- 
lar a próxima coluna de caracteres. Ca- 
so contrário, o processador salta para 
a instrução RTS e retorna. 


"E AI 


A rotina a seguir coloca na tela uma 
nuvem que se move pelo céu, empurra- 
da pelo vento: 


10 org 54270 
20 ld a, (-5208) 


30 deca 

40 1d (-5208),a 
50 сро 

60 jr z,cl 

70 ret 


80 cl 1d a,6 
90 1d (-5208),a 


100 1d a,(-5207) 
110 ср 0 

120 3r z,ct 

130 ld h1,-5210 

140 dec (hl) 

150 jr cm 

160 ct ld h1,-5210 
170 inc (hl) 

180 cm ld hl,(62413) 
190 14 Б,6 


200 14 а,(-5210) 
210 1а с,а 

220 ld 4,20 

230 1d e,1 

240 call -11168 
250 1d hl,(62413) 
260 1d de,4 

270 add hl,de 
280 19 Ь,6 

290 ld a, (-5210) 
300 add a,16 

310 14 с.а 

320 18 4,24 

330 18 е,1 

340 call -11168 
350 1а а, (-5210) 
360 ср 2 

370 jr nz,cr 

380 ld a,0 

390 14 (-5207) ,a 
400 ret 

410 cr ld a,(-5210) 
420 cp 230 

430 jr nz,cf 

440 14 а,1 

450 ld (-5207),a 
460 cf ret 

470 end 


О епдегесо — 5208 contém a variá- 
vel de atraso da nuvem. Essa variável 
controla a rapidez com que a nuvem se 
move. A velocidade foi especificada na 
parte da rotina principal que inicializa 
as variáveis, com a armazenagem do nü- 
mero 6 naquele endereco. 

O atraso da nuvem é carregado no 
acumulador, decrementado e novamen- 
te armazenado em — 5208. Quando a 
variável é reduzida a 0, as instruções cp 
0 e jr z saltam a instrução ret, e o pro- 
cessador executa o restante da rotina 
que movimenta a nuvem. Enquanto is- 
so não ocorre, o processador retorna e 
adia o movimento da nuvem. Em outras 
palavras, a rotina é executada uma vez 
a cada seis chamadas. Utilizamos essa 
técnica de controle do sincronismo em 
várias partes deste jogo. 


DIRECAO DO VENTO 


Antes de mais nada, a rotina acerta 
o atraso da nuvem. Lembre-se de que, 
para que ela prossiga, o conteúdo da va- 
riável de atraso precisa ser reduzido a ze- 
ro. Um outro decremento teria como re- 
sultado 255, pois, na representação bi- 
nária adotada pelo processador, — 1 é 
o mesmo que 255, Assim, para uma no- 
va execução, a rotina teria que ser cha- 
mada 255 vezes, o que resultaria num 
movimento extremamente lento da nu- 
vem. Por esse motivo, o número 6 é car- 
regado em — 5208 pelo acumulador, 

Em seguida, o conteúdo de — 5207 é 
colocado no acumulador. Essa variável 
contém a direção do vento. Se for 0, o 








vento sopra para a direita; se for 1, pa- 
ra a esquerda. O endereco — 5210 con- 
tém a posigáo horizontal da nuvem. 
Apenas essa posição precisa ser altera- 
da, já que a nuvem se move na mesma 
linha, de um lado para outro. 

O valor de — 5207 é testado pela ins- 
trução cp 0. Se for 0, a instrução jr z sal- 
ta para o rótulo ct, o valor em — 5210 
é incrementado através de HL e a nu- 
vem se move para a direita. Se for 1, o 
salto não ocorre, o valor em — 5210 é 
decrementado através do par HL e a nu- 
vem se move para a esquerda. 


FORMACÁ! NUVEM 


Utilizamos sprites para imprimir a 
nuvem na tela do MSX. No final deste 
artigo, vocë terá explicaçóes mais deta- 
Ihadas sobre o emprego desse recurso 
gráfico em código de máquina. 

Para que esta parte do programa fun- 
cione, os padróes das figuras devem es- 
tar na memória. Além disso, é preciso 
que a rotina — 12121 — que transfere es- 
ses padróes da RAM para a tabela de 
padrões de sprites na VRAM — tenha 
sido executada. Se você estiver acompa- 
nhando a segiiência do jogo e executar 
a rotina principal antes da que apresen- 
tamos neste artigo, as condições acima 
serão cumpridas. 

A rotina — 11168 é utilizada duas ve- 
zes para colocar na tela os dois sprites 
que compõem a nuvem. Assim, Os pa- 
râmetros necessários precisam ser car- 
regados nos registros adequados. 

O par HL deve conter o endereço ini- 
cial do sprite na Tabela de Atributos de 
Sprites (TAS). O endereço inicial dessa 
tabela está armazenado nas posições 
62413 e 62414. Como a nuvem é a pri- 
meira figura do jogo que utiliza o spri- 
te, este será o endereço do primeiro spri- 
te da nuvem. O registro B, que deve con- 
ter a coordenada Y do sprite na tela, é 
ajustado com o valor 6. O registro C 
conterá a coordenada X. Para isso, o 
conteúdo de — 5210 é colocado em C pe- 
lo acumulador. O registro D contém o 
código do padráo de 32 bytes que for- 
та о sprite — no nosso caso, a primei- 
ra parte da nuvem tem o código 20. Fi- 
nalmente, o registro E deve conter a cor 
do sprite — usamos aqui o preto, cujo 
código é 1. 

Para o sprite que completa nuvem há 
algumas alterações. Como se trata do se- 
gundo sprite do jogo, soma-se 4 ao en- 
dereço inicial da TAS no par HL. A 
coordenada Y em B permanece 6. A 
coordenada X em C éo resultado da so- 
ma do conteúdo anterior desse registro 
com 16. A operação é necessária porque 


imprimimos o segundo sprite que com- 
põe a nuvem ao lado direito do primei- 
ro, que tem dezesseis bits de comprimen- 
to. O código do segundo sprite da nu- 
vem é 24, valor colocado em D. Sua cor 
é a mesma — ou seja, o registro E con- 
tinua contendo o valor 1. 


SOPRANDO O VENTO 


É importante checar se a nuvem che- 
gou a um dos cantos do vídeo. Caso is- 
80 ocorra, estaremos decrementando o 
valor 0 ou incrementando o valor 255 na 
coordenada horizontal, o que resultará 
em erro nessa coordenada. 

Verificamos primeiro se o conteüdo 
de —5210 é 2 ou 230. No primeiro ca- 
so, alteramos a diregáo do vento em 
— 5207 para 0, ou seja, para a direita; 
no segundo, alteramos para 1, ou seja, 
para a esquerda. Seo endereço — — 5210 
não contiver nenhum desses dois valo- 
res, a direção não é alterada e o proces- 
sador retorna. 


UTILIZACAO DE SPRITES 


O sprite é um bloco de 16 X 16 pon- 
tos ou de 8 X 8 pontos, dependendo do 
tamanho selecionado. No primeiro ca- 
so, seus padróes ocupam 32 bytes, o que 
nos permite definir apenas 64 sprites di- 
ferentes. No segundo caso, os padróes 
ocupam oito bytes, como um caractere 
gráfico comum, e podemos definir até 
256 sprites diferentes. Esses padróes de- 
vem ser colocados na tabela de padrões 
de sprites, cujo endereco inicial está ar- 
merna nas posições 62415 e 62416 da 
RA! 


Os sprites podem ser quatro vezes 
maiores do que os blocos gráficos co- 
muns, mas nào é só isso o que os distin- 
gue. Normalmente, para movimentar 
um caractere gráfico na tela, temos que 
apagá-lo de sua posicào anterior e im- 
primi-lo na nova posição. Um sprite po- 
de ser movimentado facilmente pela te- 
la: alterando-se suas coordenadas X e Y 
de impressão, ele será automaticamen- 
te apagado da posição que ocupava e 
impresso na nova posição. Tudo isso é 
feito pelo processador de vídeo. 

Esse recurso gráfico tem, entretanto, 
suas limitações. Os sprites são definidos 
numa tabela de 256 bytes, a já mencio- 
nada Tabela de Atributos de Sprites — 
TAS. Os atributos de cada sprite ocu- 
pam quatro bytes; portanto, não pode- 
mos colocar ao mesmo tempo na tela 
mais do que 32 sprites diferentes, inde- 
pendentemente do tamanho que tenha 
sido selecionado. 


O primeiro byte guarda a coordena- 
da Y; o segundo, a coordenada X; o ter- 
ceiro, o número do sprite (é possível es- 
colher entre 64 e 256 padrões diferentes, 
dependendo do tamanho escolhido); o 
quarto e último, a cor. Como o sprite 
tem apenas cor de frente, os bits apa- 


gados são transparentes na tela, o que 
nos permite criar interessantes efeitos 
visuais. 

Uma dúvida pode surgir: o que acon- 
tece se as coordenadas de dois ou mais 
sprites coincidirem? Os sprites são hie- 
rarquizados segundo a ordem em que 
foram definidos na TAS — ou seja, o 
sprite que ocupa os quatro primeiros 
bytes na TAS tem precedência sobre o 
que ocupa os quatro bytes seguintes e as- 
sim por diante. Em resumo, o sprite que 
tem precedência aparecerá na frente dos 
demais. A justaposição de figuras assim 
obtida muitas vezes é aproveitada na 
composição de efeitos visuais. Mas não 
se esqueça de que só podemos ter até 
quatro sprites numa mesma linha. Se 
tentarmos colocar um quinto sprite, o 
último na ordem hierárquica desapa- 
recerá. 

A rotina a seguir coloca na TAS os 
atributos de um sprite, ou seja, coloca 
um sprite na tela. 


10 org -11168 
20 ld a,b 
30 push de 
40 push bc 
50 push hl 
60 call 77 
70 pop hl 
B0 pop bc 


90 inc hl 
100 1d a,c 
110 push hl 
120 call 77 
130 pop hl 
140 pop de 
150 inc hl 
160 14 а,а 
170 push de 
180 push hl 
190 call 77 
200 pop hl 
210 pop de 
220 inc hl 
230 14 а.е 
240 са11 77 
250 ret 

260 end 


Essa rotina utiliza os parámetros for- 
necidos pelo par HL e pelos registros B, 
C, DeE para colocar na TAS os atri- 
butos de um sprite. 

O par HL deve conter o епдегесо іпі- 
cial do sprite na TAS; o registro B, a 
coordenada Y; o registro C, a coorde- 
nada X; o registro D, o código do spri- 
te e o registro E, a cor do sprite. 
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AFINAL, QUAL É Ө) 
O SEUSOM? ` 


Use o seu microcomputador para explorar 
a tecnologia da gravacáo sonora с> 
digital. Um simples programa permite а 
análise do som, assim como à 

reproducáo de um breve trecho musical. 



















Todo som tem dois componentes: vo 
lume e freqüéncia. Habitualmente, o ou 
vido humano é capaz de interpretar si- 
nais complexos, transformando as vi- 



















O tragado imita a onda sonora original. 


brações do ar em sons reconhecíveis. 
Nessa forma, o som é um sinal analógi- 
co — isto é, varia continuamente den- 
tro de um intervalo, e qualquer modifi- 
cação é significativa. Os computadores, 
ao contrário dos seres humanos, não 
conseguem reconhecer esse tipo de va- 
riação e precisam de um sinal digital. 
Assim, cada variação é representada por 
um valor diferente, O ou 1, presença ou 
ausência de sinal, 

Mesmo que o computador não seja 
capaz de interpretar diretamente um si- 
nal sonoro, não é difícil converter a o) 
la sonora analógica de uma melodia, 
por exemplo, em informação digital. 

Essa técnica é a última novidade nos 
estúdios de gravação, que estão trocan- 
do as fitas tradicionais (onde se grava 
o sinal analógico) por sistemas compu- 
tadorizados que gravam as músicas em 
discos (discos de computador). A van- 
tagem de se gravar o som na forma di- 
gital baseia-se na facilidade com que se 
pode combinar o sinal gravado com ou- 
tros sons. Além disso, uma vez grava- 
do nessa forma, o risco de distorção do 
sinal devido a limitações do equipamen- 
to é bem menor. 


ICA EM SEU MICRO 


Embora a tecnologia necessária pa- 
ra esse tipo de gravação se restrinja a es- 
túdios com equipamentos altamente so- 
fisticados, a maioria dos microcompu- 
tadores tem os recursos básicos que per- 
mitem a exploração dessa técnica. Ca- 
da vez que carregamos um programa 
gravado em fita cassete, estamos repro- 
duzindo um sinal que foi registrado na 
forma digital. Mas quem já ouviu uma 
fita de programas sabe que ela produz 
som, ainda que não muito agradável. 

Sons e melodias podem ser colocados 
em seu micro, desde que você recorra às 
técnicas de programação adequadas (em 
linguagem de máquina, inclusive). Pa- 
ra isso, é necessário apenas introduzir 





um sinal analógico através do plugue de 
gravação e ensinar o computador a in- 
terpretá-lo, transformando-o em um si- 
nal digital. 

Uma vez feito isto, o programa po- 
derá armazenar o sinal digital na memó- 
ria, ou mesmo mostrá-lo em forma grá- 
fica, como faz o programa deste о. 
Isso significa que o seu computador se- 
rá capaz agora de transformar qualquer 
som em nümeros, que podem ser usa- 
dos para produzir um gráfico na tela ou 
ser armazenados na memória para re- 
produção posterior. 


O TRAÇADO DO SOM 


O programa pode reproduzir um tra- 
ico que corresponde ao som to- 
cado ро: Quando este é liga- 
do, uma série de linhas regularmente es- 
pagadas surge na tela (quanto maior a 
freqüéncia, mais alta é a linha). No mo- 
mento em que a tela fica cheia, o traga- 
do desaparece, recomecando do canto 
esquerdo do vídeo. 


GRAVE 0 SOM 


O programa também permite, numa 
segunda opção, a gravação digital do si- 
nal de entradá — o tamanho do trecho 
que se pode gravar é bem limitado, por 
razões que explicaremos mais adiante. 
Uma terceira opção possibilita a repro- 
dução do som obtido. 


COMO FUNCIONA 


Como o computador não pode inter- 
pretar diretamente o sinal sonoro ana- 
lógico, nós o programamos de modo a 
atribuir valores digitais a esse sinal. O 
programa verifica repetidamente os si- 
nais na porta de entrada do cassete em 
intervalos muito curtos de tempo (mi- 
lhares de vezes por segundo). Esses si- 
nais só podem ser O ou 1 — não há va- 
lores intermediários como no sinal ana- 
lógico. A alta velocidade com que a por- 
ta é lida repetidas vezes faz com que as 
variações do sinal digital imitem o sinal 
analógico. 

Imaginemos, por exemplo, que entra- 
mos com um sinal de freqüéncia de 256 
Hz (nota C). Esse sinal atinge o pico 256 
vezes por segundo, e cada pico dura 
1/512 de segundo. Se fizermos a leitura 
da porta 2000 vezes por segundo, obte- 
remos um pico a cada quatro leituras. 
É assim que a variação do sinal digital 
imita a onda sonora analógica — quan- 
to mais rápidas forem as leituras, mais 





precisa será a conversão analógico- 
digital. 

O programa utiliza os valores digitais 
obtidos da fita dos modos descritos. Pa- 
ra mostrar a onda sonora graficamen- 
te, ele calcula quantos picos — ou quan- 
tos "uns" — obteve por unidade de 
tempo, o que equivale à freqüéncia mé- 
dia daquele intervalo. Novamente, 
quanto mais rápida for a leitura, mais 
preciso será o gráfico. 

O processo de gravação é semelhan- 
te. O programa toma oito leituras e as 
armazena em um byte de memória, Es- 
se procedimento é repetido para cada oi- 
to leituras. Como um elevado número 
de leituras é feito em um curto espaço 
de tempo, o programa utiliza grande 
quantidade de memória — no Spec 
trum, por exemplo, toda a memória se- 
ria consumida por um trecho musical de 
apenas oito segundos de duração. 

A reprodução do sinal digital consti- 
tui o processo inverso, no qual a infor- 
mação armazenada na memória é envia- 
da ao alto-falante para imitar as vibra- 
ções lidas na porta do cassete durante 
a gravação. Devido às limitações do 
equipamento, o som produzido está lon- 
ge de ser de alta-fidelidade. 


O programa do Spectrum é dividido 
em duas partes — um programa BASIC 
com as rotinas de gravação, execução e 
de traçado gráfico, e uma rotina em lin- 
guagem de máquina, para ler a entrada 
do gravador cassete. 

- Digite a primeira parte e grave-a uti- 

lizando a instrução: 

SAVE 'ANALYSER' LINE 5 

10 CLEAR 26000: RESTORE : 

: LET x=65368 

20 FOR n=1 TO 108 

30 READ POKE x,a 

LET t=t+a 

LET x-x*l 

NEXT n 

70 IF t=12721 THEN PRINT 

.": STOP 

80 PRINT "ERRO NAS LINHAS 'DA 

TA'": STOP 

90 DATA 14,64,175,8,17,208,7, 

219,254,230,64,185,40,7,62,64 

,169,79,8,60,8,29,32,239,175, 
30,255,21,24,230,8, 


LET 





"OK 












203,63,6,0,79,201 

100 DATA 243,33,144,101,17,80, 
255,6,7,219,2 203,119,32,2, 
203,254,203, 6,244,3 


187,32,237,12 
201,243,33,14 
,8,203,70,40,4 

110 DATA 62,0,211,254,62,255, 
211,254,203,14,16,240,35,125, 


86,32,2 
01,17,80,255,6 





187,32,233,124,186,32,229,251, 
201 


A seguir, digite a segunda parte, que 
contém a rotina em código dentro de 
suas linhas DATA. A linha 80 verifica 
se houve algum erro de digitação nas li- 
nhas DATA, por meio da soma dos nú- 
meros. Execute (RUN) o segundo pro- 
grama e grave a rotina em código na fi- 
ta, numa posição imediatamente poste- 
rior ao primeiro programa com: 

SAVE 'ANALYSER' CODE 65368,109 

Ao ser rodado, o primeiro programa 
se auto-executará a partir da linha 5, 
carregando entáo a rotina em código. 
Completado o processo, surgirá na tela 
um menu com as três opções. 

A primeira delas solicitará que conec- 
temos o gravador e toquemos algum 
som. Quando fazemos isso e pressiona- 
mos qualquer tecla, é desenhado um 
gráfico contínuo da evolução da fre- 
qüéncia no tempo. Aperte M para retor- 
nar ao menu principal ou F para conge- 
lar a imagem. Poderemos descongelar a 
imagem apertando qualquer tecla. 

Se escolhermos a opção dois, o pro- 
grama solicitará que iniciemos a execu- 
ção da música no gravador, informan- 
do quando a gravação estiver completa 
e retornando então ao menu. Podemos 
tocar qualquer som, mas os curtos e 
agudos serão melhor reproduzidos. As 
limitações do Spectrum fazem com que 
o som seja reproduzido mais lentamen- 
te do que foi gravado; além disso, os 
sons mais graves são filtrados — a por- 
ta de entrada do gravador não é capaz 
de diferenciar os sons abaixo de uma 
certa fregiiência. 

É evidente que ninguém vai querer 
gastar quase toda a memória do seu mi- 
cro simplesmente para incorporar uns 
poucos segundos de um som dissonan- 
te em outros programas. Contudo, se 
você quiser experimentar, use: 


SAVE 'SOM" CODE 26000, 39360 


Para gravar a rotina em código que 
executa o som, digite: 


SAVE 'TOCA' CODE 65440,40 


A memória precisa ser protegida por 
CLEAR 25299. Para ouvir o som, digi- 
te RAND USR 65440. 

Tudo isso deixará apenas 3Kbytes de 
memória livres para seu programa, o 
que não é muito, a menos que você pro- 
grame em linguagem de máquina. 


5 CLEAR 25999: LOAD ""CODE 
10 GOSUB 200: GOSUB 500 
20 IF INKEYS="" THEN GOTO 20 


21 LET C=CODE INKEYS: IF C<49 
OR C>51 THEN GOTO 20 

22 GOSUB 30: GOSUB 200 

24 IF C=49 THEN GOTO 100 

25 IF C=50 THEN GOTO 600 

26 IF C=51 THEN GOTO 700 

30 FOR N=30 TO 50 STEP 3: 
SOUND .01,N: NEXT N: RETURN 

100 CLS : GOSUB 1000: PRINT AT 

12,4; BRIGHT 1;"PRESSIONE QUAL 

QUER TECLA" 

101 IF INKEYS$-"" THEN GOTO 
101 

102 SOUND .1,10 

104 CLS : GOSUB 150: GOSUB 800 

105 FOR X=0 TO 255: PLOT X,0: 

DRAW 0,USR 65368 

110 IF INKEYS="m" 

30: GOTO 10 

111 IF INKEY$-"f" THEN GOSUB 

801: GOTO 140 

130 NEXT X: CLS : GOSUB 150: 

GOSUB 800: GOTO 105 

140 PRINT AT 0,0;" 


THEN GOSUB 


^": SOUND 
.1,40: PAUSE 50: IF INKEYS="" 
THEN GOTO 140 
141 SOUND .1,10: 
104 
150 PRINT AT 0,2; BRIGHT 1;" 
PRESSIONE (M) PARA MENU ^: 
RETURN 
200 BORDER 5: 
CLS : RETURN 
500 PRINT AT 0,2; PAPER 2; INK 
7;" MENU - ANALISADOR SONORO 


CLS : GOTO 


PAPER 5: INK 0: 


510 PRINT AT 5,7;"1- GRAFICO D 
E BARRAS^;AT 7,7;"2- GRAVAR SO 
M";AT 9,7;"3- REPRODUZIR SOM" 
520 PRINT AT 15,4; PAPER 4;"PR 
ESSIONE (1) (2) OU (3)": 
RETURN 

600 PAUSE 20: GOSUB 1000: 
PRINT AT 13,0;"Qualquer tecla 
para GRAVAR" 

605 IF INKEYS-"" THEN GOTO 


605 

606 SOUND .05,20: CLS : PRINT 
AT 10,8;"AGUARDE": RAND USR 
65408: SOUND .1,30: CLS : 


PRINT AT 10,6; BRIGHT 1;" GRAV 
ACAO CONCLUIDA ": PAUSE 300: 
GOTO 10 

700 RAND USR 65440: GOTO 10 
800 PRINT AT 1,4; PAPER 4;" ( 
F) CONGELA A IMAGEM ": RETURN 


1,0; PAPER 4;" QU 
PARA CONTINUAR " 


801 PRINT AT 
ALQUER TECLA 
RETURN 

1000 PRINT AT 
rminal EAR do 
ador ao terminal EAR do 
8,0;"Spectrum. E toque alguma 
musica.": RETURN 


A rotina em código de máquina que 
lé a entrada do gravador encontra-se a 












O que é análise espectral? 

A análise espectral consiste na ob- 
tenção dos componentes de frequên- 
cia pura, presentes em uma determina- 
da onda sonora. Explicando melhor: 
uma onda sonora complexa, como o 
som de uma flauta, a voz humana, o 
ruído de uma britadeira etc. são mistu- 
ras de diversas frequências sonoras pu- 
ras. Por exemplo, em uma certa fração 
de tempo (medida em mi jundos), 
pode haver 12% de frequência 1000 
Hertz (ciclos por segundo de uma on- 
da senoidal), 8% de 1100 Hertz etc. 

O objetivo da análise espectral é 
quantificar cada frequência sonora pura 
presente em um som. Essa quantifica- 
ção, feita em termos da potência so- 
nora média, geralmente é apresentada 
na forma de um gráfico, com a frequiên- 
cia pura nas abscissas e a potência nas 
ordenadas. 

Existem diversos algoritmos para 
realizar essa análise em um computa- 
dor. O mais conhecido é o Fast Fourier 
Transform (FFT, Transformada Rápida 
de Fourier). 














partir da linha 1000 DATA. A soma dos 
números de cada linha está em seu tre- 
cho final para verificação, a fim de evi- 
tar que um erro de digitação acabe le- 
vando a um desastre. 

Digitado o programa, grave-o em dis- 
co ou fita antes de executá-lo. Quando 
isto é feito, um menu aparece na tela. 
Se houver algum erro nas linhas DATA, 
surgirá na tela uma mensagem “VERE 
FIQUE A LINHA (número. F 

Aperte 1 para fazer a primeira opção. 
O programa solicitará que posicionemos 
a fita e liguemos o gravador. Ao pres- 
sionarmos a tecla < ENTER >, a leitu- 
ra da fita começará, juntamente com o 
desenho do gráfico correspondente. 
Aperte M para retornar ao menu ou 
<SHIFT><Q> para congelar a 
imagem. 

Digite 2 para fazer a segunda opção 
(gravar um trecho). O programa faz as 
mesmas solicitações da opção 1. En- 
quanto a música estiver sendo executa- 
da, um gráfico colorido aparecerá na te- 
la. Quando a gravação estiver comple- 
ta, o gráfico será apagado e o progra- 
ma retornará ao menu. 

Aperte 3 para reproduzir a música 
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que acaba de gravar. Ao contrário do 
Spectrum, o TRS-Color executa a me- 
lodia na velocidade original. Se vocé 
quiser incorporar esse som a um outro 
programa, poderá gravá-lo em fita com: 


CSAVEM'MUSICA.',1536,13823,1536 


Se estiver usando disquetes, adicio- 
ne 1536 a estes valores. Para gravar a 
rotina em código que executa a müsica, 
utilize: 


CSAVEM 'TOCA',31000,31174,31091 


É necessário proteger o topo da memó- 
ria com CLEAR 200,30099 e PCLEAR 
8. Para executar o som, use EXEC 31091. 

Depois de tudo isso, deve restar mui- 
to pouco espago para seu programa; 
use-o economicamente. 


10 PCLEAR 8:CLEAR 200,30999:CLS 
:B=191 

20 K=31000 

30 READ A:IF А<0 THEN 60 

40 IF A<256 THEN POKE K,A:K=K+1 
:T=T+A:GOTO 30 

50 IF T<>A THEN PRINT "erro VE 
RIFIQUE A LINHA” ;1000+10*INT((K 
-31001)/20) :END ELSE T=0:GOTO30 
60 DEFUSRO=31000:DEFUSR1=31044: 
DEFUSR2=31091 

70 PRINT €14,"menu”:PRINT 6131, 
"1- GRAFICO DE BARRAS" :PRINT 61 
95,"2- GRAVAR UM TRECHO”: PRINT 


€259,"3- REPRODUZIR MUSICA GRAV 
ADA” 

80 AS=INKEYS:IF AS<"1” OR AS>"3 
" THEN 80 


90 ON VAL(AS) GOSUB 200,400,600 
100 CLS:GOTO 70 

200 PMODE 4:COLOR 0,5:CLS 

210 PRINT" POSICIONE O GRAVADOR 
» APERTE PLAY E TECLE <ENTER 
>" 

220 MOTOR ON:AUDIO ON 

230 IF INKEYS<>CHRS(13) THEN 23 


0 

240 MOTOR OFF:PRINT 8192,"PRESS 
IONE 'M' PARA MENU OU [SHI 
FT) € PARA CONGELAR IMAGEM” 

250 FOR G=1TO 4000:NEXT:MOTORON 
260 SCREEN 1,1 

270 PCLS:FOR X=0 TO 255:A=B-4*U 
SRO(0):IF А<0 THEN A*0 

280 LINE (X,B)-(X,A),PSET 

290 IF INKEYS="M” THEN X=255:NE 
XT:MOTOR OFF:RETURN 

300 NEXT:GOTO 270 





Um sinal analógico que entra 

pela porta do gravador cassete é 
lido 2000 vezes por segundo. 

Ao ultrapassar a voltagem limiar, o 
sinal é detectado e registrado 

como 1. Os sinais abaixo desse nível 
de tensão são registrados como 0. 
O traçado gráfico digital produzido 
imita a onda sonora analógica. 








APLICAÇÃO EM JOGOS 

O programa listado nesse artigo po- 
de tornar seus jogos mais interessan: 
tes. Como ele nos permite gravar na 
memória a imitação de qualquer som de 
entrada, fica fácil usar a reprodução 
desse som em um jogo. | 

Podemos, por exemplo, acrescentar 
muita emoção a uma aventura introdu- 
zindo no programa ruídos de explosões, 
tiros e até uma mensagem curta de pa- 
rabéns ao jogador. Digitaliżando os 
sons com o auxflio de nosso programa, 
eles ser&o ''tocados'' pelo alto-falante 
do micro no momento certo. Vocé há 
de concordar que, com esse truque, a 
qualidade do jogo será incomparavel- 
mente melhor 











400 CLS:PMODE3:MOTOR ON:AUDIO O 
N:PRINT" POSICIONE O GRAVADOR, 

APERTE PLAY E TECLE <ENTER>” 
410 IF INKEYS<>CHRS (13) THEN 410 
420 SCREEN 1,0:N=USR1 (0) 

430 MOTOR OFF:RETURN 

600 CLS:PRINT" REPRODUZINDO TR 
ECHO GRAVADO" 

610 N-USR2(0) 

620 PRINT 6129,"NOVAMENTE (S/N) 
2” 








630 AS=INKEYS:IF AS<>”"S” AND AS 
<>"N” THEN 630 
640 IF A$-"S" 
650 RETURN 
1000 DATA 26,80,206,255,32,142, 
2,233,204,0,0,102,196,37,10,16, 
163,132,48,31,1915 

1010 DATA 38,245,126,180,244,19 
5,0,1,32,7,102,196,36,237,16,16 
3,132,48,31,38,2067 

1020 DATA 245,126,180,244,26,80 
.142,0,0,48,31,38,252,220,25,13 
1,0,1,52,6,1847 

1030 DATA 158,186,198,8,134,11, 
74,38,253,118,255,32,105,132,90 
+39,4,18,18,32,1903 

1040 DATA 4,48,1,198,8,172,228, 
38,231,53,134,26,80,182,255,1,1 
32,247,183,255,2476 

1050 DATA 1,182,255,3,132,247,1 
83,255,3,182,255,35,138,8,183,2 
55,35,158,186,220,2916 

1060 DATA 25,131,0,1,52,6,134,8 
.52,2,230,128,88,36,4,134,252,3 
2,3,79,1397 

1070 DATA 33,253,183,255,32,134 
,8,74,38,253,33,251,106,228,39, 
8,109,159,31,64,2291 

1080 DATA 30,136,32,224,134,8,1 
67,228,172,97,38,214,53,146,167 
9,-1 


THEN 600 
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MILITAR 


Neste ültimo artigo da série sobre 
jogos de guerra, transformaremos o 
micro em um adversário inteligente. 
Veja como a heurística pode 
melhorar a estratégia de seu inimigo. 


O jogo está completo, mas, até o mo- 
mento, nào oferece maiores dificulda- 
des ao jogador. Como o computador só 
pode fazer movimentos aleatórios pelo 
tabuleiro, a superioridade do homem so- 
bre a máquina torna-se absoluta em ape- 
nas algumas partidas. Qualquer estraté- 
gia é capaz de derrotar o computador, 
pois este faz seus lances independente- 
mente dos movimentos do jogador. 

Quando a vitória fácil começa a nos 
entediar, a saída é fortalecer nosso opo- 
nente. Isso significa incluir mais rotinas. 
Como a principal dificuldade na progra- 
mação de jogos do tipo Capa e Espada 
é exatamente a limitação da memória — 
sobretudo nos micros das linhas Apple 
e TK-2000 —, tudo o que se adicionar 
ao programa deve reunir simplicidade e 
eficácia. 


UM INIMIGO MAIS FORTE 


Há duas maneiras de tornar o com- 
putador um adversário mais forte. Uma. 
delas consiste em reconhecer sua limi- 
tação intelectual E 
periores, em força, às do jogador. А 
maioria dos j jogos comerciais adota es- 
sa solução, que é, sem dúvida, a de pro- 
gramação mais fácil. 

Para observar o efeito de tal mudan- 
(a, basta que se adicione uma linha ao 
programa. Vocé logo perceberá que es- 
ta nào é realmente a saida ideal. Con- 
tudo, nào custa experimentá-la: seu üni- 
co trabalho será introduzir — e depois 
apagar — a linha que dá a "força ex- 
tra” ao computador. 

O elemento da matriz da tropa que 
contém a força inicial da unidade é 0 6. 
Para aumentá-lo, digite: 











665 IF 3-0 THEN LET T(7*1,6)* 
Е Са ааа 
7)*T(3*1,6) 


S 


665 IF Je8 THEN T(J*I,6)*T(J*I, 
6) *RND(100) :T (J+1,7)=T(J+1,6) 


665 IF J - 8 THEN T(J + 1,6) = 
T(J * 1,6) * EN R(100):T(J * 
1,7) = T(J + 1,6) 


665 IF J-8 THEN T(J*1,6) *T(J*I, 
6)*RND(100) :T (J*I,7) -T (J*1, 6) 








O programa somará um nümero ran- 
dómico ao poder inicial da unidade, co- 
locando o resultado no seu poder atual. 


INTELIGÉNCIA MILITAR 


Um oponente com forças iguais e, 
ainda, inteligente será bem mais interes- 
sante do que um inimigo forte demais 
€ intelectualmente incapaz. Contudo, 
aumentar à inteligência é bem mais di- 
fícil que aumentar a força. 

Os conceitos utilizados na programa- 
ção da inteligência em Capa e 
são bem diferentes daqueles que vimos 
em Otelo ou em A Ri 

Nesses jogos | de tal и; os 
mentos são muito bem т 
ambos é possível prever movimentos 
turos bem como critérios exatos ps I 
cesso, utilizando a beoe em HR 
€ outros processos mais simples. 
disso, os algoritmos utilizados no s 
gramas não envolvem element: aca- 
so. No caso de 4 Raposa e os Gansos, 
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o algoritmo é muito eficiente nos níveis 
de dificuldade mais altos, tornando mut 
to custosa a vitória do jogador. Em Ote- 
lo, o algoritmo é mais simples, oferecen 
do menos dificuldade 
Nos Jogos de guerra é quase impos- 
sivel definir um algoritmo. Nào hà mo 
vimentos determinados para nenhum 
dos lados — e, nesse aspecto, a diferen- 
«a entre jogos de guerra e vadrez vem 
йлопа, Мо хайге/ пйо емме о асазо е 
ООО ШҮ ШИ ЛҮ ҮГӨ 
lacionados aos movimentos e posições 
no tabuleiro. Os jopgos de guerra, ao 
contrário, incluem vários elementos 
MARSANS 
numerosas variáve)s — armadura, mo: 
rA, eapacidade de movimento, poder 
A йеўзав уагїйус йо инег 
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dependentes, outras nào. E, acima de 
tudo, nào há receita para a vitória: ne- 
nhum procedimento leva inevitavelmen- 
te ao triunfo. 

Poderíamos examinar a possibilida- 
de de definir um algoritmo eficaz para 
o nosso jogo. Mas este seria, de qual- 
quer maneira, extremamente complexo, 
e tornaria o programa grande e lento de- 
mais. Na prática, a saída para progra- 
mas grandes, complicados e sem algo- 
ritmos definidos é dada por um conjun- 
to de heurísticas. 

Uma heurística é apenas uma regra 
prática que parece funcionar na maio- 
ria dos casos. Não há garantias de que 
ela funcione nem de que não leve a er- 
ros brutais em determinadas situações. 
Geralmente, no entanto, vale a pena ten- 
tar; afinal, este é o procedimento da 
maior parte das pessoas diante de mui- 
tos problemas complicados. 

O programa conterá, então, uma lis- 
ta de regras práticas, a saber: 


* Se você é uma unidade de arqueiros 
e existe uma unidade inimiga ao seu al- 
cance, atire. 


* Se você se envolver em uma batalha 
e estiver perdendo, tente ir em direção 
contrária. 


* Se você está perto de uma unidade ini- 
miga mais forte, afaste-se. 


* Se você está próximo a uma unidade 
inimiga mais fraca, aproxime-se. 


No último caso, o computador leva 
vantagem, já que conhece o poder das 
unidades do jogador. Este, ao contrá- 
rio, não tem acesso à mesma informa- 
ção sobre as tropas inimigas. 


CONDUTA PLANI 


Além dessas regras, o computador 
precisa de um plano geral de conduta. 
O desenrolar de uma guerra nunca é dei- 
xado ao acaso. O plano dependerá das 
condições de vitória — se esta depende, 
por exemplo, da morte do comandan- 
te, poderá ser conveniente usar todas as 
forças contra o quartel-general. Como 
em Capa e Espada a vitória depende de 
causar mais baixas ao inimigo do que 
sofrê-las, o plano do computador terá 
esse objetivo. 

Um modo simples de eliminar as tro- 
pas inimigas consistiria em atacar uni- 
dades fracas com unidades fortes. Mas 
esta seria uma estratégia difícil de pro- 
gramar. Ela poderia ser simplificada pa- 
ra ““concentre todas as suas forgas nu- 


ma posição”. Fazendo isso, as forças do 
computador superariam as do jogador 
— desde que este não tivesse planejado 
a mesma coisa. Essa estratégia, porém, 
tem uma conseqüéncia: as forças do jo- 
gador superariam as do computador em 
outra parte do tabuleiro — e aqui a heu- 
rística falharia. 

Para que o jogador não possa prever 
a ação do inimigo, o computador deve 
ter algumas opções abertas. Novamen- 
te preservando a simplicidade, pode- 
mos fazer a máquina escolher sempre, 
para concentrar suas forças, uma das 
posições ocupadas por unidades do jo- 
gador. Porém, uma rotina verificaria es- 
sas posições, transferindo a concentra- 
ção ao acaso, a cada volta do laço prin- 
cipal, Isso manteria o jogador na incer- 
teza, ao mesmo tempo que o plano do 
computador seguiria seu curso. 

Um segundo aspecto do jogo a ser in- 
teligentemente controlado é a ação in- 
dividual das unidades. Cada uma delas 
deve ser capaz de responder às condições 
locais do campo de batalha, indepen- 
dentemente do plano geral. Uma unida- 
de não deve, por exemplo, dirigir-se ao 
ponto de concentração se há unidades 
inimigas mais fortes no caminho. 

Quando o computador tiver que dar 
ordens, ele fará uma série de testes, nu- 
ma seqüéncia cuidadosamente escolhi- 
da. Essa escolha obedece a certas regras, 
elaboradas conforme dois critérios. Pri- 
meiro: como os testes precisam ser exe- 
cutados com a maior rapidez possível, 
os que não se aplicam à situação devem 
ser descartados. Segundo: os testes mais 
importantes serão realizados no início, 
de maneira a impedir que uma decisão 
seja tomada com base em um fator me- 
nos relevante. 

As regras usadas no programa são as 
seguintes, por ordem de importância: 


* Se a unidade está em combate e ven- 
ceu na última vez, as ordens são manti- 
das. Ignoram-se as outras condições, 


e Se a unidade está em combate e per- 
deu na última vez, deve se afastar do ini- 
migo. Isso nem sempre é possível, pois 
ela pode estar na borda do mapa ou ter 
o caminho de fuga obstruído. 


* Se uma unidade de arqueiros tem um 
alvo ao alcance, ela deve atirar. A posi- 
ção dessa regra assegura que os arquei- 
ros prefiram atirar a se envolver em 
combate corpo a corpo. 


e Se existe uma unidade inimiga mais 
fraca a uma distância inferior ao deslo- 
camento máximo, MARCHE em dire- 
ção a ela. Entretanto, se a unidade for 





mais forte, afaste-se. Este é um teste de- 
morado, uma vez que leva em conta às 
unidades inimigas. 


* Dirija-se ao ponto de concentração. 


Mesmo essas poucas regras levam um 
bom tempo para serem consideradas, di- 
minuindo bastante a velocidade do jo- 
go. Este é o preço a ser pago por um jo- 
go inteligente. Não haverá, porém, es- 
peras tão longas e exasperantes como em 
A Raposa e os Gansos. 


ROTINAS ADICIONAIS 


Apague as linhas 1770 a 1790 antes 
de adicionar estas rotinas. 


360 DIM t$(8,12): DIM o$(5,12) 
: DIM w$(5,9): DIM m$(5,12): 


DIM a$(4,12): DIM r$(4,12): 
DIM c(8) 

416 LET sp*l 

1665 IF wn>8 THEN LET c(wn-8)* 
8 

1666 IF 10>8 THEN LET c(lo-B)= 
T(wn,2) 

1760 LET ra=st: LET rb=sh: LET 
rc=fx: LET rd=fy: GOSUB 3000 


2140 REM Inimigo 

2142 REM Loop 

2143 LET r=FN r(10) 

2144 IF r=1 OR T(sp,1)>3 THEN 
ТЕТ вр=ЕМ г (8) 

2145 IF r=1 AND Т(вр,1) >23 THEN 
GOTO 2142 

2150 IF c(e-8)=8 THEN RETURN 
2155 IF c(e-8)<>0 THEN LET T(e 
,1)=3: LET T(e,2)=c(e-8): LET € 
(e-8)=0: RETURN 

2170 IF T(e,3)=2 THEN LET га=1 
: LET rbze: LET rc-5: LET rd-5: 
GOSUB 3000: IF qpS>-1 THEN LE 
T T(e,1)=1: RETURN 

2180 LET T(e,1)=3 

2181 LET hp=5: LET vp=5: 
=0 
2182 
2183 
2184 
2185 
2187 
ETURN 
2188 IF mv<>0 THEN LET T(e,2)= 
mv: RETURN 

2189 LET hp=T(e,8)-T(sp,8): LET 
vp*T(e,9)-T(sp,9): GOSUB 3200 
2190 RETURN 

3000 REM 

3010 LET gp--1 

3020 FOR m=ra TO (ra*7) 

3030 LET xx-ABS (T(m,8)-T(rb,8) 
): LET yy-ABS (T(m,9)-T(rb,9)) 
3040 IF xx<rc AND yy<rd AND T(m 
,1)€4 THEN LET rc-xx: LET rd-y 
vy: LET gp-m 











LET mv 


FOR v=1 TO 8 

LET zp=0: GOSUB 3100 

IF zp<>0 THEN GOSUB 3200 
NEXT v 

IF hp<>5 AND vp<>5 THEN В 





3050 NEXT m 

3060 RETURN 

3100 REM 

3110 IF T(v,1)>3 THEN RETURN 

3120 LET xx=ABS (T(v,8)-T(e,8)) 
LET yy=ABS (T(v,9)-T(e,9)) 

3130 IF T(v,7)>=T(e,7) AND xx<5 
AND yy<5 THEN LET mv=T(v,2) 

3140 IF xx<hp AND yy<vp THEN 1, 

ET hp=x: LET vp=yy: LET zp=1: 

RETURN 

3150 RETURN 

3200 REM 

3210 IF hp>=0 THEN LET lp= 

3220 IF hp«0 THEN LET 1p=3: L 

T hp-ABS (hp) 

3230 IF vp>=0 AND ABS (vp)»hp T 

HEN LET 1 

3240 IF vp<0 AND ABS (vp)>hp TH 

EN LET lp*4: LET vp=ABS (vp) 

3250 LET Т(е,2)=1р 

3260 RETURN 


nau 


'360 DIM T$(8),0$(5),W$ (5) ,M$ (5) 
„A$ (4) , R$ (4) , C(8) 

416 SP-1 

1665 IF WN»8 THEN C(WN-8)*8 
1666 IF LO>8 THEN C(LO-8)=T(WN, 


2) 

1760 RA=ST:RB=SH:RC=FX:RD=FY:GO 
SUB 3000 

2140 REM INIMIGO 

2142 REM LOOP 

2143 R=RND(10) 

2144 IF R=1 OR T(SP,1)>3 THEN 8 
P=RND (8) 

2145 IF R=1 AND T(SP,1)>3 THEN 
2142 

2150 IF C(E-8)=8 THEN RETURN 
2155 IF C(E-8)<>0 THEN T(E,1)=3 
:T(E,2)=C(E-8):C(E-8) =0: RETURN 
2170 IF T(E,3)=2 THEN RA-1:RB=E 
:RC=-5:RD=5:GOSUB 3000:IF GP<>-1 
THEN T(E,1)=1:RETURN 

2180 T(E,1)=3 

2181 HP=5:VP=5:MV=0 

2182 FOR V-1 TO 8 

2183 ZP=0:GOSUB 3100 

2184 IF ZP<>0 THEN GOSUB 3200 
2185 NEXT V 

2187 IF HP<>5 AND VP<>5 THEN RE 
TURN 

2188 IF MU<>0 THEN T(E,2)=MV:RE 
TURN 

2189 HP=T(E,8)-T(SP,8):VP=T(E,9 
)-T(SP,9) :GOSUB 3200 

2190 RETURN 

3000 REM 

3010 GP--1 

3020 FOR M-RA TO (RA*7) 

3030 XX=ABS (T(M,8)-T(RB,8)):YY= 
ABS(T(M,9)-T(RB,9)) 

3040 IF XX<RC AND YY<RD AND T(M 
,1)<4 THEN RC=XX:RD=YY :GP=M 
3050 NEXT M 

3060 RETURN 

3100 REM 

3110 IF T(V,1)>3 THEN RETURN 
3120 XX=ABS(T(V,8)-T(E,8)):YY= 











BS(T(V,9)-T(E.9)) 

3130 IF T(V,7)>=T(E,7) AND XX<5 
AND YY<5 THEN MV-T(V,2) 

3140 IF XX<HP AND YY<UP THEN HP 
=XX:VP=YY:ZP=1:RETURN 


3150 RETURN 

3200 REM 

3210 IF HP>=0 THEN LP=1 

3220 IF HP<O THEN LP=3:HP=ABS (H 
P) 


3230 IF VP>=0 AND ABS(VP)>HP TH 
EN LP=2 

3240 IF VP<O AND ABS(VP)>HP THE 
N LP=4:VP=ABS (VP) 

3250 T(E,2)=LP 

3260 RETURN 


ш 


360 DIM T$(8),08(5),W$ (5) ,M$(5 
) ,AS(4) , R$(4) ,C(8) 

416 SP = 0 

IF WN > 8 THEN C(WN - 8) 


IF LO > 8 THEN C(LO - 8) 
* T(WN,2) 

1760 RA * ST:RB * SH:RC * FX:RD 
= FY: GOSUB 3000 


2140 REM SELECAO 

2143 R = FN R(10) 

2144 IFR = 1 OR T(SP,1) > 3 T 
HEN SP * FN R(8) 


2145 IF R = 1 AND T(SP,1) > 3 
THEN 2143 

2150 IF C(E - 8) 
URN 
2155 
(E,1) 


* B THEN RET 


IF C(E - 8) < > 0 THEN T 
* 3:T(E,2) * C(E - 8):C(E 
- 8) = 0: RETURN 

2170 IF T(E,3) - 2 THEN RA * 1 
:RB = E:RC = S:RD = 5: GOSUB 30 


00: IF GP < > - 1 THEN T(E,1) 
= 1: RETURN 

2180 T(E,1) = 3 

2181 HP = S:VP = 5:MV = 0 


2182 FOR V = 1 TO 8 

2183 ZP = 0: GOSUB 3100 

2184 IF ZP < > 0 THEN THEN 
GOSUB 3200 

2185 NEXT V 

2187 ІР НР < > 5 АМ УР < > 


5 THEN RETURN 
2188 IF MV < 
= MV: RETURN 
2189 HP = T(E,8) - 
Т(Е,9) - Т(8Р,9): 
2190 RETURN 

3000 REM ALCANCE 
3010 GP = - 1 
3020 FORM = RA TO (RA + 7) 


> 0 THEN T(E,2) 


T(SP,8):VP = 
GOSUB 3200 


3030 XX = ABS (T(M,8) - T(RB,8 
)):YY = ABS (T(M,9) - T(RB,9)) 
3040 IF XX < RC AND YY < RD AN 
D T(M,1) < 4 THEN RC = ХХ:Вр = 
YY:GP = W 

3050 NEXT M 

3060 RETURN 

3100 REM PODER 


3110 IF T(V,1) > 3 THEN RETUR 
N 


3120 ХХ * ABS (T(V,8) - T(E,8) 
):YY - T(V,9) - T(E,9)) 

3130 ІҒ Т(У,7) > = T(E,7) AND 
XX < 5 AND YY < 5 THEN MY = T( 
9,2) 

3140 IF XX < HP AND YY < УР ТН 
EN HP = XX:VP = YY:ZP = 1: ВЕТО 
RN 

3150 RETURN 

3200 REM СОМСЕМТВАСАО 

3210 IF HP > = 0 THEN LP = 1 

3220 IF HP < 0 THEN LP = 3:HP 

= ABS (HP) 

3230 IF VP > = O AND ABS (VP 
) > HP THEN LP = 2 

3240 IF ЧР < 0 AND ABS (VP) > 
HP THEN LP = 4:VP = ABS (VP) 

3250 T(E,2) = LP 


3260 RETURN 


As rotinas que começam em 3000 de- 
vem ser renumeradas a fim de liberar es- 
paço para essas linhas. Digite: 


RENUM 4000, 3000 
Em seguida, acrescente estas linhas: 


360 DIM T$(8),0$(5) ,W$(5) ,M$ (5) 
,A$ (4) ,R$ (4) , C(8) 

416 SP=1 

1665 IF WN>8 THEN C(WN-8)=8 
1666 IF LO>8 THEN C(LO-8)=T(WN, 


2) 

1760 RA=ST:RB=SH:RC=FX:RD=FY:GO 
SUB 3000 

2140 REM INIMIGO 


2142 REM LOOP 

2143 R=RND(10) 

2144 IF R=1 OR T(SP,1)>3 THEN S 
P=RND (8) 

2145 IF R=1 AND T(SP,1)>3 THEN 
2142 

2150 IF C(E-8)=8 THEN RETURN 
2155 IF C(E-8)<>0 THEN T(E,1)=3 
:T(E, 2) *C(E-8) :C(E-8) *0: RETURN 
2170 IF T(E,3)-2 THEN RA-1:RB-E 
:RC=5:RD=5:GOSUB 3000:IF GP<>-1 
THEN T(E,1)=1:RETURN 

2180 T(E,1)=3 

2181 HP=5:VP=5:MV=0 

2182 FOR V-1 TO 8 

2183 ZP-0:GOSUB 3100 

2184 IF ZP<>0 THEN GOSUB 3200 
2185 NEXT V 

2187 IF HP<>5 AND VP<>5 THEN RE 
TURN 
2188 
TURN 
2189 HP=T(E,8)-T(SP,8):VP=T(E,9 
)-T(SP,9):GOSUB 3200 

2190 RETURN 

3000 REM 

3010 GP--1 

3020 FOR M-RA TO (RA*7) 

3030 XX-ABS(T (M,8) -T (RB, 8)) : YY- 
ABS (T (M,9) -T (RB,9)) 

3040 IF XX<RC AND YY<RD AND T(M 
,1)<4 THEN RC=XX:RD=YY:GP=M 


IF MU<>0 THEN T(E,2)=MV:RE 


3050 NEXT M 

3060 RETURN 

3100 REM 

3110 IF T(V,1)>3 THEN RETURN 
3120 XX=ABS(T(V,8)-T(E,8)):YY=A 


BS(T(V,9)-T(E,9)) 

3130 IF T(V,7)>=T(E,7) AND ХХ<5 
AND YY<5 THEN MV=T(V,2) 

3140 IF XX<HP AND YYXVP THEN HP 
=XX:VP=YY:ZP=1:RETURN 


3150 RETURN 

3200 REM 

3210 IF HP>=0 THEN LP=1 

3220 IF HPX0 THEN LP-3:HP-ABS(H 
P) 

3230 IF VP>=0 AND ABS(VP)>HP TH 
EN LP=2 

3240 IF VP<O AND ABS(VP)>HP THE 


N LP=4:VP=ABS (VP) 
3250 T(E,2)=LP 
3260 RETURN 


MO FUN А 


As adições anteriores à linha 2140 
cuidam de algumas variáveis extras que 
serão utilizadas. 

No início da rotina de escolha, há 
uma chance em dez de que o computa- 
dor mude o ponto de concentração. Es- 
te é verificado e modificado de acordo, 
mas não se realiza nenhuma ação neste 
estágio — outros testes precisam ainda 
ser feitos. 

Se a unidade for constituída de ar- 
queiros, a linha 2170 usa a rotina de al- 
cance para decidir se atira. Caso os ar- 
queiros não disparem, ou se a unidade 
for de outro tipo, a linha 2180 muda a 
ordem para MARCHE. A seção seguin- 
te do programa verifica cada uma das 
unidades inimigas. A linha 2183 utiliza 
a rotina de poder para determinar a di- 
reção do movimento. 

Se a unidade em questão não estiver 
envolvida em combate nem prestes a se 
envolver, a rotina de concentração (li- 
nha 3500) faz com que ela se mova em 
direção ao ponto de concentração. 


A ESCOLHA É SI 


Você pode adicionar qualquer das 
versões aqui apresentadas, ou mesmo as 
duas, para melhorar o desempenho do 
micto, enquanto jogador. Tudo depen- 
derá do tipo de oponente que desejar. 

A própria natureza das heurísticas in- 
corporadas ao programa faz com que 
elas falhem em certas circunstâncias. Al- 
guns jogadores acharão essas régras me- 
nqs adequadas do que outras eventual- 
mente deduzidas pela prática. Só um 
processo de tentativa e erro determina- 
rá as melhores estratégias e muitas ou- 
tras rotinas poderáo ser tentadas. 












SECRETAS 


Neste artigo vocé ficará conhecendo 
novas maneiras de transmitir 
mensagens confidenciais, sem correr 
0 risco de que elas sejam 

decifradas por pessoas indesejadas. 


No artigo Mensagens Secretas (pági 
na 888), sugerimos vários métodos pa- 
ra a transmissão de informações de c 
ráter confidencial. Alguns deles são re- 
lativamente fáceis de serem decifrados; 
entretanto, se recorrermos ao auxílio do 
computador, poderemos chegar a méto: 
dos mais complexos e com diferentes ní- 
veis de sofisticação. 





NOVAS MENSAGENS 





DECIFRAR CÓDIGOS 


Da mesma maneira que os criptógra- 
fos tentam desenvolver códigos que ofe- 
recam mais seguranca, muitos especia- 
listas estudam uma forma de frustrar es- 
sas tentativas. Uma arma muito pode- 
rosa para se decifrar simples códigos de 
substituição ou de transposição consis- 
te na contagem de fregiiência das letras. 
Em português, as letras que ocorrem 
com mais frequência são — nesta ordem 
— A, E, O, S, R, I, C. Desse modo, se 
em um texto codificado aparecerem 
muitas vezes as letras AEOSRIC, pro- 
vavelmente vocé estará manipulando um 
código de transposicáo. Se outras letras 
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se repetirem mais vezes, a codificacáo 
pode ter sido feita com um método de 
substituição. É importante levar em con- 
ta que essa distribuição é exclusiva de 
cada idioma. Portanto, torna-se funda- 
mental saber em que língua foi escrita 
a mensagem. 

Seja como for, será necessário fazer 
a contagem da freqiiência das letras na 
mensagem. Isso pode consumir muito 
tempo e é um processo bastante suscep- 
tível de erros. O programa aqui apresen- 
tado lhe será útil nesses casos. Basta que 
você digite o texto e o computador ime- 
diatamente o informará do número de 
vezes que cada letra apareceu 

A figura da página 1091 mostra a fre- 
qüéncia das letras em um texto consti- 





— 





tuído de cem palavras. Observe que os 
nümeros seguem, razoavelmente, o prin- 
cípio que acabamos de comentar. 

Agora, digite o programa e veja co- 
mo isso funciona na prática. 


15 POKE 23658,8 

20 BORDER 0: PAPER 0: 

сз 

30 PRINT TAB 5;"CONTAGEM DA F 

REQUENCIA"'" 

40 PRINT TAB 12;"CUIDADO"'" 

50 PRINT FLASH 1;AT 4,7;"NAO 
DEIXE ESPACOS";AT 5,9;"ENTR 

E PALAVRAS” '' 

60 DIM n(28) 

70 PRINT " Para finalizar ent 

rada do texto digite '*'" 


INK 7: 





80 FOR t=1 TO 28: LET n(t)= 
NEXT t 

90 INPUT "Introduza o texto”; 
as 

100 IF a$-"*" THEN GOTO 180 

110 CLS 

120 FOR 1=1 TO LEN a$ 


130 
140 
THEN 


FOR ј=1 ТО 26 

IF ј=СОрЕ (а$(1 TO 1))-64 
LET n(3)*n(3)*1 

150 NEXT j 

160 NEXT i 

170 GOTO 90 

180 CLS 

190 PRINT "Letra 

tra Freq'" 

200 FOR i721 TO 13 

210 PRINT TAB 2;CHR$ (64*1); 

TAB 10;n(i);TAB 19;CHR$ (77*1) 

¡TAB 27;n(13+1) 

220 NEXT i 

230 STOP 


Freq' Le 





20 CLS 

30 PRINT 65,"CONTAGEM DA FREQUE 
NCIA" 

40 PRINT €76,”CUIDADO” 

50 PRINT 6134,"NAO DEIXE ESPACO 
S":PRINT 6166,"ENTRE AS PALAVRA 


60 DIM N(28) 


A tabela de freqüéncia das letras tem 
grande utilidade na decifracáo de códigos. 


70 PRINT €225,”PARA FINALIZAR E 
NTRADA DO TEXTO E EMITIR RESULT 
ADOS DIGITE *” 

80 FOR T=1 TO 28:N(T)=0:NEXT 
90 INPUT"INTRODUZA O TEXTO ";A$ 


100 IF AS="*" THEN 180 
110 cLS 
120 FOR I=1 TO LEN(AS) 


130 FOR J=1 TO 26 
140 IF J=ASC(MIDS(AS,1,1))-64 T 
HEN N(J)=N(J)+1 
150 NEXT J 

160 NEXT I 

170 GOTO 90 

180 CLS 

190 PRINT "LETRA 
RA FREQ'" 

200 FOR I-1 TO 13 
210 PRINT TAB(2);CHR$(64*I);TAB 
(10) ;N(I) ; TAB(19) ; CHRS (7741) ; TA 
B(27) ;N(13*I) 

220 NEXT 

230 END 


(411%) 


20 НОМЕ 

30 PRINT TAB( 9)"CONTAGEM DE 
FREQUENCIA": PRINT 

40 PRINT TAB( 17)"CUIDADO": P 
RINT 

50 PRINT TAB( 12)"NAO DEIXE E 
SPACOS": PRINT TAB( 12)"ENTRE 
AS PALAVRAS” 

60 DIM N(28) 

70 PRINT PRINT : PRINT TAB( 
B)"PARA FINALIZAR A ENTRADA”: 
PRINT TAB( 11)" DO TEXTO DIGIT 


FREQ' LET 


E w” 

80 FOR I = 1 TO 28:N(T) = 0: N 
EXT 

90 PRINT : INPUT “DIGITE O TEX 
TO "¡AS 

100 IF AS = "*” THEN 180 

110 HOME 

120 FOR I = 1 TO LEN (AS) 

130 FOR J = 1 TO 26 

140 IF J= ASC ( MIDS (AS,1,1 
)) - 64 THEN N(J) = N(J) + 1 
150 NEXT J 

160 NEXT I 

170 GOTO 90 

180 НОМЕ 

190 PRINT "LETRA FREQ LETR 
А FREQ" 

200 FOR I = 1 TO 13 

210 PRINT TAB( 2); CHRS (64 + 


ТАВ( 10);М(1); ТАВ( 17); С 
TAB( 25);N(13 + I 


1); 
HR$ (77 + 1); 





) 
220 NEXT I 
230 END 


nu 


20 CLS 

30 PRINT TAB(9)"CONTAGEM DE FRE 
QUENCIA” : PRINT 

40 PRINT TAB(17)"CUIDADO":PRINT 
50 PRINT TAB(12)"NAO DEIXE ESPA 
СОЗ" :РВІМТ TAB(12)"ENTRE AS PAL 
AVRAS" 


60 DIM N(28) 

70 PRINT:PRINT:PRINT TAB(8)"PAR 
A FINALIZAR A ENTRADA” :PRINT TA 
B(12)”DO TEXTO DIGITE *" 

80 FOR І-1 ТО 28:N(T)=0:NEXT 
90 PRINT: INPUT "DIGITE O TEXTO” 
¡AS 
100 
110 
120 
130 
140 
HEN 
150 
160 
170 
180 
190 


IF AS="*" THEN 180 

cLs 

FOR I=1 TO LEN(AS) 

FOR J=1 TO 26 

IF J=ASC(MIDS(AS,1,1))-64 T 
N(J) =N(J) + 

NEXT J 

NEXT I 

GOTO 90 

CLS 
PRINT 
FREQ" 
200 FOR I-1 TO 13 

210 PRINT TAB(2);CHR$(64*I);TAB 
(10) ;N(I) ; TAB(17) ; CHR$ (7741) ; TA 
B(25);N(13+I) 

220 NEXT I 

230 END 


"LETRA FREQ LETRA 


A estrutura operacional deste progra- 
ma está fundamentada em um simples 
mecanismo de contagem. 

Em sua primeira parte é atribuído o 
valor zero às 28 variáveis indexadas, 
sendo que 26 dessas variáveis serào usa- 
das para a contagem da freqüëncia com 
que aparecem as 26 letras. As duas va- 
riáveis restantes foram incluídas tendo 
em vista a possibilidade de uma futura 
ampliação do programa; nesse caso, po- 
dem ser incorporados algarismos ou 
quaisquer outros sinais gráficos. 
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CÓDIGOS MULTIPLICATIVOS 


Durante a Guerra Civil Norte-Ame- 
ricana (1861-1865) criou-se um tipo es- 
pecial de código para a comunicação en- 
tre as tropas, que funciona da seguinte 
forma: suponhamos que se queira pas- 
sar para um oficial preso a mensagem 
ESCAPAR PARA LONDRES. Nesse 
caso, a primeira letra da frase seria co- 
locada na primeira linha, a segunda le- 
tra na segunda linha, a terceira letra de 
volta na primeira linha e assim por dian- 
te, de tal maneira que a frase acabaria 
ficando assim: 


ECPRAAODE 
SAAPRLNRS 


Escrita por extenso, a mensagem se- 





ria a s ECPRAAODE- 
SAAPRLNRS; dividida a fim de con- 
fundir o inimigo: ECPRAA OD 
ESAAP RLNRS. 


Na verdade, esse código é um caso es- 
pecial do que se chama atualmente có- 
digo multiplicativo. 

Em nossa mensagem, o texto contém 
dezoito caracteres. Estes podem ser ar- 
ranjados em matrizes do tipo: 2 x 9, 9 
x 2, 3 x 6, ou 6 x 3, como mostram as 
figuras da página 1095. 

Qualquer pessoa que queira decifrar 
a mensagem, sem saber que se trata de 
um código multiplicativo, terá muito 
trabalho. O processo de codificação, no 
entanto, é muito simples: tudo o que se 


tem a fazer é escrever a mensagem ver- 
Yicalmente, letra por letra, preenchendo 
totalmente a primeira coluna da matriz. 
Em seguida, partimos para a próxima 
coluna e repetimos o processo, até que 
a mensagem termine e a matriz esteja 
completa. Finalmente, copiamos as li- 
nhas lado a lado, comegando sempre pe- 
la primeira. 

importante que a mensagem ocu- 
pe totalmente a matriz escolhida. Para 
tanto, podemos introduzir no texto al- 
guns caracteres ou palavras sem nexo, 
que terão a função extra de confundir 
quem tentar decifrá-lo. 

O laço que se encontra entre as linhas 
140 e 210 é a parte principal do progra- 
ma, responsável tanto pela codificação 
como pela decodificação. 


20 BORDER O: PAPER O: INK 7: 
CLS 

30 PRINT TAB (6);"CODIGO MULT 
IPLICATIVO" 

40 PRINT PRINT PRINT 

50 PRINT FLASH 1; PAPER 2;"N 
AO DEIXE ESPACOS ENTRE PALAUR 
AS" 

60 INPUT "INTRODUZA O TEXTO " 
'm$ 

70 INPUT "LINHAS ? ^";m 

B0 INPUT "COLUNAS ? ";n 

90 INPUT "(c)ODIFICAR OU (d)E 
CODIFICAR ? ";e$ 

100 PAUSE 50: CLS 

110 IF e$="c” THEN LET x*m 
120 IF e$-"d" THEN LET x*n 














130 DIM d$(x,LEN m$/x) 

140 FOR i-1 TO x 

155 LET a *: LET m$-m$*" " 
160 FOR j-1 TO LEN m$-1 STEP x 
180 LET a$-a$*m$(i*j-1 TO i*j- 
1) 

190 NEXT j 

195 LET d$(1)-a$ 

197 LET m$-m$( TO LEN m$-1) 
200 PRINT d$(i);: IF e$-"c" 
THEN PRINT " "; 

210 NEXT i 

220 STOP 

20 CLS 


30 PRINT 66,"CODIGO MULTIPLICAT 
Ivo” 

40 PRINT:PRINT:PRINT 

50 PRINT"NAO DEIXE ESPACOS ENTR 
E PALAVRAS” 

60 PRINT: INPUT"TEXTO 
70 INPUT"LINHAS ";M 
80 INPUT"COLUNAS "; 
90 INPUT"(C)ODIFICAR OU 
IFICAR ";E$ 

100 FOR L-1 TO 1000:NEXT 
110 IF E$-"C" THEN X-M 
120 IF ES="D" THEN X=N 
130 DIM DS(X) 

140 FOR 1=1 TO X 

150 0$(1)=" " 

160 FOR J=1 ТО ГЕМ (М$) 
170 В$=МІЮ$ (М$,1+Ј-1,1) 
180 0$ (1) =р$ (1) +85 

190 МЕХТ Ј 

200 PRINT D$(I) 

210 NEXT I 

220 END 


";M$ 





(D)ECOD 


STEP X 





Há vantagens em se criptografar um 
programa de computador? 

A resposta depende do tipo de pro- 
grama. Náo há nenhuma vantagem em 
criptografar um programa em lingua- 
gem de máquina (código binário) — ta- 
refa, aliás, impossível para muitos mi- 
cros, que não poderão executá-lo de- 
pois. Mas, se o programa estiver em 
código-fonte (linguagem de alto nível, 
como BASIC), às vezes pode ser van- 
tajoso criptografá-lo. 

O objetivo da criptografia de progra- 
mas é protegé-los contra a cópia e a 
imitação ilegais. Uma aplicação muito 
frequente ocorre na transmissão de 
programas de computador em sistemas 
telemáticos. Aqui, o objetivo é torná- 
los imunes à cópia ilegal no momento 
da transmissão. Nesse caso, o interes- 
sado pode criptografar o programa co- 
mo um texto qualquer, usando um dos 
métodos explicados neste artigo (o 
multiplicativo costuma ser o mais em- 








pregado). 

20 HOME 

30 PRINT TAB( 10)"CODIGO MULT 
IPLICATIVO” 

40 PRINT PRINT : PRINT 


50 PRINT TAB( 12)"NAO DEIXE E 
SPACOS": PRINT TAB( 12)"ENTRE 
AS PALAVRAS” 
60 PRINT INPUT "ТЕХТО:";М5 
70 INPUT "LINHAS:";M 

80 INPUT "COLUNAS N 

90 INPUT "CODIFICAR(C) OU DECO 


DIFICAR (D):";ES 





100 FOR L = 1 TO 1000: NEXT 
110 IF E$ = "C" THEN X = M 
120 IF E$ - "D" THEN X * N 

130 DIM D$(X) 

140 FOR I * 1 TO X 

150 IF E$ - "C" THEN D$(I) - " 
160 FOR J = 1 TO LEN (MS) STE 
PX 

170 BS = MIDS (M$,1 + J - 1,1) 
180 DS(I) = DS(I) + BS 

190 NEXT J 

200 PRINT DS(I);: IF ES = "С" 


THEN PRINT 
210 NEXT I 
220 END 







20 CLS 
30 PRINT TAB(10)"CODIGO MULTIPL 














Para usar o sistema de livro-código, tanto o emissor quanto o receptor 
da mensagem precisam ter uma cópia idéntica do dicionário fixo. 


ICATIVO" 

40 PRINT:PRINT:PRINT 

50 PRINT TAB(12)"NAO DEIXE ESPA 
COS” : PRINT TAB(12)"ENTRE AS PAL 
AVRAS" 

60 PRINT:INPUT"TEXTO:";M$ 

70 INPUT"LINHAS: 
80 INPUT"COLUNAS:";N 

90 INPUT"CODIFICAR(C) OU DECODI 
FICAR (D) :”;ES 














100 FOR L: TO 1000:NEXT 

110 IF ES " THEN X=M 

120 IF ES="D” THEN X=N 

130 DIM DS(X) 

140 FOR I-1 TO X 

150 IF E$-"C" THEN D$(I)-" " 
160 FOR J=1 TO LEN(MS) STEP X 
170 BS=MIDS (MS, 1+J-1,1) 

180 DS(1)=DS(1)+BS 

190 NEXT J 

200 PRINT DS(1);:1F ES="C" THEN 
PRINT 

210 NEXT 1 

220 END 


LIVRO-CÔDIGO 


Até agora, trabalhamos apenas com 
cifras. Os códigos propriamente ditos 
consistem na substituição de uma pala- 
vra ou frase por outras. Isso exige que 
se recorra sempre a um livro-código, que 
deve ser guardado com muito cuidado, 
de modo a evitar que caia em mãos es- 
tranhas. Por esse motivo, geralmente, os 
textos sáo codificados e recebidos em lu- 
gares fixos, bem seguros. 

O programa seguinte monta um di- 
cionário de códigos de vinte palavras. 
Usando uma matriz bidimensional 
AS(1,3), onde I=1 guarda a palavra e 
I=2 guarda seu código, primeiramente 
são lidas as informações após os coman- 
dos DATA. A parte seguinte, que vai da 
linha 120 à linha 170, recebe a palavra 
e imprime o código correspondente, ou 
faz o contrário, caso você tenha opta- 
do pela decodificação. Д 
A mensagem FUGIR DE ROMA A 


MEIA-NOITE DE DOMINGO CHE- 
GAR A NOVA YORK AO MEIO-DIA 
seria codificada como: 40476 10996 
23874 12128 26569 10996 40553 68719 
12128 54982 69783 11072. O texto codi- 
ficado: 74891 22317 69783 74832 seria 
traduzido para ENVIAR DINHEIRO 
AO ANOITECER. 

Com o próximo programa, vocé po- 
derá codificar e decodificar rapidamente 
suas mensagens. Nas situações reais, on- 
de são transmitidos textos muito gran- 
des e os dicionários são volumosos, o 
computador exerce um papel fundamen- 
tal, poupando bastante tempo. 


20 BORDER O: 
CLS 

25 POKE 23658,8 

30 PRINT TAB (10);"LIVRO DE C 
ODIGOS” 

40 PRINT : PRINT : 
50 DIM a$(2,20,10) 
60 FOR i-1 TO 2 
70 FOR j=1 TO 20 
80 READ aS(1,5) 

90 NEXT j: NEXT i 
100 INPUT "CODIFICAR (0) OU DE 
CODIFICAR (1)";x 

110 CLS 

120 INPUT "Digite a palavra";m 


PAPER O: INK 7: 


PRINT 


s 
125 IF LEN m$>=10 THEN GOTO 
130 


127 FOR n=1 TO 10-LEN m$: LET 
m$-m$*" ": NEXT n 
130 IF m$ THEN GOTO 280 





140 FOR t=1 TO 20 

150 IF m$-aS(1l*x,t) THEN 
PRINT a$(2-x,t) 

160 NEXT t 

170 GOTO 120 

180 DATA "BRASILIA","LONDRES", 
"PARIS","ROMA" 

190 DATA "CHEGADA","SAIDA","VA 
PARA","FUJA PARA","SABADO" 
200 DATA "DOMINGO","MEIO-DIA", 
"AMANHECER" , "MEIA-NOITE" 

210 DATA "ANOITECER","EM","AO" 


EROSPNCADARRPAEALS 





Usando o código de multiplicação com diversas chaves, você poderá criptografar a mesma mensagem de várias maneiras. 


O texto cifrado é sempre apresentado em grupos de letras de comprimento fixo. 


rair 


„ "МО", "ЕМУІЕ” 

220 DATA "DINHEIRO","COMIDA" 
230 DATA "54982","73581","9007 
5","23874" 

240 DATA "68719","68677","1032 
7","40476" 

250 DATA "27921","48553","1107 
2","70355" 

260 DATA "26569","74832","1099 
6","12128" 

270 DATA "69783","74891","2231 
7","98724" 

280 STOP 





CLS 

PRINT €8,"LIVRO DE CODIGO" 
PRINT:PRINT:PRINT 

DIM A$(2,20) 

FOR I-1 TO 2 

FOR J=1 TO 20 

READ AS(I,J) 

NEXT J,I 

100 INPUT"CODIFICAR (0) OU DECO 
DIFICAR (1)";X 


110 CLS 

120 INPUT"DIGITE A PALAVRA ";M$ 
130 IF M$-"*" THEN END 

140 FOR T=1 TO 20 

150 IF MS=AS(1+X,T) THEN PRINT 
AS(2-X,T) 

160 NEXT 


170 GOTO 120 

180 DATA BRASILIA,LONDRES,PARIS 
+ ROMA 

190 DATA CHEGADA, PARTIDA DE,VA 
PARA, FUJA PARA, SABADO 

200 DATA DOMINGO, MEIO-DIA, AMANH 
ECER,MEIA-NOITE 

210 DATA ANOITECER, EM, AO, NO, ENV 
IE 
220 
230 


DATA 
DATA 


DINHEIRO,COMIDA 
54982,73581,90075,2387 


4 
240 DATA 68719,68677,10327,4047 


6 
250 DATA 27921,48553,11072,7035 


5 
260 DATA 26569,74832,10996,1212 


8 
270 DATA 69783,74891,22317,9872 
4 


20 HOME 

30 PRINT TAB( 14)"LIVRO CODIG 
o" 

40 PRINT : PRINT PRINT 

50 DIM A$(2,20) 

60 FOR I = 1 TO 2 

70 FOR J = 1 TO 20 

80 READ AS(I,J) 

90 NEXT J 

95 NEXT I 

100 INPUT "CODIFICAR(0) OU DEC 
ODIFICAR(1) ?”;X 

110 HOME 

120 INPUT “DIGITE A PALAVRA "; 
MS 

130 IF M$ - "*" THEN END 

140 FOR T = 1 TO 20 

150 IF MS = AS(]1 + X,T) THEN 
PRINT AS(2 - X,T) 

160 NEXT T 

170 GOTO 120 

180 DATA NOVAYORK, LONDRES , PA 
RIS, ROMA 

190 DATA CHEGAR,PARTIR,IR,FUG 
IR,SABADO 

200 DATA DOMINGO,MEIO-DIA, TA 
RDE,MEIA-NOITE 

210 DATA ANOITECER, DFE, A, AO, 
ENVIAR 

220 DATA DINHEIRO, SUPRIMENTO 
230 DATA 54982,73581,90075,23 
874 

240 DATA 68719,68677,10327,40 
476 

250 DATA 27921,48553,11072,70 
355 

260 DATA 26569,74832,10996,12 
128 

270 DATA 69783,74891,22317,98 
724 

20 CLS 

30 PRINT TAB(14)"LIVRO CÓDIGO” 
40 PRINT:PRINT:PRINT 

50 DIM AS(2,20) 

60 FOR I=1 TO 2 




































70 FOR J=1 TO 20 
BO READ AS(I,J) 
90 NEXT J 
95 NEXT I 
100 INPUT 
DIFICAR(1) 
110 CLS 
120. INPUT "DIGITE A PALAVRA "; 
5 

130 TF M$="*" THEN END 

140 FOR T=1 TO 20 

150 IF MS=AS(1+X,T) THEN PRINT 


"CODIFICAR (0) OU DECO 
ui 


AS(2-X,T) 

160 NEXT T 

170 GOTO 120 

180 DATA NOVAYORK, LONDRES, PARIS 
, ROMA 

190 DATA CHEGAR,PARTIR,IR,FUGIR 
+ SABADO 

200 DATA DOMINGO, MEIO-DIA, TARDE 
,META-NOITE 

210 DATA ANOITECER,DE,A,AO,ENVI 
AR 

220 DATA DINHEIRO,SUPRIMENTO 
230 DATA 54982,73581,90075,2387 
4 

240 DATA 68719,68677,10327,4047 
6 

250 DATA 27921,48553,11072,7035 
5 

260 DATA 26569,74832,10996,1212 
в 

270 DATA 69783,74891,22317,9872 
4 


Apesar de estar limitado a apenas 
vinte palavras, o programa pode ser fa- 
cilmente ampliado. Por exemplo, se vo- 
cé quiser fazer um dicionário de cin- 
qüenta palavras, bastará trocar 20 por 
50 nas linhas 50, 70 e 140. É claro que 
vocé terá também que fazer novas linhas 
DATA, com as palavras e códigos su- 
plementares. 

No programa atual para o Apple, vo- 
cé nào poderá introduzir palavras com 
mais de dez caracteres. Caso queira am- 
pliar este nümero para doze, por exem- 
plo, vocé deve substituir 10 por 12 na 
linha 50. Essa restrição não existe nos 
outros programas. 




















Utilizando páginas gráficas, 

vocé poderá criar as mais diversas 
figuras e cenas animadas no 
microcomputador. Elas tornaráo 
seus jogos muito mais divertidos. 











Todos os tipos de animação relacio- 
nam-se a um fenômeno da percepção 
conhecido como persistência da visão. 
Cada imagem transmitida ao cérebro 
permanece “gravada” na memória por 
alguns instantes, mesmo que nossa vi- 
são já esteja captando uma nova ima- 
gem. Porém, quando uma série de ima- 
gens é mostrada com muita rapidez, o 
cérebro não consegue separá-las, pois 
não processa mais de doze imagens por 
segundo. As imagens parecem, então, 
sair umas das outras, e é exatamente is- 
to que dá a impressão de movimento. 

Certos livros infantis, cujas ilustra- 
ções compõem uma segiiência de ima- 
gens, permitem que se perceba esse fe- 
nômeno com clareza. Folheando-os ra- 
pidamente, suas figuras parecem se mo- 
vimentar. Também o jogo de sombras 
chinesas, um dos raais remotos precur- 
sores do cinema, vale-se desse fenôme- 
no: figuras recortadas ou criadas com 
as mãos são projetadas sobre paredes ou 
telas de linho em ritmo acelerado, for- 
mando uma sombra animada. 

Finalmente, apesar dos progressos 
tecnológicos, o próprio cinema recorre 
ao mesmo princípio básico: os quadros, 
fixados em um filme, são projetados à 
velocidade de 25 unidades por segundo. 
Criam-se, assim, duas ilusões ópticas: a 
de que há uma corrente contínua de 
imagens, quando, na verdade, elas se su- 
cedem de modo descontínuo; e a de que 
coisas imóveis tém movimento. 

A montagem de um desenho anima- 
do é bem mais trabalhosa. O artista de- 
senha sobre uma folha transparente. Ao 
mudar de quadro, sobrepóe a essa fo- 
Iha uma outra, e copia o desenho ante- 
rior, mudando ligeiramente sua forma. 
Tente calcular quantas cenas ele preci- 
saria desenhar para produzir um dese- 
nho animado de uma hora de duração... 





GRÁFICOS NO 


Por que não usar o computador pa- 
ra agilizar esse processo, se até os mi- 
cros mais simples são capazes de fazer 
desenhos de boa qualidade? 

A capacidade gráfica dos micros 
atuais chega a ser impressionante. En- 
tretanto, isso não é suficiente para sa- 


tisfazer o público de um cinema. O cus- 
to da produção de um filme de ficção 
científica em computador chega a ser da 
ordem de milhões de dólares, devido aos 
equipamentos caríssimos que são usa- 
dos. Esse preço só é compensador quan- 
do o roteiro requer cenas impossíveis de 
serem obtidas na vida real. 

A grande maioria das pessoas não 
tem acesso a computadores profissionais 
de animação gráfica. Portanto, devem 
contentar-se em usar seus próprios mi- 
cros para executar tais tarefas. 

A animação gráfica é uma das mui- 
tas aplicações dos programas de proje- 
to assistido por computador (PAC), já 
discutido em artigos anteriores. Nesses 
casos, o grau de sofisticação alcançado 
é limitado pela capacidade do micro- 
computador utilizado. Um dos mais po- 
derosos equipamentos de animação grá- 
fica para filmes, por exemplo, é o Cray 
X-MP, um supercomputador que ope- 
ra à velocidade de 100 megaflops (100 
milhões de operações em ponto flutuan- 
te por segundo). Mas, como as imagens 
são muito complexas e têm que ser tro- 
cadas muitas vezes por segundo, nem 
mesmo o Cray consegue gerar uma ani- 
mação em tempo real. Suas imagens 
precisam ser filmadas separadamente, 
quadro a quadro, e recompostas, comc 
se faz em um desenho animado. 

Uma figura sem muitos detalhes, po- 
rém, permite animacóes bem próximas 
do real. Vocé mesmo já deve ter visto 
videogames bem produzidos, em que as 
imagens geradas chegam à velocidade de 
cinqüenta quadros por segundo. 

O maior problema em uma animação 
feita no computador é a grande quanti- 
dade de informações existentes em um 
desenho. Quanto mais detalhada a figu- 
ra, mais memória é exigida para seu ar- 
mazenamento. Igualmente, quanto mais 
colorida for a imagem, mais espaço de 
memória RAM é necessário. 

Devemos também levar em conta 
que, à medida que cresce a quantidade 
de informações a serem processadas pela 
UCP, mais lenta se torna a animação. 
É por esse motivo que nem mesmo os 
mais sofisticados computadores são 
auto-suficientes na produção de um fil- 
me ou desenho animado. Não existe ain- 
da uma UCP tão rápida a ponto de dis- 


pensar, totalmente, o processo manual 
de montagem quadro a quadro. 

Se a animação de figuras é uma tare- 
fa lenta para os mais avançados compu- 
tadores, como você poderá movimentá- 
las na tela de seu micro? Uma das solu- 
ções consiste em lançar mão das pági- 
nas gráficas. 
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O QUE PÁGINAS GRÁFICAS 


Todos os microcomputadores pos- 
suem uma área da memória reservada 
para a tela de vídeo. Ela pode ser de dois 
tipos: a memória mapeada, na qual a ca- 
da ponto da tela corresponde um local 


na memória; ou o arquivo de códigos, 
organizado como uma lista. 

No conceito das páginas gráficas, em 
vez de se construir a figura diretamente 
na memória reservada para a tela, usa- 
mos uma outra área da memória RAM, 
definida especialmente para esse fim. 
Assim que se conclui a figura, ela é 








transferida para a parte da RAM nor- 
malmente associada à tela. A área utili- 
zada para construir o desenho é chama- 
da de página gráfica. 

Mas, qual a vantagem de empregá- 
la? Seguramente nào haverá nenhuma 
economia de tempo, se tivermos que de- 
senhar a figura primeiro em uma área 
separada da memória. Ao contrário, 
quando se transferem as informagóes 
para a memória de tela, perde-se um cer- 
to tempo. A vantagem reside no fato de 
que podemos alterar à vontade a pági- 
na “oculta”, sem provocar simultanea- 
mente alterações na tela. 

É óbvio que a técnica de páginas grá- 
ficas não tem muito valor quando se tra- 
ta de desenhar apenas uma figura. Su- 
ponhamos, porém, que você queira es- 
crever um programa em que há um tex- 
to seguido de um desenho: seria bem 
mais conveniente ir construindo a figu- 
ra em algum lugar da memória, enquan- 
to o usuário estivesse ocupado com a lei- 
tura do vídeo. Com a tela gráfica, mui- 
to tempo seria economizado, uma vez 
que ela já estaria pronta e disponível em 
uma parte da memória. 

Mas a grande vantagem das páginas 
gráficas se evidencia quando se preten- 
de mostrar uma sucessão muito rápida 
de figuras. Os comandos em BASIC em 
geral escrevem apenas nas áreas reser- 
vadas para a tela, Isso significa que ire- 
mos construir a figura nesta área, e, de- 
pois, transportá-la para outra parte da 
RAM, Esse processo será mais lento na 
etapa de montagem, mas muito mais rá- 
pido na exibição da imagem, pois o mi- 
croprocessador não precisará executar 
uma série de comandos e funções em 
BASIC. Ele apenas transferirá as infor- 
mações daquela parte da memória para 
a tela, E, se você montar várias figuras 
em diferentes áreas da memória, elas 
poderão ser chamadas rapidamente 
para a tela, produzindo um efeito de 
animação. 


O ALGORITMO DE UM CUBO 


Tomemos como exemplo a monta- 
gem de uma seqüéncia animada que re- 
presente a rotação de um cubo. Decidiu- 
se que quatro quadros serão suficientes 

















== 





para simular uma rotação e que o cubo 
dará cinco voltas. 

O programa poderia ser estruturado 
da seguinte maneira: 


рага с = 1 até 5 faça 
começo 

limpar a tela 

construir a figura número 1 
limpar a tela 

construir a figura número 2 
limpar a tela 

construir a figura número 3 
limpar a tela 

construir a figura número 4 
fim 


A idéia parece simples demais: limpa- 
se a tela, exibe-se cada uma das figuras 
em seqüéncia e o processo é repetido até 
que se completem as cinco rotações. 
Mas esse método apresenta uma desvan- 
tagem: os cálculos para se desenhar ca- 
da figura são refeitos a cada uma das 
cinco repetições. Como os cálculos to- 
mam a maior parte do tempo no pro- 
cesso, ocorrerá um ““pulo”” entre cada 
figura exibida, o que resultará em um 
fraco efeito de animação. 

Observe agora este algoritmo, que 


ilustra o procedimento geral usado na 
técnica de páginas gráficas: 


limpar a tela 

construir a figura número 1 

guardar a tela na página de memória 1 
limpar a tela 

construir a figura número 2 

guardar a tela na página de memória 2 
limpar a tela 

construir a figura número 3 

guardar a tela na página de memória 3 
limpar a tela 

construir a figura número 4 

guardar a tela na página de memória 4 
para c = l até 5 faça 

copie os dados da página 1 para a tela 
copie os dados da página 2 para a tela 
copie os dados da página 3 para a tela 
copie os dados da página 4 para a tela 
fim 


O programa é mais longo e exige um 
demorado processo de construção das 
quatro figuras, antes de começar a ani- 
mação. Mas, uma vez armazenadas nas 
páginas de memória, as figuras podem 
ser mostradas em rápida seqüência. 

Embora a construção dos desenhos 
seja executada em BASIC, podemos uti- 


lizar uma rotina em código de máquina 
para efetuar a transferência de uma fi- 
gura da tela para a página gráfica e vice- 
versa. Ela realizará essas transferências 
em um piscar de olhos — o que é a es- 
sência da animação. 


FACA SUA PRÓPRIA АММАС 


Os próximos programas sáo aplica- 
ções bem simples da técnica das páginas 
gráficas. Os que utilizam código de má- 
quina devem ser gravados antes da exe- 
cução, para evitar que se percam, caso 
ocorra algum erro de digitação. Você 
pode usar suas próprias figuras nesses 
programas, colocando os comandos de 
desenho nas linhas adequadas. 

Em um próximo artigo, examinare- 
mos em detalhe as técnicas aqui empre- 
gadas e você verá como aproveitar ao 
máximo a capacidade de seu micro. 


Este programa — adequado só ao 
Spectrum de 48 K — produzirá a anima- 
ção de um acrobata pulando sobre um 











ШЕБІ ыж 











O acrobata na tela do Spectrum, 


trampolim. Embora a maior parte do 
programa seja em BASIC, há um trecho 
em linguagem de máquina que dará a ve- 
locidade necessária às figuras na tela. 


10 BORDER 0: PAPER O: INK 7: 
св 

20 CLEAR 53230 

30 GOSUB 220 


40 LET srce=64: LET dest=208 


50 CLS 

60 CIRCLE 128,168,7: PLOT 128 

:161: DRAW 0,-15: DRAW -10, 

710: PLOT 128,146: DRAW 10, 

-10: PLOT 118,161: DRAW 11,- 
DRAW 10,5 

70 PLOT 108,106: DRAW 40,0: 

PLOT 113,106: DRAW -8,-8: 


PLOT 145,106: DRAW 8,-8 
80 GOSUB 270: LET dent=dest+ 
16 
90 PRINT AT 21,2;"qualquer te 
cla para comecar": PAUSE 0 
100 CLS CIRCLE 128,151,7: 
PLOT 128,134: DRAW 0,-15: DRAW 
-5,-16: PLOT 128,120: DRAW 5, 
-17: PLOT 118,125: DRAW 10,5: 
DRAW 11,- 
110 PLOT 108,106: DRAW 15,-4: 
DRAW 10,0: DRAW 15,4: PLOT 113 
.105: DRAW -8,-8: PLOT 144,105 
DRAW 8,-8 
120 PRINT AT 6,4;"!!BOING!!" 
130 GOSUB 270 
140 PRINT AT 21, 
cla para comecar 
150 LET srce-208: 





qualquer te 
PAUSE 0 
LET dest=64 








160 PRINT AT 17, qualquer te 
cla para pular": PAUSE O 

170 FOR n=0 TO 1 

180 CLS 

190 GOSUB 270: LET srce-srce* 
16 

200 NEXT n 

210 GOTO 150 

220 DATA 1,0,16,17,0,0,33,0,0, 
237,176,201 

230 FOR і-53231 ТО 53231411 


240 READ byte: POKE i,byte 





TRS-Color: o asterisco que se movimenta, 


250 
260 
270 
280 


NEXT 4 
RETURN 
POKE 53236,dest 
РОКЕ 53239,вгсе 
290 RAND USR 53231 
300 RETURN 


A linha 10 seleciona as cores da tela, 
da borda e do desenho: negro, negro e 
branco, respectivamente, A 20 reserva 
um espaço na memória e a 30 desvia o 
programa para a sub-rotina entre as li- 
nhas 220 e 260, que irá montar a rotina 
em linguagem de máquina, nessa área. 
Essa sub-rotina em BASIC lé os códi- 
gos após o comando DATA (linha 220) 
eos coloca na área reservada na memó- 
ria, através do comando POKE. 

A linha 40 define duas variáveis: sree 
e dest, A variável srce corresponde ao 
byte alto do endereço de onde os códi- 
gos devem ser retirados e dest, ao byte 
alto do endereço onde eles vão ser guar- 
dados. Informa-se, assim, ao computa- 
dor onde ler a imagem da tela e onde 
colocá-la na memória. Em seguida, as 
linhas 60 e 70 desenham a primeira das 
duas figuras — o acrobata no ar, A li- 
nha 80 desvia o programa para a linha 
270, onde há uma rotina que coloca os 
valores de dest e srce no programa em 
código de máquina. Depois, chama es- 
sa rotina para copiar a parte da tela em 
que está o acrobata. 

O próximo passo consiste na criagáo 
da imagem para a segunda página de 
memória (linhas 100 a 120). Essa ima- 
gem é armazenada pela linha 130, que 
desvia o programa para a linha 270. A 
linha 150 troca os valores de srce e dest, 
o que faz com que os códigos sejam 
transferidos da RAM para a tela. As li- 
nhas 150 a 210 formam um laço que se 
encarrega de alternar as duas figuras na 
tela. Para interromper o programa, bas- 
ta acionar <BREAK>. 





Para montar sua própria animação 
(de dois quadros), você precisará modi- 
ficar os comandos gráficos nas linhas 60 
e 70e 100e 110. Futuramente, você ve- 
rá que é possível usar até oito páginas 
gráficas em seqüéncia. 


O programa do TRS-Color é ligeira- 
mente diferente dos destinados aos ou- 
tros computadores. Ele usa trés páginas 
gráficas — em vez de duas — das oito 
possíveis acessadas pelo comando 
PCOPY. Esse comando é utilizado da 
seguinte maneira: PCOPY número da 
primeira página TO número da última 
página — PCOPY 1 TO 8, por exem- 
plo. Na verdade, a alternância de pági- 
nas é tão rápida, que se torna necessá- 
rio introduzir uma pausa entre elas. 

O programa mostra uma grande es- 
trela girando continuamente. 


10 PCLEAR 8:PMODE 2,1 

20 SCREEN 1,1:CLS 

30 C=ATN(1)/45 

50 FOR N=0 TO 2 

60 PCLS 

70 FOR K=0 TO 360 STEP 45 

80 LINE(127,95)-(127*59*SIN(C*( 
K*N*15)),95-59*CO8 (C* (K*N*15))) 
,PSET 


90 NEXT 

100 PCOPY 1 TO 3+N*2:PCOPY 2 TO 
4+N*2 

110 NEXT 

140 FOR N=3 TO 7 STEP 2 

150 PCOPY N TO 1:PCOPY N*1 TO 2 
160 FOR G=1 TO 30:NEXT G,N 

170 GOTO 140 


A linha 10 abre espaço para as oito 
páginas gráficas e seleciona PMODE2 
na página 1, para ficar em branco e pre- 
to com média resolução. Neste modo, 

















uma tela ocupa duas das páginas gráfi- 
cas internas. Na linha 20 o modo de al- 
ta resolução gráfica é acionado. 

As imagens que irão ocupar as três 
páginas são montadas da linha 30 até a 
linha 110, enquanto a linha 100 copia 
cada uma delas nas páginas internas. 
Uma tela ocupa duas páginas internas 
e as duas primeiras páginas são usadas 
para desenhar os gráficos. 

As linhas 140 a 160 copiam as pági- 
nas armazenadas na tela, em segiiência. 
Há uma pausa na linha 160 para evitar 
que as imagens se alternem muito rapi- 
damente e se sobreponham. 


e ee 


No Apple, contamos com duas pági- 
nas gráficas. O comando HGR ativa a 
alta resolugáo, limpa e mostra a página 
1 da memória. O comando HGR2 ativa 
a alta resolução, limpa e mostra a pági- 
na 2. Colocaremos um desenho em ca- 
da página, fazendo com que se alter- 
nem. Digite e execute o programa. Vo- 
cê verá um beija-flor pairando no ar. 


5 HGR 

10 POKE - 16302,0 

20 Xl = 112:Y1 = 67:N = 16 

30 GOSUB 100 

40 FOR T » 1 TO 1000: NEXT T 
50 HGR2 

60 X1 = 115:Y1 = 83:N = 19 
70 GOSUB 100 

80 FOR T = 1 TO 1000: NEXT T 
90 GOTO 300 


100 FOR I * 1] TON 

110 READ X2 

120 READ Y2 

130 HPLOT X1,Y1 TO X2,Y2 

140 LET Xl - X2: LET Yl * Y2 
150 NEXT I 

160 RETURN 

200 DATA 86,3,79,67,90,86, 


192,3,176,64,141,99,198,166,170 
‚186 

210 DATA 115,186,118,138,86,1 
18,12,191,48,139,51,109,67,90,9 
0,86 

220 DATA 96,64,54,48,83,86,11 
5,83,160,80,240,102,185,115 
230 DATA 144,113,160,144,192, 
147,179,169,144,185,115,148 


240 DATA 86,118,12,191,48,139 
,51,109,67,90,83,86 

300 POKE - 16304,0: POKE - 1 
6300,0 

310 FOR I = 1 ТО 70: NEXT I 
320 РОКЕ - 16304,0: POKE - 1 
6299,0 

330 FOR T - 1 TO 70: NEXT T 


340 GOTO 300 


A linha 5 ativa o comando HGR. To- 
dos os comandos gráficos escreverào na 
primeira página. A linha 10 “fecha” a 


janela de quatro linhas na base da tela. 
A linha 20 define os pontos iniciais do 
primeiro desenho (X1 e Y1) e o número 
de coordenadas a serem lidas (N). A li- 
nha 30 desvia o programa para a sub- 
rotina de desenho que vai da linha 100 
à linha 160. Para construir esse primei- 
ro desenho, serão lidas as linhas 200 e 
210, 

A linha 50 ativa o HGR2, abrindo es- 
paço para se escrever na segunda pági- 
na. A linha 60 define os valores iniciais 
da segunda figura e a 70 chama a sub- 
rotina de desenho, que agora irá ler as 
linhas 220, 230 e 240. 

A rotina entre as linhas 300 e 340 al- 
terna as duas figuras na tela. A linha 300 
mostra a página 1 e a 320, a página 2. 
As linhas 310 e 330 introduzem pausas 
para diminuir a velocidade de alternán- 
cia das imagens. 


5] 


O programa do TK-2000 é semelhan- 
te ao do Apple. Devem ser feitas as se- 
guintes modificacóes: 

5 MA: HOME :MP: 
10 MA: HGR2 

50 MP: HGR2 

300 MA 

320 MP 


A linha 5 limpa a primeira (MA)ea 
segunda (MP) páginas. A linha 10 ha- 
bilita o usuário a escrever na primeira 
página, e a linha 50, na segunda. As li- 
nhas 300 e 320 mostram a primeira e a 
segunda páginas, respectivamente. 

Para entender melhor o programa, 
veja as explicações para o Apple. 


+ EE 


O MSX, como você já deve saber, 
possui uma memória exclusiva para a te- 
la, a VRAM, que é dividida em oito par- 
tes de 2048 bytes. O comando BASE en- 
dereça cada arquivo de códigos em um 
deles, nào necessariamente em seqüén- 
cia. Como o modo de baixa resolucáo 
gráfica não exige muitas informações, 
grande parte da VRAM fica desocupa- 
da. Nesses espacos é possível criar até 
seis páginas gráficas. Para demonstrar 
isso, o próximo programa irá simular a 
rotação de um cubo. 


HOME 


5 BASE (18) =BASE (19) 

10 BASE(17)=0:SCREEN 3 

20 X1=127:Y1=40:N=4 

30 GOSUB 200 

40 ВАЗЕ (17) =4096:5СВЕЕМ 3 
50 X1=103:Y1=151:N=10 


60 GOSUB 200 

70 BASE(17)=6144:SCREEN 3 

80 X1=95:Y1=151:N=10 

90 GOSUB 200 

100 BASE(17)=8192:SCREEN 3 

110 X1=85:Y1=96:N=6 

120 GOSUB 200 

130 BASE(17)=10240:SCREEN 3 
140 X1=155:Y1=151:N=10 

150 GOSUB 200 

160 BASE (17)=12288:SCREEN 3 
170 X1=151:Y1=151:N=10 

180 GOSUB 200 

190 GOTO 400 

200 FOR I=1 TO N 

210 READ X2 

220 READ Y2 

230 LINE(X1,Y1)-(X2,Y2) 

240 LET Xl-X2:LET Yl-Y2 

250 NEXT I 

260 RETURN 

300 DATA 177,96,127,151,74,96,1 
27,40 

310 БАТА 133,96,176,96,151,151, 
103,151,78,96,103,40,151,40,181 
,96,128,96,103,40 

320 DATA 110,96,170,96,155,151, 
95,151,80,96,95,40,155,40,170,9 
6,110,96,95,40 

330 DATA 85,41,169,41,169,151,8 
5,151,85,96,169,96 

340 DATA 140,96,80,96,95,151,15 
5,151,170,96,155,40,95,40,80,96 
,140,96,155,40 

350 DATA 121,96,73,96,103,151,1 
51,151,181,96,151,40,103,40,73, 
96,121,96,151,40 

400 BASE(17)=0 

410 FOR I-1 TO 70:NEXT 1 

420 ВАЗЕ(17)-4096 

430 FOR I-1 TO 70:NEXT I 

440 BASE(17)*6144 

450 FOR I=1 TO 70:NEXT 1 

460 BASE(17)*8192 

470 FOR І=1 ТО 70:МЕХТ І 

480 ВАЗЕ (17) =10240 

490 FOR I=1 ТО 70:МЕХТ І 

500 ВАЗЕ (17) =12288 

510 FOR I-1 TO 70:NEXT I 

520 GOTO 400 

Primeiro, a linha 5 coloca o endere- 
ço de um arquivo que nào iremos usar 
no ültimo segmento da VRAM, junto 
com um outro, a fim de criar espaço. A 
linha 10 faz o computador colocar a ta- 
bela de padrões (a figura propriamente 
dita) a partir do endereço 0. A 20 defi- 
ne os pontos iniciais do desenho (X1 e 
Y1) e o número de coordenadas que se- 
rão lidas (N). A 30 chama a rotina de 
desenho, que começa na linha 200 e ter- 
mina na 260. A 300 contém as informa- 
ções para o primeiro desenho. 

Feitos os desenhos, o programa é des- 
viado para a rotina da linha 400, que al- 
terna as figuras na tela, dizendo ao com- 
putador, por meio do comando BASE, 
onde buscá-las. Essa rotina inclui ain- 
da uma pausa entre as figuras, para que 
elas não se sobreponham. 





ARMAZENAGEM 
DE PROGRAMAS 





O funcionamento do computador desperta 
nossa curiosidade sobretudo quando 
algo não vai bem. Sabendo como os 
programas são armazenados, você poderá 
detectar seus erros com mais facilidade. 





O que o computador faz com seu 
programa depois de tê-lo digitado? 

Provavelmente, você sabe que ele é 
armazenado em um lugar especial da 
memória, reservado para programas em 
BASIC, Tem, porém, idéia de onde fi- 
ca esse lugar e de que maneira as linhas 
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são escritas, para que o computador as 
entenda? 

Na memória do computador, o pro- 
grama se assemelha bastante à listagem 
que você digitou, e muitos dos números 
ali guardados são códigos ASCII, repre- 
sentando as letras. Mas a máquina re- 














duz algumas palavras — as palavras- 
chave — e, também, introduz inform: 
ções extras entre as linhas, para facili- 
tar sua localização. 

O computador possui ainda uma área 
onde guarda as variáveis criadas pelo 
programa, modificando-as sempre que 
necessário. Quando digitamos, por 
exemplo, 10 LET A =6, a máquina não 
só armazena essa linha como coloca o 
nome e o valor da variável nela contida 
em outro local da memória. 

Vejamos tudo isso um pouco mais de 
perto. Para começar, digite o próximo 
programa exatamente como está. No 
Spectrum, não deixe nenhum espaço. 
Nos outros micros, coloque um espaço 
apenas após as palavras PRINT e LET. 


КЧ ЕВ пи[ф 1] 


10 PRINT "INPUT" 
20 LET A=2 

30 PRINT A 

40 STOP 


"7. si 


A armazenagem de um programa em 
BASIC, no MSX, comega по епдегесо 
32769. Para ler os códigos armazenados, 
a partir desse endereco, dé o seguinte co- 
mando direto: 


FOR 1232769 TO 32888:PRINT PEEK 
();" "i:NEXT I 





Obteremos, entáo, este bloco: 


15 128 10 0 
32 34 73 78 80 
85 84 34 0 


128 20 0 136 32 
65 239 19 0 33 
128 30 0 145 32 
65 0 39 128 40 
0 144 0 0 0 


Se vocé considerar esses nümeros co- 
mo códigos ASCII e tentar relacioná-los 
aos caracteres equivalentes, descobrirá 
que só alguns fazem sentido: 


? ? ? T Y 
esp R I N р 
u T Е ? Ф 
? ? ? - esp 
A ? ? ? ? 
? Ф: ? ? евр 
А ? ? ? ? 
? ? ? + ? 


Já se vê parte do programa. Mas on- 
de estão o PRINT, que antecede a pa- 
lavra INPUT, e os demais comandos? 

O MSX usa um artifício para econo- 
mizar memória: codifica as palavras e 
os caracteres reservados, substituindo- 
os, ao armazenar o programa, por es- 


ses códigos, usualmente chamados fo- 
kens (do inglês: símbolo, indicação). 

Se, posteriormente, você tiver interes- 
se em obter uma lista dos tokens, utili- 
ze este programa: 


10 E=14962 

20 С=65 

30 PRINT CHR$(C); 

40 A=PEEK(E) 

50 B=PEEK(E+1) 

60 AS=CHRS (A) 

70 IF A<128 THEN PRINT AS; :GOTO 


110 

B0 PRINT CHR$(A-128) ; TAB(8) ;B 
90 Е=Е+1 

100 IF PEEK(E+1)<>0 THEN PRINTC 
HR$(C); 

110 1F PEEK(E+1)<>0 THEN 150 








120 C=C+1:TF C=89 THEN 170 

125 B$=CHR$ (C) : PRINT 

130 IF B$="J” OR B$-"Q" THEN 15 
0 

140 PRINT B$; 

150 E=E+] 

160 IF E<=15649 THEN 40 

170 E=15654:PRINT 

180 A=PEEK(E) :B=PEEK(E+1) 

190 IF A>127 THEN PRINT CHRS(A- 
128); 


200 1F A<128 THEN PRINT CHRS(A) 


210 PRINT TAB(8);B 
220 E=E+2:PRINT 
230 IF E<15673 THEN GOTO 180 


Interpretando os tokens, nosso blo- 
co ficará assim: 





? ? ? ? PRINT 
esp x I N P 

u T ж ? t 

? ? ? LET esp 

^ - 2 ? 

? ? ? PRINT esp 

^ Ж. ? ? ? 

? STOP ? ? ? 


Na terceira, 17:, 27! e 35! posigóes 
encontra-se a seqüéncia 10, 20, 30 e 40. 
Esses bytes guardam a parte baixa (L) 
do nümero de cada linha e cada byte 
subseqüente guarda a parte alta (H). Os 
dois bytes anteriores armazenam, do 
mesmo modo, o endereco da próxima 
linha. 


120L 120H 10 0 PRINT 
esp I N P 

u * E ? 130L 
130H 20 0 Li esp 

А - T ? 140L 
140H 30 0 PRINT esp 

А ? fimL fimH 40 

0 STOP ? ? ? 


Para os bytes finais, o valor O signi- 
fica fim de linha; dois 0 seguidos indi- 
cam fim de programa. O valor 2, atri- 
buído à variável A, é armazenado no 
23? byte, de uma forma relativamente 





complicada, que nào cabe aqui exami- 
nar. Finalmente, temos o diagrama 
completo de uma linha na RAM: 


120L 120H 10 0 PRINT 
esp < I N P 

u T " fiml 130L 
130H 20 0 LET esp 

А = 2 fiml 1401 
140H 30 0 PRINT esp 

^ fiml fimL fimH 40 

0 STOP fiml fimpr fimpr 


VARIAVEIS NUMERII 


Já sabemos como um programa é co- 
locado na memória do micro. Veremos 
agora como o valor de uma variável é 
armazenado na RAM. Lembre-se de que 
o MSX possui a função VARPTR (do 
inglés VARiable PoinTeR), que mos- 
tra o endereço a partir do qual está guar- 
dada determinada variável. 

Vamos explorar, em primeiro lugar, 
as variáveis numéricas. 

Use NEW para apagar o programa 
anterior é execute este: 


10 DEFINT A 

20 A=) 

30 V=VARPTR (A) -2 
40 FOR K=V TO V+3 
50 PRINT PEEK(K); 
60 NEXT 


Você obterá os seguintes números: 


es 0 Y @ 


O primeiro e o segundo bytes arma- 
zenam o nome da variável — por isso, 
só as duas primeiras letras dela impor- 
tam. Como se trata de uma variável do 
tipo inteira, bastam os dois bytes seguin- 
tes para guardar seu valor nas duas di- 
ferentes modalidades (parte baixa, L, e 
parte alta, H). 

Faça as seguintes substituições no 
programa e volte a executá-lo: 


10 DEFSNG A 
40 FOR K=V TO V+6 


Temos então estes números: 


65 0 65 16 0 0 


Os dois primeiros bytes dào o nome 
à variável. Estamos lidando agora com 
uma variável de precisáo simples e, por 
isso, precisaremos de cinco bytes para 
armazenar seu valor. O primeiro deles 
cuida do expoente, guardando o resul- 
tado da soma de seu valor com o núme- 
ro 65, para facilitar o manejo de expoen- 
tes negativos. Os trés bytes restantes 
encarregam-se de guardar o número 
propriamente dito. 

Faça estas novas substituições e exe- 
cute O programa. 











10 DEFDBL À 
40 FOR K-V TO V*9 


Aparecem na tela os nümeros: 
65 0 65 16 00 00 0 0 


Como vocé pode observar, o nome e 
o expoente continuam sendo armazena- 
dos da mesma maneira, mas são neces- 
sários sete bytes para guardar o número. 


VARIAVE TRING 


Para armazenar as variáveis do tipo 
string, o MSX utiliza três bytes, Digite 
o próximo programa e veja como eles 
são aproveitados. 


10 AS-"ABC" 
20 V-VARPTR (A8) -2 

30 FOR K-V TO U*4 

40 PRINT PEEK(K);" "i; 
50 NEXT 


Vocé deve ter obtido os números: 
65 0 3 9 128 


Os dois primeiros bytes contém o no- 
me da variável; o terceiro, seu compri- 
mento; os dois últimos indicam o ende- 
reco no qual ela se encontra, ou seja, sua 
posicào exata na parte da RAM que ar- 
mazena o programa. Este é um artifício 
que o MSX utiliza para economizar me- 
mória. Se houver alguma modificação 
na linha que contém a variável (a linha 
10), que impega o computador de usá- 
la, ele colocará seu conteúdo em outro 
endereco. 


VARIAVEIS INDEX, 


Quando vocé define uma matriz com 
o comando DIM(n), o MSX reserva, na 
memória, um espaço para n+1 variá- 
veis, pois a primeira delas tem índice 0. 
Execute o próximo programa e veja co- 
mo elas são armazenadas. 


10 DEFINT A 

20 DIM A(2) 

30 A(0)=5:A(1)=10:A(2)=15 
40 V=VARPTR(A(0)) 

50 FOR K-V TO V*16 

60 PRINT PEEK (K); 

70 NEXT K 


Você deve ter obtido: 


00 2 65. 0 9 0 1. 3 
0 5 0:10 0 16 0 


Os trés primeiros bytes zerados ini- 
cializam a área de armazenamento. O 
byte com o nümero 2 indica que a va- 
riável é do tipo inteira — seria 4, para 
variáveis de precisáo simples, e 8, para 


variáveis de precisão dupla. Os dois 
bytes seguintes fornecem o nome da va- 
riável, O sétimo e o oitavo indicam 
quantas posições faltam para o fim des- 
sa área. O nono byte contém o número 
de dimensões, e o décimo e o 11º, o ta- 
manho dessas dimensões, Em seguida 
vêm os números, armazenados confor- 
me o tipo de cada variável. 

Para as variáveis indexadas do tipo 
string pouca coisa mudaria. O quarto 
byte, que indica o tipo de variável, te- 
ria o número 3, e, em vez de guardar um 
valor numérico, conteria os endereços 
dos caracteres, como no armazenamen- 
to de strings comuns, 


No Spectrum, há dois endereços de 
memória que, juntos, nos dão o ende- 
reço a partir do qual está armazenado 
o programa em BASIC, Acesse-os com 
o seguinte comando direto; 


PRINT РЕЕК 23635%256%РЕЕК 23636 


Vocé obterá como resposta o núme- 
ro 23755, em um Spectrum de 48K, Se 
vocé achou um número diferente e tem 
certeza de que digitou o comando cor- 
retamente, substitua 23755 pelo valor 
encontrado, no próximo comando. 


FOR 1=23755 TO 23755+40:PRINT 
PEEK I;" ";:NEXT 


Vocé obterá os seguintes nümeros: 


0 10 9 0 245 
34 73 78 80 85 
84 34 13 0 20 
11 0 241 65 61 
50 14 0 0 2 

0 0 13 0 30 
3 0 245 65 13 
0 40 2 0 226 
13 


Agora, usando os códigos ASCII, 
observe como fica o quadro: 


9999 To 
Wo rH 
ээ зә чә ча д ча Жз 
HAYA 
999 9c 


Vocé já pode ver parte do programa, 
mas falta decifrar vários códigos. 

Provavelmente o comando PRINT 
estaria antes de “INPUT”, mas o que 
vemos nessa posição é o número 245. O 
Spectrum usa valores acima de 164 pa- 
ra codificar as palavras reservadas, Se 


você consultar a lista delas, no manual, 
verá que 245 é o valor, chamado token 
(do inglês: símbolo, indicação), para 
PRINT. Consultando a lista de tokens, 
localizaremos os comandos. 


PRINT 
u 


sm 


RINT À 


этоәзгеш-е 
m 
5 

юр оороо 


? 
? 
? 
? 
8' 


9» 


TOP 


LANA 2 


No segundo, 15?, 30? e 37? bytes, 
encontra-se a seqüéncia 10, 20, 30, 40. 
Esses bytes sáo usados para guardar a 
parte baixa (L) do número da linha, as- 
sim como o byte anterior guarda a par- 
te alta (H). Os dois bytes seguintes da 
linha indicam seu tamanho (excluídos os 
quatro primeiros), sendo que, agora, a 
parte baixa aparece primeiro. 

Temos, assim, o seguinte diagrama: 


0 10 compL compH PRINT 
е І N р у 

т ж ? 0 20 
compL compH LET A = 

2 ? ? Т ? 

? ? ? 0 30 
compL compH PRINT А ? 

0 40 compL compH STOP 
? 


Vejamos, agora, os bytes finais. O 
valor 13 é usado para indicar fim de li- 
nha (fdl). O número 14 indica que os 
próximos quatro bytes são uma forma 
codificada de uma constante numérica 
— no caso, 2. 


0 10 compL compH PRINT 

б I N P u 

T " fal 0 20 

compL compH LET А = 

2 cnum 0 0 2 

0 0 fal 0 30 

compL compH PRINT A fdl 
40 compL compH STOP 

tal 


IMAZENAGEM DAS VARIAVEIS 


Vimos como um programa em BA- 
SIC é armazenado. Todas as variáveis 
definidas por ele, porém, sào guardadas 
em uma área separada. Dois enderecos 
— 23627 e 23628 — contém o início des- 
sa área, e dois outros — 23641 e 23642 
— apontam para o fim. Para imprimir 
todo o conteüdo da memória, entre es- 
te programa: 


10 FOR A-PEEK 23627*256*PEEK 
23628 TO PEEK 23641+256*PEEK 


23642 
20 PRINT PEEK A;" "i; 
30 NEXT À 


VARIAVEIS NUMERIC 


Em primeiro lugar, vamos definir 
uma variável, acrescentando esta linha 
ao programa anterior. 


1 LET B=150000 


Executando o programa, temos: 


98 146 18 124 0 0 225 0 
з +— valor? 


O nümero 98 é o código para a letra 
B mais 32 — isto mostra ao computa- 
dor que ele está lidando com uma va- 
riável numérica. O valor 150000 é arma- 
zenado nos cinco bytes seguintes, na for- 
ma de ponto flutuante. Os dois últimos 
bytes, 225 e 0, indicam o fim da área de 
variáveis. Como eles sempre aparecerão 
na mesma posição, deixaremos de 
mencioná-los nos próximos exemplos. 

As variáveis com nomes longos são 
armazenadas da mesma maneira, ape- 
sar dos caracteres terem seus códigos um 
pouco alterados. Tente isto: 


1 LET MARIA=30 


Você deve ter obtido os números 


173 97 114 105 225 
M A R I ^ 


0.0300 0 
€—— valor — 


Os primeiros cinco bytes guardam o 
nome MARIA. À primeira letra soma- 
se o nümero 96, indicando um longo no- 
me; às do meio, o nümero 32; à ultima 
letra é adicionado 160, indicando o fim 
do nome. Os ültimos cinco bytes arma- 
zenam o valor numérico. 


VARIAVEI 





G E INDEXA 





A próxima linha de programa mos- 
tra a maneira como as variáveis do tipo 
string sào armazenadas: 


1 LET A$="STRING” 
Você deve ter obtid 


65 6 0 83 84 82 73 78 71 
A гта тис 





О nome da variável, A, vem seguidc 
de dois bytes com a quantidade de ca- 
racteres armazenados. Como vocé po- 
de notar, estes caracteres sáo represen- 
tados pelos códigos em ASCII. 





- Tente agora uma variável numérica 
indexada: 


1 DIM F(2) 
2 LET F(1)=100 
3 LET F(2)=200 


Executando o programa, temos: 


к-ды A Hoe CRUS 
€— valor — 


0 0.2000 0 
€— valor — 


O primeiro byte é F mais 64, indican- 
do uma variável numérica indexada. Os 
dois próximos bytes, com a parte baixa 
primeiro, indicam o nümero de bytes se- 
guintes — 13. O próximo byte diz o nú- 
mero de dimensóes e os dois seguintes 
mostram o nümero de elementos reser- 
vados. Só entào se chega aos dois valo- 
res armazenados, que ocupam cinco 
bytes cada um. 

Veja, finalmente, as variáveis inde- 
xadas do tipo string. Digite estas linhas 
e execute o programa. 


1 DIM B$(2,8) 
2 LET BS(1)="NOVA” 
3 LET B$(2)="CULTURAL” 


Observe como fica o quadro: 
19421022080 
B 


78 79 86 65 32 32 32 32 
NOVA 


67 85 76 84 85 82 65 76 
OS U JE TU X AE 


O primeiro byte é o código de B mais 
128, para variáveis indexadas do tipo 
string. Os dois próximos mostram quan- 
tos bytes ainda serào encontrados até o 
fim da área de variáveis. O byte seguin- 
te guarda o nümero de dimensóes — 
neste caso, 2. Outros dois pares de bytes 
contém, respectivamente, o nümero de 
elementos e o comprimento máximo de- 
les. Os bytes restantes guardam os ca- 
racteres, sendo que o código 32 (espa- 
ço) completa o espaço reservado para 
um elemento, se este for menor que o 
comprimento reservado. 


No TRS-Color, existem dois endere- 
ços que, juntos, indicam o início da área 
de programas em BASIC. Esses ende- 
reços são 25 e 26 (decimal). 

Digite o seguinte comando: 


PRINT РЕЕК (25) *256+РЕЕК (26) 


Se seu computador acabou de ser li- 
gado, a resposta será 7681. Caso obte- 
nha outro nümero, substitua-o no se- 
guinte comando que irá executar: 


FOR 1=7681 TO 7681+39:PRINT 
PEEK(I);:NEXT I 


Vocé deve ter obtido este bloco: 


30 15 0 10 135 
32 34 73 78 80 
85 B4 34 0 30 
25 0 20 142 32 
65 203 50 o 30 
33 0 30 135 32 
65 0 30 39 0 
40 146 0 0 o 


Agora, usando os códigos ASCII, 
observe como fica o quadro: 


? ? ? ? ? 
esp " 1 N P 
u T ed ? ? 
? ? ? ? esp 
^ ? 2 ? ? 
? ? ? ? esp 
А T T ? ? 
? ? ? ? ? 


Já podemos ver uma parte do progra- 
ma em BASIC, mas existem ainda mui- 
tos pontos de interrogacáo. 

Vocé poderia esperar que a palavra 
PRINT aparecesse antes de “INPUT”, 
no diagrama. Em vez disso, temos o nú- 
mero 135. O computador usa valores 
acima de 127 para representar as pala- 
vras reservadas. O número 135 é o va- 
lor, também chamado roken (do inglés: 
símbolo, indicação), para o comando 
PRINT. Com esses valores, você pode 
tornar o diagrama mais completo. 


? ? ? ? PRINT 
esp T I N P 

у т 6 ? ? 

? ? ? LET esp 

А a 2 * ? 

P ? ? PRINT esp 

А ? ? ? ? 

T STOP ? ? Y 


Se quiser, depois, obter a lista dos to- 
kens, use este programa: 


10 CLEAR 1000:CLS 

20 C=43622:FOR K=0 TO 78 

30 WS(K/39) =WS (K/39)+CHRS (PEEK( 
€) 

40 C=C+1:IF PEEK(C-1)<128 THEN 
30 

45 IF K=52 THEN C=33155 

50 NEXT 

60 C=43802:FOR K-1 TO 34 

70 F$=F$+CHR$ (PEEK (C) ) 

80 C=C+1:IF PEEK(C-1)<128 THEN 
70 

85 IF K=20 THEN C=33310 

90 NEXT 





100 PRINT:INPUT" DIGITE O SIMBO' 
LO EM HEXADECIMAL";T$ 

110 TK-UAL ("&H"*T$) 

120 IF TK>65280 THEN TK=TK-6528 
0:GOTO 210 

130 IF TK<128 OR TK>205 THEN 25 
0 

140 K=-39* (TK>166) :P=1 

150 IF K=TK-128 THEN WS=WS (K/39 
):GOTO 180 

160 P=P+1:IF ASC(MIDS (WS(K/39), 
P-1,1))<128 THEN 160 

170 K=K+1:GOTO 150 

180 PRINT:PRINT " SIMBOLO ";T$; 
190 AS-MIDS(WS,P,1):IF ASCCHRS( 
128) THEN PRINT AS$;:P*P*1:GOTO 

190 

200 PRINT CHRS(ASC(AS) AND 127) 
:GOTO 100 

210 K=0:P=1:IF TK<128 OR TK>161 
THEN 250 

cp K-TK-128 THEN W$*F$:GOTO 
230 P-P*1:1F ASC(MIDS(F$,P-1,1) 
)<128 THEN 230 

240 K=K+1:GOTO 220 

250 PRINT” CARACTER ILEGAL ”:PR- 
INT:GOTO 100 

Digitando qualquer token, o progra- 
ma fornecerá a função ou comando 
equivalente. Seus valores, em hexadeci- 
mal, vão de 80 até CD, para os coman- 
dos, e de FF80 até FFAI para as 
funções. 

No quarto, 18º, 28º e 36º bytes há 
esta sequência: 10, 20, 30, 40. Esses 
bytes são usados para armazenar a par- 
te baixa (L) do número da linha, en- 
quanto o zero antes deles guarda a par- 
te alta (H). 

Os dois primeiros bytes de cada linha 
são usados para indicar onde começa a 
linha seguinte, Eles podem ser, por 
exemplo, 30 e 15. Multiplicando 30 por 
256 — pois se trata da parte alta — e 
adicionando 15, temos 7695, número 
correspondente ao endereço que contém 
o primeiro byte da linha 20. 

Finalmente, sabendo que o valor O 
significa fim de linha, podemos comple- 
tar o diagrama: 





prxlH prxlL 0 10 PRINT 
esp " I N P 

у т 2) fdl  prxlH 
prxlL 0 20 LET esp 
A - 2 fdl ргхін 
prx1L 0 30 PRINT esp 
A fal prx1H prx1L 0 

40 STOP fdl 0 0 


ARMAZENAGEM DAS VARIAVEI 


Vimos como um programa é arma- 
zenado. Porém, sempre que se define 
uma variável no programa, ela é colo- 
cada separadamente em duas áreas es- 
peciais. Há dois enderecos, 27 e 28, que 





indicam o inicio da área utilizada para 
guardar variáveis simples. Outros dois 
enderecos, 29 e 30, apontam para o ini- 
cio da área de variáveis indexadas. 

As variáveis simples também podem 
ser acessadas por meio do comando 
VARPTR, seguido do nome da variá- 
vel. Entào, VARPTR(A) fornecerá a 
localizacào do valor da variável A. Co- 
mo o nome dessa variável é armazena- 
do imediatamente antes de seu valor, 
usaremos VARPTR(A) - 2. 


RIAVE ІМ 





O próximo programa imprime os seis 
primeiros bytes da área de variáveis sim- 
ples, mostrando como a variável A é ar- 
mazenada na memória. 


1 A=1 

10 V=VARPTR (A) -2 
20 FOR K-V TO V*6 
30 PRINT PEEK(K) ; 
40 NEXT:PRINT 


Vocé obterá os seguintes nümeros: 


6501290000 
A €— valor — 


A letra A é armazenada primeiro e o 
byte seguinte deixa um espaco reserva- 
do para outra letra. Os cinco bytes res- 
tantes sáo o número 1, na forma de pon- 
to flutuante. 


TIPO STRING 





As variáveis string sáo armazenadas 
de forma muito semelhante. Troque a 
letra A da linha 10 por AAS e substitua 
a linha 1 por: 


1 AAS="CADEIRA” 
Desta vez, você terá: 


65 193 7 0 38 10 0 
АА 


O nome AA é colocado nos dois pri- 
meiros bytes. Adiciona-se à segunda le- 
tra o valor 128, para indicar que ela é 
uma variável string. O nümero 7 corres- 
ponde à quantidade de bytes usados 
(conte-os). O 38 e o 10 são, respectiva- 
mente, a parte alta e a parte baixa do 
endereço onde a palavra CADEIRA es- 
tá armazenada. 

Calculando esse endereço, temos 
38*256+ 10, que é igual a 9738. Efeti- 
vamente, esta é a localização da palavra 
CADEIRA no programa em BASIC. O 
TRS-Color, desse modo, economiza me- 
mória, evitando que a informação seja 


duplicada. Mas, assim que se alterar a 
linha ou a variável, esta será colocada 
em um outro lugar, e o endereço calcu- 
lado não será mais o mesmo. Os zeros 
que cercam os dois números mostram 
sua utilidade quando o computador apa- 
ga velhas variáveis e cria outras. 


VARIAVEIS INDEXAI 


O próximo programa ajudará a vas- 
culhar a área de variáveis indexadas. 


10 T=1:K=1:V=PEEK(29)*256+PEEK( 


30) 

20 T=PEEK(V+2)*256+PEEK (V+3) 
30 FOR K-V TO V*T-1 

40 PRINT PEEK(K) ; 

50 NEXT 


Acrescente estas linhas e depois exe- 
cute o programa. 


1 DIM A(0,2) 
2 A(0,0)=10 
3 A(0,2)=20 


Vocé obterá os seguintes números: 


65002420301 
A 


1323200000000 
€— valor —9 6- valor - > 


13332000 
€— valor —3 


Como sempre, os dois primeiros 
bytes dào o nome da variável, e os dois 
outros indicam o seu comprimento. O 
byte seguinte mostra o nümero de di- 
mensóes, 2, e os dois próximos pares, 
o número de elementos, na ordem inver- 
sa — о 03 e o 01 indicam uma matriz 
1 por 3. Depois disso, vém os próprios 
valores, na forma de ponto flutuante. 
Observe que foi reservado um espaco 
para o elemento (0,1), embora ele nào 
tenha sido definido. 

Faca uma experiéncia com as variá- 
veis string indexadas. 


1 DIM AS(2) 
2 AS(0)="NOVA” 
3 AS(2)="CULTURAL” 


Executando o programa, obterá: 
65 128 02210 34 0 38 24 0 0 


00008033410 


O nümero 65 corresponde à letra A 
e o 128 indica uma variável string. Há 
dois bytes para o comprimento, um pa- 
ra a dimensáo e um par destinado á 
quantidade de elementos. Em seqüéncia, 
encontram-se trés grupos de cinco bytes 
por cadeia. Cada grupo comeca por um 


nümero que diz quantos caracteres a va- 
riável possui — 4, no caso de NOVA. 
Seguem-se um zero para guardar uma 
casa, dois bytes para o enderego da va- 
riável e mais um zero. O mesmo se re- 
pete para todas as variáveis, inclusive as 
que náo foram definidas. Os valores 38 
e 33 poderáo ser diferentes se se colo- 
car o programa em uma parte diferente 
da memória. 


с г A 


Tanto o Apple como o TK-2000 co- 
mecam a armazenar os programas em 
BASIC a partir do endereco 2048. De- 
pois de digitar o programa inicial, exe- 
cute o seguinte comando para ver como 
ele foi colocado na memória: 


FOR 122048 TO 2083:PRINT PEEK(I 
);" "i:NEXT 


Vocé obterá estes nümeros: 


0 14 8 10 0 
186 34 73 78 B0 
85 84 34 0 23 
8 20 0 170 65 
208 50 0 30 8 
30 0 186 65 0 
36 8 40 0 179 
0 


Vejamos se algo faz sentido, se usar- 
mos os códigos ASCII: 


99994. 
TIETE 
sss AA 
s>... z 
AUDI 


Talvez vocé esperasse que a palavra 
PRINT aparecesse antes da palavra IN- 
PUT. Porém, a fim de economizar me- 
mória, o computador substitui as pala- 
vras e os caracteres reservados por có- 
digos, denominados rokens (do inglés: 
símbolo, indicação). Consulte a lista de 
tokens no manual de seu micro e com- 
plete o diagrama. 


? ? ? ? ? 
PRINT " I N P 

u * x ? ? 

? ? ? LET A 

- 2 ? ? ? 

? ? PRINT À ? 

? ? ? ? STOP 
? 


Já podemos ver uma parte do progra- 
ma, mas ainda há muitos pontos de in- 
terrogacào. Se vocé der uma olhada no 
quarto, 17º, 26º e 33º bytes, encontra- 


га ита ѕедйёпсіа de números — 10, 20, 
30, 40. Esses bytes guardam a parte bai- 
xa (L) do número de cada linha, e o byte 
seguinte guarda a parte alta (H). Os dois 
bytes anteriores contêm o endereço on- 
de se inicia a próxima linha. O valor ze- 


ro serve para separar as linhas de 
programa. 

inic 120H 120L 10 0 
PRINT " I N P 

у т А fdl  130H 
130L 20 0 LET A 

- 2 fdl 140н 1401 
30 0 PRINT À fal 
fimH fimL 40 0 STOP 
fim 


ARMAZENAGEM DAS VARIAVEIS 


Já vimos como os programas sáo ar- 
mazenados. Porém, sempre que se de- 
fine uma variável, ela é guardada em 
uma parte especial da memória. O en- 
dereco da área de variáveis simples é da- 
do pelos bytes 105 (L) e 106 (H). 

Digite este programa e execute-o pa- 
ra ver como elas sào armazenadas. 


1 LET A=3 

10 V*PEEK (105) *256*PEEK (106) 
20 FOR T=V TO V+6 

30 PRINT PEEK(I); 

40 NEXT I 


Teremos, entáo: 
65 0 130 64000 


O nümero 65 é o código ASCII para 
a letra A, que corresponde ao nome da 
variável. O byte seguinte tem a mesma 
finalidade. O terceiro código refere-se 
ao expoente, e os quatro restantes, fi- 
nalmente, guardam o valor da variável. 
A armazenagem dos números, um tan- 
to complicada, náo interessa diretamen- 
te aos objetivos deste artigo, e, portan- 
to, náo será aqui examinada. 

Para uma variável do tipo string, fa- 
ça a seguinte substituição: 
1 LET ABS="APPLE” 

Executando o programa, você obterá: 
65194511800 

Os dois primeiros bytes dào o nome 
da variável, mas, agora, o valor 128 é 
adicionado à segunda letra, para indi- 
car uma variável string. O terceiro byte 
guarda seu comprimento. O par de bytes 
seguintes contém o endereco a partir do 
qual ela está armazenada. Para econo- 
mizar memória, em vez de escrever no- 
vamente a palavra APPLE em outro lu- 
gar da memória, o computador guarda 
apenas a posigáo que ela ocupa no pro- 
grama em BASIC: as variáveis string, 


definidas por um comando INPUT, por 
exemplo, sáo guardadas em uma outra 
posicao. 


VARIAVEIS INDEX; S 


As variáveis indexadas sáo armaze- 
nadas em um outro endereço, dado pe- 
los bytes 107 e 108. O computador tam- 
bém guarda aí algumas variáveis espe- 
ciais, como as usadas nos laços 
FOR...NEXT. Por isso, pulamos sete 
bytes para chegar à variável A. 

Execute o programa: 


1 DIM А(2) 

2 A(0)=5:A(1)=10:A(2)=15 

10 V=PEEK(107)+256*PEEK (108) 
20 FOR 1=0+7 ТО +28 

30 PRINT PEEK(T) ;" "; 

40 NEXT 1 


Você deve ter obtido a sequência 
650 220103 131320 0 0 


132 32 0 0 0 132 112000 


Os dois primeiros bytes dào o nome 
da variável. O próximo par diz, na for- 
ma LH, quantos bytes foram necessá- 
rios para o armazenamento (conte-os). 
O quinto deles guarda o nümero de di- 
mensões, A partir deste, na ordem de- 
crescente, seriam escritos os tamanhos 
de cada dimensão; como nós só temos 
uma, bastam os valores O e 3 (note que 
agora a parte alta veio em primeiro lu- 
gar). Finalmente, aparecem os valores, 
cada um ocupando cinco bytes, como já 
comentamos. 

Para examinar a armazenagem das 
variáveis string indexadas, substitua 28 
por 22 na linha 20 e mude as linhas: 





1 DIM BS(2) 
2 B$(1)="NOVA” 
3 B$(2)*"CULTURAL" 


Vocé deve ter tido esta resposta: 
66 128 16 0 10 3 0 0 
0.423 8. 8 40 8 


Os dois primeiros bytes guardam o no- 
me, como para as variáveis string co- 
muns. O par seguinte mostra o espaço 
ocupado por essa variável (novamente, 
conte os bytes). O quinto byte guarda 
o número de dimensões e os valores O 
e 3 indicam, na forma HL, o compri- 
mento da n-ésima dimensão (no nosso 
caso, a única). A partir daí, cada string 
ocupa três bytes, sendo que o primeiro 
contém seu comprimento e os dois ou- 
tros, sua posição no programa em BA- 
SIC. Os três zeros referem-se à variável 
BS$(0), que nós não definimos. 
















Um problema que aflige a maioria 
das pessoas é o controle de suas despe- 
sas. No artigo da página 134, apresen- 
tamos um programa bem prático para 
a organização do orçamento. Veremos, 
agora, um método desenvolvido a par- 
tir da planilha de cálculo utilizada pe- 
los profissionais em contabilidade. 

O programa para a planilha eletrôni- 
ca é extremamente versátil, tendo um 
potencial quase ilimitado para a mani- 
pulação de informações numéricas. E 
suas aplicações não se restringem à área 
financeira. Para começar, examinare- 
mos todas as suas possibilidades, Assim, 
depois de digitar o programa — que se- 
rá dado em três partes —, você estará 
apto a usá-lo eficientemente. Instruções 
detalhadas serão fornecidas junto com 
as listagens. 


UE É UMA PLANILHA DE CÁLCULO? 


As planilhas de cálculo eletrónicas 
valem-se de uma das maiores vantagens 
do computador — sua capacidade de fa- 
zer cálculos muito rapidamente. Em es- 
séncia, mesmo o maior e mais comple- 
xo dos computadores é uma máquina de 
somar. Os computadores, na verdade, 
só sabem lidar com números — e quem 
já se aventurou a trabalhar com código 
de máquina pode confirmar isto. 

Bem utilizada, uma planilha eletró- 
nica torna-se uma ferramenta bastante 
poderosa. Sua aplicacào mais freqüen- 
te é na área financeira, mas é possível 
estendé-la a qualquer finalidade. Ela 
substitui o papel, o lápis e a calculado- 
ra, antes usados pelos contadores para 
prever os lucros de uma empresa ou por 
cientistas investigando o crescimento po- 
pulacional. No plano doméstico, pode 
ser muito ütil no controle das despesas 
ou na organização dos dados relaciona- 
dos a um hobby. 

A planilha tradicional dos contado- 
res, empregada para anotar os lucros e 
despesas, é uma folha de papel dividida 
horizontalmente em linhas e vertical- 
mente em colunas. No cabeçalho, em 
geral, anotam-se os meses do ano, de 
maneira que cada coluna corresponde a 
um mês. Ao lado, colocam-se rótulos 
como receitas e despesas. Para análises 











UMA PLANILHA 
ELETRÔNICA (1) 





mais detalhadas incluem-se subtítulos, 
como vendas, exportações, custos ope- 
racionais, custos de matéria-prima etc. 
Cada linha corresponde a um item es- 
pecífico de receita ou despesa 

O título final da página é, usualmen- 
te, Lucros/Perdas e os números das co- 
lunas mostram quanto se ganhou ou se 
perdeu a cada mês. Na 13º coluna, 
registra-se o total da receita ou despe- 
sa, no ano, por área espec! а. 

O preenchimento das células com os 
nümeros é sempre uma tarefa trabalho- 
sa, quer se recorra ou náo ao auxilio de 
um computador. Mas os contadores que 
usam planilhas tradicionais vêem-se 
obrigados, além disso, a 
tas dos totais, o que significa somar to- 
dos os valores de receita, todos os valo- 
res de despesa e, finalmente, calcular a 
diferen 


O COMPUTADOR ENTRA EM JOGO 


Em muitos aspectos, a planilha de 
cálculo eletrônica é igual à que foi des- 
crita até o momento, dividindo-se tam- 
bém em células formadas por linhas e 
colunas. Para se obter células de tama- 
nho aceitável, apenas uma pequena par- 
te da planilha é exibida na tela, que é 
usada como uma “janela” para mostrar 
uma área particular. 

Como na planilha de papel, pod 
colocar qualquer tipo de dado nz 
las vazias. Elas só adquirem um signifi- 
cado particular depois de definidas, po- 
dendo cunter títulos, rótulos, valores 
etc., segundo a necessidade. 

Até aqui, a planilha eletrónica é tào 
ou mais trabalhosa que a manual. Sua 
grande vantagem reside, de fato, na ma- 
nipulagáo dos dados. Atrás de suas cé- 
lulas em branco encontra-se uma outra 
planilha, que diz ao computador o que 
deve fazer com as informações de cada 
célula. Essa segunda planilha pode ser 
checada e corrigida sempre que for ne- 
cessário. 

Para entender melhor como o siste- 
ma funciona, voltemos um pouco ao 
nosso contador tradicional. Suponha- 
mos que ele queira mostrar na primeira 
coluna o custo de um item; na segunda, 
a porcentagem de imposto a ser paga so- 







































Se você vive às voltas com uma grande 
quantidade de informações numéricas, 
peça socorro ao seu micro — ele, 
sem dúvida, se entende melhor 

com números e contas do que você. 


bre aquele valor e, na terceira, a soma 
dos valores exibidos nas duas colunas 
anteriores. O computador pode ser pro- 
gramado a fim de executar essa tarefa 


em instantes. Colocando a instrução 
adequada em cada célula da coluna dois, 
ele multiplicará o número da coluna um 
por uma taxa fixa. Uma instrução seme- 
lante em cada uma das células da co- 
luna trés fará com que ele calcule a so- 
ma das colunas um e dois. 


PROJECÓES 


Outro problema do contador que tra- 
balha com uma planilha manual é lidar 
com as alteracóes dos dados, em geral 
frequentes. Um aumento nos custos de 
mão-de-obra, por exemplo, pode 
obrigá-lo a recalcular o total de despe- 
sas e a revisar todos os valores de Lu- 
cros/Perdas. Se ele estiver simplesmen- 
te registrando valores, o problema não 
será tão grave. Mas, se seu trabalho in- 
cluir a projeção dados dos para um ano 
ou mais, ele precisará refazer centenas 
de cálculos. 

Executada manualmente, a tarefa se- 
rá demorada, cansativa e muito vulne- 
rável a erros. Um computador poderá 
completá-la em alguns décimos de se- 
gundo: depois de termos colocado de- 
terminados valores na planilha, a mu- 
dança de qualquer um provocará o rea- 
juste automático de todos os outros a ele 
relacionados. Se, por exemplo, o valor 
correspondente ao custo da matéria- 
prima muda, o custo total do produto 
é reajustado de acordo, bem como o lu- 
cro final. 

Algumas planilhas são capazes de fa- 
zer cálculos bem mais complexos, 
prestando-se, inclusive, à solução de 
questões do tipo “E se...?””, que apare- 
cem constantemente no mundo dos ne- 
gócios — e em muitas outras áreas. Em- 
bora empregadas principalmente para 
fins comerciais, elas têm utilidade em 
qualquer campo, sempre que se lida com 
muitas variáveis interdependentes. 

Graças à sua extraordinária versati- 
lidade, as planilhas eletrônicas são um 
dos tipos mais procurados de programa 
aplicativo. Muitas delas são compatíveis 
com outros programas, possibilitando 
composições adequadas a aplicações de 
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O QUE É UMA PLANILHA 

DE CÁLCULO? 

ORGANIZE A INFORMAÇÃO 
POR QUE USAR UMA PLANILHA 


RÓTULOS PARA 

AS LINHAS E COLUNAS 
COMO PREENCHER 

AS CÉLULAS 





CÁLCULOS COM O COMPUTADOR 


O COMEÇO DO PROGRAMA 





grande complexidade. Um editor de tex- 
tos, um sistema de gerenciamento de 
banco de dados e uma planilha eletrô- 
nica, por exemplo, constituem um po- 
deroso conjunto de programas. 


UMA PLANILHA TÍPICA 


A unidade básica da planilha é a cé- 
lula, O conteúdo de cada célula pode ser 
tanto uma variável alfanumérica — co- 
mo uma palavra — quanto um número 


ou uma fórmula. Quando a planilha é 
carregada na memória do computador, 
as células têm um tamanho predetermi- 
Igumas delas, esse default 
mado em inglés) pode ser 

mudado a qualquer momento. 
O valor mostrado em cada célula po- 
de ser um nümero ali colocado pelo 
usuário ou o resultado de um cálculo. 










































по 


O nümero de linhas e colunas varia de 
uma planilha para outra; as melhores 
possuem 65 colunas e 256 linhas, ou se- 
ja, 16640 células individuais — quanti- 
dade excessiva para um pequeno micro 
manipular! A planilha de INPUT tem 
24 colunas e de 20 a 30 linhas, depen- 
dendo do computador. 

As células sáo sempre identificad: 
por letras e números ao longo dos eixos 
X e Y. A maioria das planilhas usa co- 
lunas identificadas por letras: A, B, C, 
«Ze, depois, AA, AB, ... As linhas, 
nesse caso, são numeradas de 1 em dian- 
te. Este é o método usado no nosso 
programa. 

Existem vários comandos disponíveis 
para a entrada de equações, valores, tí- 
tulos, assim como para a cópia de célu- 
las ou o exame de diferentes partes da 
planilha. Outros comandos fazem os 
cálculos e permitem que os dados sejam 
gravados ou carregados para a memó- 
ria do computador. Podem-se montar 
equações com as operações elementares, 
com porcentagens ou com os totais de 
linhas ou colunas. No micro Spectrum, 
o movimento de um cursor pela plani- 
lha faz com que a célula a ser trabalha- 
da apareça em destaque. Os demais mi 
crocomputadores usam um sistema di- 
ferente: cada célula é especificada e tem 
seu conteúdo exibido no rodapé da tela 
antes de ser transferido para a posição 
definitiva na planilha. 


PLANEJAMENTO E DESENHO 


A primeira fase de preparação de 
uma planilha é a mais difícil, requer de- 
talhado planejamento e não envolve o 
uso do computador. Antes de mais na- 
da, é necessário estabelecer exatamente 
o que se quer, pois isso afeta o desenho 
da planilha. Em seguida, deve-se dedi- 
car o máximo de atenção ao planeja- 
mento, para se obter uma planilha que 
mostre as informações de maneira cla- 
ra e concisa. Como muitas coisas em 
computação, esse instrumento será tão 
bom quanto for seu planejamento. Se 
você não tiver cuidado nessa fase, pro- 
vavelmente obterá uma planilha confu- 
sa, difícil de ler e até com erros nas fór- 
mulas dos cálculos. 

Um exemplo prático: suponhamos 
que você queira desenhar uma planilha 
para controlar as finanças domésticas 
durante o ano. É evidente que os doze 
meses deverão encabeçar as colunas. 
Mas decidir o titulo de cada linha será 
um pouco mais difícil. 

Primeiro: qual o nível de detalhe pre- 
tendido?' Aluguel, transporte, assistên- 
cia médica, alimentação são títulos ób- 
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vios quando se fala de orçamento do- 
méstico, Mas você quer discriminar os 
gastos com combustível, criando uma 
categoria independente? Ou prefere reu- 
nir todos os gastos relacionados a trans- 
porte — além de combustível, manuten- 
ção do carro, taxas etc. — em uma ca- 
tegoria única? Tudo depende de seus in- 
teresses e necessidades. 

Uma planilha pode ser’ particular- 
mente útil para manter o valor de seus 
bens atualizado, fornecendo, ainda, in- 
formações como as porcentagens de va 
lorização de sua casa ou da depreciação 
do seu carro. 

Calcular a valorização anual de sua 
casa parece muito simples, inicialmen- 
te. Um ano depois de comprá-la, seu va 
lor será o preço de compra multipli 
da pela porcentagem de valorização — 
P*X%, onde X corresponde à porcen- 
tagem mais 100. Por exemplo, X seria 
100 + 5% para uma valorização anual de 
5%. A fórmula para calcular o valor ao 
fim do segundo ano seria P*X %*X%. 
Ano ano, a fórmula fica maior e mais 
difícil de ser calculada. 

Com uma planilha, o trabalho fica 
bem mais fácil, e nào é preciso ser um 
matemático, conhecedor de düzias de 
fórmulas e equações, para usar todo seu 
potencial. Num caso como o da valori- 
zação da casa, pode-se usar o endereço 
de uma célula para se referir ao conteú- 
do dela. Assim, a fórmula nunca fica 
mais complicada que P*X.%, onde P é 
o conteúdo da célula anterior. A fórmu- 




















la a ser escrita na planilha teria esta con- 
figuração: B10% 105%. 

Se a fórmula foi posta na célula C10, 
o resultado é mostrado nesse local 
Colocando-se a fórmula C10*105% em 
D10, por exemplo, o computador toma 
o valor colocado em C10 e o multiplica 
por 105%. 

А apresentação da fórmula varia de 
uma planilha para outra e os programas 
deste artigo usam um método bem di- 
ferente dos habituais. Os detalhes seráo 
explicados nas instrugóes sobre uso do 
programa, dadas mais tarde. 

A utilização do endereço da célula em 
vez de seu conteúdo simplifica o traba- 
lho com a planilha, permitindo que 
qualquer um, com um pouco de bom 
senso e paciência, realize tarefas bastan- 
te complicadas. No entanto, precisamos 
ter cuidado ao fazer referência a uma cé- 
lula em outra. Não devemos, por exem- 
plo, usar a célula B10 em uma fórmula 
C10, se o resultado de B10 depende do 
valor assumido por C10. O micro nào 
pode calcular o valor de uma sem ter re- 
solvido a outra! Se a planilha nào de- 
tectar esse problema, o programa apre- 
sentará erro quando o computador ten- 
tar resolver o paradoxo. 











E SE. 


E se as taxas de juros subirem 15% 
no mës de junho? E se comprarmos um 
carro maior? E se instalarmos um aque- 
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cedor central? Utilizando sua planilha, 
vocé poderá obter resposta para todas 
essas perguntas 

Observe que a última delas aponta 
para outra área, que nào a financeii 
na qual as planilhas são úteis. A dife: 
rença entre sistemas de aquecimento 
central com tipos de combustível diver- 
sos pode ser visualizada num relanc 
Estimar a perda de calor que se evita 
com o uso de dupla isolação permite 
também prever quanto vamos economi- 
zar e quanto tempo levaremos para re- 
cuperar o investimento. 


UTR0S US0S 


Embora, geralmente, mesmo as pla- 
nilhas mais simples sejam usadas para 
aplicações sérias e complicadas, elas se 
prestam muito bem para o lazer. Vários 
modelos diferentes dos financeiros po- 

















dem ser construídos. Só para diverti- 
mento, crie uma referência circular com 
as células que não têm fim. 

Existem enormes variações de uma 
planilha para outra. Como regra geral, 
quanto mais poderosa, mais cara é a pla- 
nilha e maior o micro necessário para 
sua utilização. Uma planilha simples 
tem uma meia dúzia de comandos e mais 
ou menos o mesmo número de funções. 
Compare isso aos vinte comandos e qua- 
renta funções das grandes planilhas. As 
mais sofisticadas permitem, inclusive, a 
introdução de declarações com funções 
similares a comandos em BASIC — por 
exemplo, IF...THE AND, OR e 















































































NOT. Em outras palavras, é possível 
programar as planilhas. 


DIGITE O PROGRAMA 


O programa da planilha eletrónica é 
bastante longo e, por isso, está dividi- 
do em trés partes. Digite as linhas que 
se seguem e grave-as para depois adicio- 
nar as restantes 

O programa não funciona neste ni- 
vel, As instruções de como usá-lo serão 
dadas nas próximas duas partes 





5 BORDER 0: PAPER 0: INK 7: 
CLS 
10 DIM b$(11): DIM s$(8): DIM 
45(30,24,18): DIM v(4): DIM 
2$(5,4) 
20 GOSUB 1730: POKE 23658,8: 
LET t$-"VAL": LET os-0: LET 
sflag-0: LET wx=l: LET wy=1: 
LET cx=1: LET cy=1 
30 CLS : PRINT " 

^: FOR x=4 TO 
32 STEP 9: FOR y=2 TO 21 STEP 
2: PRINT AT y,x;"": NEXT y: 
NEXT x: FOR y-1 TO 21 STEP 2: 
PRINT AT y,0;"": NEXT y 
40 FOR x-0 TO 2: PRINT AT 0,9 
*x*0;CHR$ (wx*x*64): NEXT x 
50 FOR x=0 TO 9: PRINT AT (x* 
1)%2,1;(" " AND wy+x<10) ¡wy+x 

NEXT x 

60 PRINT AT 0,0;t$;" ": FOR y 
-0 TO 9: FOR x=0 TO 2: GOSUB 
1230: NEXT x: NEXT y: PRINT 
41;AT 0,0;" 








70 PRINT AT cy*2,((cx-1)*9)*5 
; BRIGHT 1; FLASH 8; PAPER 8; 
INK 8; OVER 1;" " 

80 IF INKEYS="'" АМО му>1 
THEN LET wy=wy-10: GOTO 40 
90 IF INKEYS-"R" AND wy«20 
THEN LET wy=wy+10: GOTO 40 
100 TF INKEYS="(" AND wx<21 















THEN LET wx-wx*3: GOTO 40 
110 TF INKEYS="%" AND wx>1 
THEN LET wx=wx-3: GOTO 40 





120 PRINT AT cy*2, ((cx-1)*9)*5 
¡ FLASH 8; BRIGHT 0; INK 8; 
PAPER 8; OVER l;" " 

130 LET cy=cy+(INKEYS="6" AND 
CYX10) - (INKEYS2"7" AND cy?1): 
LET cx=cx+(INKEYS="8" AND cx<3 
)-(INKEYS="5" AND cx>1) 

140 IF INKEYS$-"i" OR INKEYS-"I 
" THEN GOSUB 1250 

150 IF INKEYS-"v" OR INKEYS="U 
" THEN LET t$-"VAL": GOTO 60 
160 IF INKEYS-"e" OR INKEY$-"E 











" THEN LET t$-"IGUAL": GOTO 6 
0 
170 IF INKEYS-"?" THEN PRINT 





AT 0,0; FLASH 1;"CALC": GOSUB 
810: GOTO 60 
180 IF INKEYS="z" 





OR INKEYS=" 
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" THEN PRINT AT 0,0; FLASH 1; 
"COPIA": GOSUB 230: GOTO 60 


190 IF INKEYS-"P" OR INKEY$-"p 
" THEN COPY 
200 IF INKEYS-"NOT " THEN 
GOSUB 1780: GOTO 30 
210 IF INKEYS="-" THEN GOSUB 
1840: GOTO 30 
220 GOTO 70 
230 PRINT 41;AT 0,0;"CELULA A 
COPIAR ?^: LET d-1: LET c-3: 
LET x-15: GOSUB 580: GOSUB 670 
IF f THEN SOUND .2,30: GOTO 
230 
240 PRINT &1;AT 0,0;"ABS ou RE 
L (A ou R)?": LET x-22: LET d- 
2: LET c=1: GOSUB 580: GOSUB 
670: IF f THEN SOUND .2,30: 
GOTO 240 
250 PRINT 41;AT 0,0;"COL ou LI 
NHA (C ou L)?": LET x-22: LET 
d=3: LET c=1: GOSUB 580: GOSUB 
670: IF f THEN SOUND .2,30: 
GOTO 250 
260 PRINT 41;AT 0,0;"DA CELULA 
No. ?": LET x=16: LET d=4: LET 
c=3: GOSUB 580: GOSUB 670: IF 
f THEN SOUND .2,30: GOTO 260 
270 PRINT 41;AT 0,0;”PARA A CE 
LULA No. ?": LET x=14: LET d=5 











mM iia 





LET c=3: GOSUB 580: GOSUB 
670: IF f THEN SOUND .2,30: 
GOTO 270 
280 GOSUB 770: IF NOT f THEN 
сото 320 
290 PRINT $1;AT 0,0;”COMANDO E 
RRADO - PRESSIONE A PARA AB 
ORTAR OU QUALQUER OUTRA TECLA 
PARA RE-ENTRAR” 

300 PAUSE 10: PAUSE O: PRINT 4 
1;AT 0,0;” 





": IF INKEY 
OR INKEYS-"A" THEN RETURN 
310 GOTO 230 
320 LET a-(CODE z$(1,2))-64: 
LET b-VAL z$(1,3 TO (VAL z$(l, 
1)*1)): LET s$-(d$(b,a,9 TO 16 
) AND t$-"IGUAL")*(d$(b,a, TO 
8) AND tS-"VAL"): LET c$-d$(b, 
a,17): LET z=CODE d$(b,a,18) 
330 IF z$(2,2)-"R" THEN GOTO 
390 
340 FOR a-fc TO tc: FOR b=fr 
TO tr 
350 IF t$-"IGUAL" THEN LET d$ 
(b,a,9 TO 16) =в$: LET dS(b,a, 
17)*c$ 
360 IF LS="VAL” THEN LET 
ʻa, 








370 NEXT b: NEXT a 





380 RETURN 
390 LE dS(b,a,9 TO 16) 
GOSUB B90: LET a-(CODF z$(4,2) 





-64)-(CODE z$(1,2)-64): LET b= 
VAL z$(4,3 TO (VAL z$(4,1)*1)) 
-VAL z$(1,3 TO (VAL z$(1,1)*1) 
) 

400 LET v(2)-v(2)*b-1 
)=v(4)=((b-1) AND v(3)< 








v(3)=v(3)+((a-1) AND v 
5): LET v(1)=v(1)+a-1 
IF 25(3,2)="C” THEN LET v 





(1) =у(1)+1: LET v(3)*v (2) *(v (3 
)<>26) 
414 IF 2$(3,2)-"R" THEN LET v 
(2)-v(2)*1: LET у(4)-у(4)%(у(4 
)<>26) 


10 PMODE 0,1:PCLEAR 1:CLEAR 100 
00:CLS: PRINT @230,” PLANILHA ELE 
TRONICA” 

20 CS=1:RS=1:CR=1:CC=1:M0S(0)= 
VALOR (САГС) " :МОҘ (1) ="ЕФОАСАО 





















":М0-1:0Р9-"%-ж/%ба” 
30 DIM D$(26,30) ,D(26,30 

40 FOR I-1 TO 26:FOR J=1 TO 30: 
DS(I,J)*CHRS$(128):NEXT J,I 

50 СХ=4:ВХ=1 

60 GOSUB 70:GOTO 170 

70 PRINT 6448,"ESPERE":PRINT 60 
+ STRINGS (3,128) ;:FOR I=CS TO CS 
*3:PRINT CHR$(123) ;CHR$ (128) ;CH 
R$ (128) ;CHR$ (96+I) ; CHR$ (128) ; CH 
R$(128);CHR$(125);:NEXT:PRINT C 
HR$ (128) ; 

80 PRINT €480,"MODO: ";MOS (MO) ; 
90 FOR I=0 TO 11:Cl*INT((RS*I)/ 
10)+48:C2= (RS+1)- ((C1-48)*10)+4 
8:POKE 1024%32%1%32,С1:РОКЕ 102 
4*32*1*33,C2:PRINT 632*1434,"": 
NEXT 

100 PRINT 6416:IF MO=0 THEN GOS 
UB 740:GOTO 130 

110 FOR J=RS TO RS+11:FOR I=CS 
TO CS+3 

120 PRINT €(J-RS)*32+35+(1-CS)* 
7,"";:GOSUB 660:МЕХТ І,Ј 

130 PRINT 6480,"MODO: ";MOS(MO) 
:TAB (20) ; "CELULA: ";CHR$(64*CC 
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;MIDS(STRS(CR),2);" "i 
140 PRINT 6448,"PRONTO" 

150 PRINT €458,MIDS (DS (CC,CR),2 
) 

160 RETURN 

170 PS*(CR-RS*1)*32*(CC-CS) *7*3 
+1024:2=РЕЕК (Р5) :РОКЕ Р5,191 АМ 
р2 

180 IS-INKEYS:IF 1$="" THEN 180 
190 РОКЕ Р5,2 

200 IF I$=CHR$(8) AND CC>1 THEN 
СС=СС-1:ІР CC<CS THEN CS=CS-1: 
GOSUB 70 

210 IF I$=CHR$(9) AND CC<26 THE 
N CC=CC+1:1F CC>CS+3 THEN CS=CS 
+1:GOSUB 70 

220 IF I$=CHR$(10) AND CR<30 TH 
EN CR*CR*1:IF CR>RS+11 THEN RS= 
RS*1:GOSUB 70 

230 IF IS-CHR$(94) AND CR>1 THE 
N CR=CR-1:1F CR<RS THEN RS=RS-1 
:GOSUB 70 

240 IF IS-"G" THEN GOSUB 330 
250 IF I$-"Q" THEN CLS:INPUT"CO 
NFIRMA QUERER SAIR (S/N) ?";AS: 
IF ASC»"S" THEN GOSUB 70 ELSE C 




































































LS:END 

260 IF I$-"I" GOSUB 410 

270 IF I$-"U" THEN MO=0:GOSUB 7 

0 

280 IF I$="C" 

290 IF I$-"E" 

0 

300 IF I$-"S" GOSUB 1230 

310 IF IS-"L" GOSUB 1350 

320 GOSUB 130:GOTO 170 

330 PRINT @448:РВІМТ 6448,"PARA 
A CELULA ->";:LINE INPUT AS 

340 IF AS="" THEN RETURN 

350 C1=ASC(AS)-64:1F C1<1 OR Cl 

>26 THEN 330 

360 C2=VAL (MIDS (AS,2)):1F C2<1 

OR C2>30 THEN 330 

370 CC=C1:C8=C1:CR=C2:RS=C2 

380 IF CS>23 THEN CS=23 

390 IF RS>19 THEN RS=19 

400 GOSUB 70:RETURN 

410 PRINT €448,"NOVO CONTEUDO 
";:LINE INPUT AS 

420 IF A$="" THEN AS=CHRS (128) 

GOTO 610 

430 IF LEN(AS)>9 THEN PRINT €44 
8,"ENTRADA INVALIDA” :SOUND 1,4: 

GOTO 410 

440 IF VAL(AS)<>0 THEN 560 

450 BS=LEFTS(AS,1):IF BS<"A” OR 
B$>"Z" THEN 600 

460 CS=MIDS(AS,2,2) 

470 IF VAL(C$)<1 OR VAL(C$)>30 

THEN 600 

480 IF VAL(C$)<10 THEN AS=BS+ST 

RS (VAL (CS) ) +MIDS(AS, 3) 

490 D$=MIDS (AS,4,1):IF DS<"A” O 

R D$2"2" THEN 600 

500 ES=MIDS(AS,5) 

510 IF VAL(ES)X1 OR VAL(ES)>30 

THEN 600 

520 IF VAL(ES)<10 THEN AS=LEFTS 
(AS, 4) +STRS (VAL (ES) ) +MIDS (AS, 6) 
530 OS=MIDS(AS,7,1):1F INSTR(1, 

0P$,0$)=0 OR 0$="" THEN 600 

540 DP=VAL (RIGHTS (AS,1)):1F DP< 
0 OR DP>7 THEN 600 

550 PRINT 6448,"ENTRADA E UMA e 

quacao” :AS=CHR$ (131) +AS:GOTO 61 


GOSUB 1490 
THEN MO=1:GOSUB 7 


0 

560 PRINT €448,"ENTRADA E UM va 
lor” 

570 IF RIGHTS(AS,1)=" " THEN AS 
=LEFTS(AS,LEN(AS)-1) ¿GOTO 570 
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580 IF LEN(AS)<7 THEN AS=" "*AS 
:GOTO 580 

590 AS-CHR$(129)*AS:GOTO 610 
600 PRINT 6448,"ENTRADA E UMA 1 
egenda” :AS=CHRS (130) +AS 

610 D$(CC,CR) *A$:I*CC:J*CI 

T €(J-RS) *32435* (I-CS) *7, 

SUB 660:SOUND 190,2:FOR D=1 TO 
500:NEXT 

620 IF CC>CX THEN CX=CC 

630 IF CR>RX THEN RX=CR 

640 IF MO=0 THEN MO=1:GOSUB 70 
650 RETURN 


10 KEYOFF:CLEAR10000:COLORI5,4, 
4:SCREENO:CLS:LOCATE 9,11:PRINT 
"PLANILHA ELETRONICA” 
20 CS=1:RS=1:CR=1:C 
VALOR (CALC) " :M0$ (1) 
":MO=1:0pS="+-*/tSL” 
30 DIM D8(26,30),D(26,30) 
40 FOR I=1 TO 26:FOR J=1 TO 30: 
D$(I,J)=CHR9(128):NEXTJ,I 
50 CX=4:RX=1 
60 GOSUB 70:GOTO 170 
70 CLS:LOCATE 0,20:PRINT"AGUARD 
E..." :LOCATEO , 0: PRINTSTRINGS (3, 
219);:FOR I-CS TO CS*4:PRINTCHR 
$(91) ;SPC(2) ;iCHRS (6441) ; SPC(2) ; 
CHRS$ (93) ; : NEXT : PRINTCHRS$ (219) ; 
80 LOCATE 0,21:PRINT"^MODO: ";MO 
$ (MO) 
90 FOR I=0 TO 15:C1=INT((RS+I)/ 
10)+48:C2= (RS+I)- ( (C1-48) *10) +4 
8:LOCATE 0,I+1:PRINTCHRS(C1);CH 
R$ (C2) :NEXT 
100 LOCATE 19,0:ІҒ MO-0 THEN GO 
SUB 740:GOTO 130 
110 FOR J=RS TO RS+15:FOR I=CS 
TO CS+4 
120 LOCATE (I-CS)*7*3,J-RS*1:GO 
SUB 660:NEXT I,J 
130 LOCATE 0,21:PRINT"MODO: ";M 
0$ (М0) ;ТАВ (20) "СЕГ: ";СНАЅ (64+С 
C);MIDS(STRS(CR),2);" ^"; 
140 LOCATE 0,20:PRINT"PRONTO! 
" ; TAB (15) MID$ (D$ (CC, CR) , 2) ; SPC 
(9) 
160 RETURN 
170 PS=(CR-RS+1)*40+(CC-C8)*7+4 
:Z=UPEEK (PS) :VPOKE Р8,219 
180 IS-INKEYS:IF I$-"" THEN 180 
190 УРОКЕ PS,Z 
200 IF І$=СНАҘ (29) AND CC>1 THE 
N CC=CC-1:TF CC<CS THEN CS=CS-1 
:GOSUB 70 
210 IF IS=CHR$(28) AND СС<26 TH 
EN CC-CC*1:IF CC>CS+4 THEN CS=C 
S+1:GOSUB 70 
220 1F I$=CHR$(31) AND CR<30 TH 
EN CR=CR+1:IF CR>RS+15 THEN RS= 
RS*1:GOSUB 70 
230 IF IS=CHRS(30) AND CR>1 THE 
N CR-CR-l:IF CR<RS THEN RS=RS-1 
:GOSUB 70 
240 IF I$-"G^ THEN GOSUB 330 
250 IF I$-"Q" THEN CLS:INPUT"TE 
RMINO O PROGRAMA? (S/N) ";AS:IF 
AE THEN GOSUB 70 ELSECLS: 
END 


:MOS (0) =" 
EQUAÇÃO 


THEN GOSUB 410 
THEN MO=0:GOSUB 


260 IF 
270 IF 
0 

280 IF 
290 IF 
0 

300 IF 
310 IF 


18-"1” 
I$-"u" 


THEN GOSUB 1490 
THEN MO=1:GOSUB 


1$-"c" 
IS-"E" 


THEN GOSUB 1230 
I$-"L" THEN GOSUB 1350 
320 GOSUB 130:GOTO 170 

330 LOCATE 0,20:PRINTSPC(38) :LO 
CATE 0,20:PRINT"PARA CEL >";:IN 
PUT AS 

340 IF A$="" THEN RETURN 

350 C1=ASC(AS)-64:1F C1<1 OR Cl 
>26 THEN 330 

360 C2-VAL (MID$ (A$,2)) : 
OR C2>26 THEN 330 

370 CC=C1:C8=C1:CR=C2:RS=C2 


IS-"S* 


IF С2<1 





380 IF CS>23 THEN CS=23 
390 IF RS>19 THEN RS=19 
400 GOSUB 70:RETURN 
410 LOCATE 0,20:PRINT"NOVO CONT 
EUDO: ";SPC(22);:LOCATE 15:LINE 
INPUT A$ 
420 IF A$-"" THEN AS-CHR$ (128): 
GOTO 610 
430 IF LEN(AS)>9 THEN LOCATE 0, 
20:PRINT"ENTRADA INVALIDA 
":FOR I-1 TO 500:NEXT:GOTO 410 
440 IF VAL(AS)<>0 THEN 560 
450 BS=LEFTS(AS,1):IF BS<"A” OR 
BS»"Z" THEN 600 
460 CS=MIDS(AS,2,2) 
470 IF VAL(CS)<1 OR VAL(CS)>30 
THEN 600 
480 IF VAL(CS)C10 THEN AS=BS+ST 
R$ (VAL (C$) ) +MIDS (AS, 3) 
490 DS=MIDS(AS,4,1):1F DS<"A" O 
R DS>"Z” THEN 600 
500 ES=MIDS(AS,5) 
510 IF VAL(ES)<1 OR VAL(ES)>30 
THEN 600 
520 IF VAL(ES)<10 THEN AS=LEFTS 
(AS, 4) +STRS (VAL (ES) ) +MIDS (AS, 6) 
530 OS-MIDS(AS,7,1):IF INSTR(1, 
OPS,05)=0 OR 03="" THEN 600 
540 DP=VAL (RIGHTS (A$,1)):1F ОР< 
0 OR DP>7 THEN 600 
550 LOCATE 0,20:PRINT"A entrada 
é uma EQUAÇÃO” :AS=CHRS (131) +AS 
:GOTO 610 
560 LOCATE 0,20:PRINT"A entrada 
é um VALOR" 





570 IF RIGHTS(A$,1)=" " THEN AS 
=LEFTS (AS, LEN(AS)-1) :GOTO 570 
580 IF LEN(AS)<7 THEN AS=" :"+AS 
:GOTO 580 

590 AS*CHR$(129)*A$:GOTO 610 
600 LOCATE 0,20:PRINT"A entrada 
é um RÓTULO” :AS=CHRS (130) +AS 
610 DS(CC, CR) =AS:I=CC:J=CR:LOCA 
TE (I-CS)*7*3, (J-RS) *1:GOSUB 66 
0 

620 IF CC>CX THEN CX=CC 

630 IF CR>RX THEN RX=CR 

640 IF MO=0 THEN MO=1:GOSUB 70 
650 RETURN 


[ф] 








10 TEXT : HOME : CLEAR : VTAB 
12: НТАВ 1 PRINT "PLANILHA EL 
ETRONICA" 


20 С8 - 1:88 = 1:CR = 1:CC = 1: 
CA = l:RA * 1:MO$(0) * "VALOR(C 


ALC)":MOS(1) * "EQUACAO "M 
O = 1:0P$ = "+-*/2S4":DS = CHR 
$ (13) + CHRS (4) 

25 ONERR GOTO 2500 

30 DIM D$(26,30),D(26,30) 

40 FOR I = 1 TO 26: FOR J = 1 
TO 30:DS(1,J) = CHR$ (128): NE 
XT : NEXT 

50 CX = 4:RX = 1; FOR 1 = 1 TO 
10:LL$ = LLS + СНА5 (255): МЕХ 
T 

60 GOSUB 70: GOTO 170 

70 HOME : UTAB 21: PRINT "AGUA 
RDE...": VTAB 1: PRINT LEFT$ ( 
LL$,3);: FOR T = CS TO CS + 4: 
PRINT CHR$ (91); SPC( 2); CHRS 
(64 + Т); SPC( 2); CHRS (93);: 
NEXT : PRINT LEFTS (LLS,2) 

80 VTAB 22: PRINT "MODO: ";MOS 
(MO) ; 

90 ІМУЕНЗЕ : НТАВ 1: FOR 1 = O 
TO 15:Cl * INT ((RS * I) / 10 
) + 48:02 = (RS + 1) - ((C] - 4 
B) * 10) + 48: VTAB I * 2: PRIN 
T CHR$ (Cl); CHR$ (C2): NEXT 

NORMAL 

100 ЧТАВ 19: IF MO = O THEN G 
OSUB 740: GOTO 130 

110 FOR J = RS TO RS + 15: FOR 
I = Cs TO CS +4 

120 VTAB J - RS + 2: HTAB (I - 
CS) * ? + 4: GOSUB 660: NEXT 

NEXT 

130 УТАВ 22: НТАВ 1: PRINT "MO 


DO: ";MOS$(MO); TAB( 20);"CEL: " 
; CHR$ (64 + CC) ;CR;" " 





140 УТАВ 21: HTAB 1: CALL - 8 
68: PRINT "PRONTO!"; TAB( 15);D 
$(CC,CR) 

160 RETURN 

170 Y = CR - RS + 2:H = (CC - € 


S) * 7 + 4:0А = RA - RS + 2:HA 
= (CA - C8) #7 +4 

180 VTAB VA: HTAB HA:I = CA:J 
= RA:, GOSUB 660 


182 VTAB V: HTAB H: INVERSE :І 
= CC:J = CR: GOSUB 660 

183 PRINT NORMAL 

185 CA = CC:RA = CR 





190 GET I$ 





200 IF I$ * CHR$ (8) AND CC > 
1 THEN CC = СС - 1: IF CC € C8 
THEN CS = CS - 1: GOSUB 70 

210 IF I$ * CHR$ (21) AND CC 
< 26 THEN CC = CC + 1: IF CC > 
CS + 4 THEN CS = CS + 1: GOSUB 
70 

220 IF I$ = CHR$ (90) AND CR 


€ 30 THEN CR * CR * 1: IF CR > 


RS + 15 THEN RS = RS + 1: GOSUB 
70 
230 IF I$ = CHRS (65) AND CR 
> 1 THEN CR * CR - 1: IF CR < R 
8 THEN RS = RS - 1: GOSUB 70 
240 IF IS = "G" THEN GOSUB 33 
0 
250 IF IS = "Q” THEN GOSUB 30 
00 
260 ІР IS - "I" THEN GOSUB 41 
0 
270 IF I$ = "Ч" ТНЕМ МО = 0: С 
OSUB 70 
280 IF IS = "C" THEN GOSUB 14 
90 
290 IF 1$ = ^E" THEN MO = 1: G 
OSUB 70 
300 IF IS = "S" THEN GOSUB 12 
30 

"L” THEN GOTO 135 


310 IF I$ * 
0 


320 
330 
58: 
AS 

340 
350 


GOSUB 130: GOTO 170 
VTAB 21: HTAB 1: CALL - 9 
PRINT "РАВА CEL >" INPUT 





IF AS = "” THEN RETURN 
Cl = ASC (AS) - 64: IF Cl 
< 1 OR Cl > 26 THEN 330 
360 С2 = VAL ( MIDS (A$,2)): I 
F C2 « 1 OR C2 > 30 THEN 330 
370 СС = С1:С8 = С1:СА = С1:СИ 
= C2:RS = C2:RA = CR 





380 IF CS > 23 THEN CS = 23 
390 IF RS > 19 THEN RS = 19 

400 GOSUB 70: RETURN 

410 УТАВ 21: НТАВ 1: CALL - 9 
58: PRINT "NOVO CONTEUDO: td 

NPUT AS 

420 IF A$ = "" THEN A$ = CHRS 
(128): GOTO 610 

430 IF LEN (A$) > 9 THEN VTA 


Como as planilhas 
tradicionais dos 
contadores, nossa 
planilha de cálculo 
eletrônica também 
está dividida em 
células formadas 
por colunas, que 
correspondem aos 
meses do ano, e 
linhas, equivalentes 
a rótulos diversos, 
como, por exemplo, 
receitas e despesas. 
Sua grande vantagem 
reside na forma de 
manipulação dos 
dados, que podem 
ser calculados, 
checados e alterados 
com rapidez. 


B 20: PRINT "PALAVRA MUITO GRAN 
DE!”; CHR$ (7): FOR X = 1 TO 30 
0: NEXT : GOTO 410 

440 IF VAL (AS) < > 0 ТНЕМ 5 
60 

450 BS = LEFTS (AS,1): IF B$ < 
"A" OR BS > "Z” THEN 600 

460 C$ = MIDS (A$,2,2) 

470 IF VAL (C$) < 1 OR VAL ( 


C$) > 30 THEN 600 


480 IF VAL (C$) < 10"ТНЕМ AS 
= B$ +° " * MIDS (AS,2) 

490 DDS = MIDS (AS,4,1): IF DD 
$ € "A" OR DDS > "Z” THEN 600 

500 ES = MIDS (A$,5) 

510 IF VAL (E$) < 1 OR VAL ( 
E$) > 30 THEN 600 

520 IF VAL (E$) < 10 THEN A$ 
= LEFT$ (A$,4) +” ” + MIDS ( 
A$,5) 

530 OS = MIDS (AS,7,1): FOR D 
= 1 TO LEN (OPS): IF 0$< > 

MIDS (OPS,D,1) THEN NEXT GoT 


0 600 

540 DP = VAL ( RIGHTS (AS,1)): 
IF DP < 0 OR DP > 7 THEN 600 
550 УТАВ 21: HTAB 1: CALL - 9 
58: PRINT "A entrada e uma EQUA 
CAO":A$ = CHRS (131) + AS: GOT 
o 610 г 

560 УТАВ 21: HTAB 1: CALL - 9 
58: PRINT "A entrada e um VALOR 


570 IF RIGHTS (AS,1) = ” ” TH 
EN AS = LEFTS (AS, LEN (AS) - 
1): GOTO 570 

580 IF LEN (AS) < 7 THEN AS = 


" " + AS: GOTO 580 


590 AS = CHRS (129) + AS: GOTO 
610 

600 УТАВ 21: НТАВ 1: САМ. - 9 
58: PRINT "A entrada e um ROTUL 
O":A$ * CHR$ (130) + АЗ 

610 D$(CC,CR) = AS: FORD = 1 T 
O 500: NEXT 

620 IF CC > CX THEN CX = CC 
630 IF CR > RX THEN RX = CR 
640 IF MO - 0 THEN MO - 1: GOS 
UB 70 

650 RETURN 












AVALANCHE: 
AS PEDRAS ROLAM (1) 








Nosso personagem está em grandes 
dificuldades: enquanto os cabritos mon- 
teses devoram seu lanche, ele tenta es- 
calar o penhasco, para nào morrer afo- 
gado nas águas do mar. Por todo o ca- 
minho, buracos e cobras ameaçam sua 
vida, E, para completar, faremos com 
que ele se veja diante de uma avalanche 
| de gigantescas pedras! 

Teremos bastante trabalho na criação 
deste novo problema. Precisaremos co- 
locar uma pedra no topo da encosta, 
empurrá-la morro abaixo, animá-la pa- 
ra que pareça estar rolando, verificar se 
ela atingiu Willie e, finalmente, apagá- 
la, quando chegar ao mar. Como esse 
processo é um tanto complexo, vamos 
apresentá-lo em duas partes. 





A primeira parte da rotina movimen- 
ta a pedra e dá início à sua descida en- 
costa abaixo. A segunda verifica se Wil- 
lie foi atingido e coloca a pedra no to- 
po da encosta. Apresentamos aqui ape- 
nas a primeira parte. Digite-a, mas não 
a execute ainda. Incompleta, a rotina 
nào funcionará. 





10 REM org 58993 

20 REM bar 1d a,(57344) 
30 REM cp O 

40 REM jr z,blm 

50 REM cp 3 

60 REM jr z,blm 

70 REM ret 

80 REM blm ld a,(57358) 
90 REM cp 1 

100 REM jr z,bma 

110 REM ld hl, (57356) 
120 REM 18 Ьс,57120 
130 REM 1d a,42 

140 REM call 58217 
150 REM inc hl 

160 REM 14 а,45 

170 REM ld bc,15616 
180 REM call 58217 
190 REM 18 hl,(57356) 
200 REM 1d de,480 
210 REM sbc hl,de 
220 REM 3r z,bri 

230 REM ld hl, (57356) 
240 ВЕМ 18 de,22560 
250 REM add hl,de 
260 REM 1d a, (hl) 

270 REM cp 15 

280 REM Jr z,bri 


N^" REM cp 45 


300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 





REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


jr nz,bok 

ld hl, (57356) 
ld bc,15616 
14 а,45 

са11 58217 
ld de,32 

add hl,de 

ld (57356),hl 
ld bc,57120 
19 а,42 

call 58217 
bok Id h1, (57356) 
dec hl 

1d (57356),hl 
1d а,1 


Mais e mais problemas se abatem sobre 
Willie, Além das serpentes 

assassinas, dos buracos e da alta da 
maré, pedras gigantescas rolam 

morro abaixo, ameagando soterrá-lo. 


450 REM ld (57358) ,a 
460 REM ret 

470 REM org 59137 
480 REM bri * 

490 REM org 59097 
500 REM bma * 


Antes de mais nada, a rotina de mo- 
vimentação da pedra verifica se a ava- 
lanche pode ocorrer no nivel atual do jo- 
go. Como você deve se lembrar, Willie 
tenta não ser alcançado por pedras, sal- 
tando sobre elas, no nível um e no nível 
quatro. A variável correspondente ao ní- 
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vel atual do jogo é armazenada na po- 
sição 57344 da memória; o valor 0 indi- 
ca o nível um; o valor 3 aponta o nível 
quatro. 

Assim, o conteúdo do endereço 
57344 é carregado no acumulador e 
comparado inicialmente com o valor 0, 
e, depois, com 3. Se qualquer um des- 
ses valores estiver presente, a instrução 
jr z,blm faz com que o processador sal- 
te para a rotina de movimentação da 
pedra. Caso contrário, o processador 
encontra a instrução ret e retorna para 
a rotina principal do jogo. 














VERIFICAÇÃO 





DUAS ESTRUTURAS 














DO NÍVEL DO JOGO W ROLANDO PELA ENCOSTA 

п ROTINA DE MOVIMENTAÇÃO M À PEDRA CHEGA AO MAR 
р DA PEDRA W DE VOLTA AO TOPO 
ANIMAÇÃO COM Ш WILLIE FOI ATINGIDO? 





QUAL DAS PEDRAS? 


Para que possamos animar a pedra, 
existem na memória dois conjuntos de 
dados para dois diferentes desenhos da 
pedra. Quando sáo impressos alternada- 
mente na tela, eles dão a impressão de 
que a pedra está rolando, 

O processador precisa saber qual foi 
o último desenho impresso na tela, pa- 
ra poder selecionar adequadamente o 
próximo. Obtém essa informação no en- 
dereço 57358, onde há uma variável cu- 
jo conteúdo é O ou 1. Esse valor é car- 
regado no acumulador e, se for igual a 
1, o processador salta para a rotina 
bma, que será dada mais tarde. Caso o 
conteúdo do endereço 57358 seja igual 
a 0, o processador prossegue com a ro- 
tina aqui apresentada. 

Como você poderá perceber, a variá- 
vel no endereço 57358 oscilará — se seu 
conteúdo for 1, será trocado para 0 e 
vice-versa. Assim, quando o processa- 
dor voltar a utilizar a rotina de movi- 
mentação da pedra, ele irá executar a 
parte do programa que deixou de lado 
na vez anterior, imprimindo o outro de- 
senho da pedra. 

Naturalmente, o primeiro valor do 
conteúdo de 57358 é definido pela roti- 
na de inicialização incumbida de ajus- 
tar o andamento do jogo. 


IMPRIMIR E APAGAR 


Os endereços 57356 e 57357 guardam 
a posição da pedra, cujo valor é carre- 
gado no par HL. O par BC é carregado 
com 57120, que corresponde ao início 
dos dados do primeiro desenho da pe- 
dra. O código 42 (vermelho sobre fun- 
do azul ciano) é carregado em A. 

A rotina print, que começa no ende- 
reço 57217, é chamada. Como de cos- 
tume, ela imprime os dados apontados 
pelo conteúdo de BC com a cor especi- 
ficada pelo conteúdo de A, na posigáo 
dada pelo conteúdo de HL. 

O par HL é incrementado e passa a 
apontar para a posição à direita da pe- 
dra. Por enquanto, estamos fazendo 
apenas uma pedra rolar numa parte pl: 














como utilizar um deslocamento de um 
espaço para simular a descida da pedra 
pela encosta. 

O acumulador A é carregado com 45 
(código da cor ciano sobre fundo ciano) 
eo par BC, com 15616. Esta posição es- 
tá na ROM e inicia os dados para um 
espaço vazio, A rotina print é, então, 
chamada, de novo. A operação faz com 
que a pedra anteriormente impressa se- 
ja apagada. Sem isso, veríamos na tela 
uma fileira contínua de pedras. 


FIM DA LINI 


A próxima tarefa consiste em verifi- 
car se a pedra atingiu o canto esquerdo 
nessa direção, ela pode ir além 
о 480. Em seguida, o par HL, 
já incrementado, é recarregado com a 
posição armazenada em 57356 e 57357. 
O par DE é carregado com 480 e esse 
valor é subtraído de HL. 

Se o resultado for igual a zero, a pe- 
dra está na posição 480 — ou seja, che- 
gou ao fim da descida. A instrução jr 
z,bri manda, então, o processador para 
a rotina bri. Esta, por sua vez, apaga a 
pedra do final da encosta e reajusta sua 
posição, mandando-a de volta para o to- 
po da montanha. 

Uma vez que não apresentaremos a 
rotina bri no momento, você precisará 
esperar um pouco mais para ver esta 
parte do programa funcionar. 


CHEGOU AO MAR? 


Como a maré está subindo, a pedra 
poderá chegar à água antes de alcançar 
o canto esquerdo da tela, Assim, será 
preciso verificar se a pedra afundou. Ca- 
so tenha se chocado contra a água, de- 
verá ser colocada no topo de novo, 

O método mais simples para verifi- 
car se a pedra atingiu a água consiste em 
analisar a cor da posição de tela imedia- 
tamente abaixo dela. Se for branco so- 
bre azul, a cor do mar, a pedra deve ser 
apagada.O par de registros HL é nova- 
mente carregado com a posição da pe- 
dra que se encontra nos endereços 57356 
e 57357. O par DE, por sua vez, é car- 








na da montanha. Mais tarde, você ve regado com 22560. Na verdade, 22528 m 











posições de memória separam a posição 
na tela (que está no arquivo de vídeo) 
da cor que lhe corresponde (que está no 
arquivo de cores). O valor 32 é adi 
nado a esse número para que o endere- 
ço da cor da posição de tela na linha 
abaixo — ou 32 caracteres depois — se- 
ja localizado. 

Os conteúdos de HL e DE são soma- 
dos em seguida. Sempre se utilizam es- 
ses pares de registro para fazer adicó 
ou subtrações entre números de dois 
bytes, guardando-se o resultado em HL. 
Portanto, o conteúdo da posigáo de me- 
mória apontada pelo par HL — que 
agora equivale à posição adequada no 
arquivo de cores — é carregado no acu- 
mulador por meio da instrução de en- 
dereçamento indireto Id a,(hl). 

Esse valor é, então, comparado a 15, 
que é o código de branco sobre azul, ou 
seja, a cor do mar, Se o mar estiver abai- 
xo da pedra, a instrução jr,zbri manda 
o processador para a rotina que apaga 
a pedra e a coloca de volta no topo da 
encosta. 











RE HECIMENTO DO DECLIVE 


Como já temos no acumulador a cor 
do caractere abaixo da pedra, vamos 
aproveitar para verificar se ela está ou 
náo no cháo. Para isso, o conteúdo do 
acumulador é comparado com 45, có- 
digo correspondente á cor do céu. Se os 
dois valores forem iguais, esta cor está 
por baixo da pedra, e o processador con- 
tinua com a parte seguinte da rotina. 
Caso contrário, a pedra ainda está fir- 
me no cháo, e a instrugáo jr nz,bok faz 
o processador pular para o rótulo bok. 
Este deixa a pedra onde ela está, e sim- 
plesmente acerta as variáveis antes de re- 
tornar. 

Vocé deve ter reparado que, até ago- 
га, a pedra só tem se movido para a es- 
querda. Sua posição vertical nào foi al- 
terada — ou seja, o declive da encosta 
nào foi levado em conta. Portanto, a pe- 
dra só pode estar fora do chào (com a 
cor do céu sob ela) se tiver passado por 
uma seção inclinada com um caractere 
à esquerda — o que significa que preci- 
samos apagá-la e imprimi-la um carac- 
tere abaixo. Em linguagem de máquina, 
tudo isso é feito tão rapidamente que 
nosso olho — ou a tela de TV — não 
tem tempo de reagir. Assim, você não 
poderá ver a pedra em sua posição in- 
termediária, indo para o ar ou voltan- 
do para o chão. 

Depois que o par de registros HL é 
carregado com a posição atual da pedra 
no vídeo, através das posições 57356 e 
57357, o par BC é carregado com os da- 


dos da ROM para um espaço vazio, co- 
mo antes. O acumulador A, por sua vez, 
é carregado com 45 — ciano sobre cia- 
no. A rotina print é, então, chamada pa- 
ra apagar a pedra. 

O par DE é carregado com 32, valor 
que se adiciona ao conteúdo HL, o que 
faz o apontador nesse par de registros 
mover-se uma posição para baixo na te- 
la. Para ajustar a posição da pedra, o 
apontador em HL é copiado de volta 
nos endereços 57356 e 57357. Lembre- 
se de que a instrução Id apenas copia о 
conteúdo de um endereço ou de um re- 
gistro em outro endereço ou registro, O 
conteúdo do lugar de partida permane- 
ce inalterado. Logo, quando BC é car- 
regado com o endereço inicial dos pa- 
drões da primeira figura da pedra, a no- 
va posição na tela ainda está em HL, O 
acumulador é carregado com 42 — ver- 
melho sobre ciano — e a rotina print é 
chamada, imprimindo uma pedra ver- 
melha uma posição abaixo da posição 
anterior de impressão. 


[Ow usu ii 





Quando a pedra é novamente impres- 
sa — não importa se uma posição abai- 
xo ou não —, as variáveis têm que ser 
reajustadas para fazer com que ela pa- 
reça estar rolando morro abaixo. 

Em seguida, o par HL volta a ser car- 
regado com a posição atual da pedra, 
pois a rotina bok pode ter sido chama- 
da diretamente, não se executando a 
parte do programa que muda a figura 
de lugar. Depois de decrementado, o 
conteúdo de HL é carregado em 57356 
e 57357. Na próxima chamada da roti- 
na de movimentação, esse apontador 
indicará uma posição à esquerda, 

Se o conteúdo da variável do tipo de 
pedra — em 57358 — é 0, o processa- 
dor continua nesse laço da rotina e im- 
prime a primeira figura. Para que a se- 
gunda figura seja impressa, 1 é carrega- 
do em 57358 pelo acumulador. 


A primeira parte da rotina de movi- 
mentação da pedra, aqui apresentada, 
inicia o deslocamento da figura e veri- 
fica se ela colide com alguma coisa. Es- 
sa rotina não funcionará sem a segun- 
da parte, que continua imprimindo a pe- 
dra na tela. Assim, por enquanto, ape- 
nas digite e monte estas linhas; não ten- 
te executá-las. 





10 ORG 19789 
20 BAR LDA 18238 
30 BEQ BLM 


40 СМРА 43 
50 BEQ BLM 
60 RTS 


70 BLM LDX 18253 
80 LDU 41536 


90 PSHS X 

100 JSR CHARPR 
110 PULS X 

120 LEAX -1,X 
130 CMPX 45344 
140 BEQ BRI 

150 8ТХ 18253 
160 LDA,X 

170 СМРА #$АА 
180 BEQ BRI 

190 СМРА 4555 

200 BEQ BNH 

210 СМРА %550 

220 BEQ BNH 

230 LDA 42 

240 STA 18252 
250 BNH LEAX 289,X 
260 LDA ,X 

270 CMPA 4SAA 
280 BEQ BRI 

290 СМРА 4555 

300 ВМЕ ВОК 

310 LEAX -33,X 
320 STX 18253 

330 CHARPR EQU 19402 
340 BOK EQU 19861 
350 BRI EQU 19894 


Antes de mais nada, a rotina de mo- 
vimentação da pedra verifica se a ava- 
lanche pode ocorrer no nível atual do jo- 
go. Como você deve se lembrar, Willie 
procura não ser atingido pelas pedras, 
saltando sobre elas, no nivel um e no ní- 
vel quatro. A variável correspondente 
ao nível do jogo está armazenada na po- 
sição de memória 18238; o valor 0 indi- 
ca o nível um; o valor 3 aponta o nível 
quatro. Assim, o conteúdo do endere- 
ço 18238 é carregado no acumulador; se 
o valor for O ou 3 a instrução BEQ faz 
o processador pular diretamente para a 
rotina de movimentação da pedra. Ca- 
so contrário, o processador encontra a 
instrução RET e retorna para a rotina 
principal do jogo. 


APAGUE A PEDRA 


Na posição de memória 18253 está a 
variável que contém a posição atual da 
pedra. Essa posição é carregada no re- 
gistro X, e o número 1536, no registro 
U. Como U é o apontador da pilha do 
usuário, a região da memória situada 
acima do endereço 1536 passa a ser, pa- 
ra todos os fins, a pilha do usuário. A 
posição 1536 pertence à memória de te- 
la, correspondendo a uma parte do céu. 
O processador pula, então, para a sub- 
rotina CHARPR, 

Lembre-se de que essa sub-rotina uti- 





liza os dados da pilha do usuário e im- 
prime na tela um byte de cada vez (um 
caractere apontado por X). Logo, uma 
parte do céu é impressa sobre a pedra, 
apagando-a da tela. 

Observe que, antes da rotina 
CHARPR ter sido chamada, o conteú- 
do de X foi guardado na pilha, mas não 
removido do registrador — seu valor foi 
simplesmente copiado. Procedemos as- 
sim porque a rotina CHARPR pode in- 
terferir com o registro X, já que impri- 
me oito bytes de dados que formam um 
caractere. Ao chamar uma sub-rotina, 
convém sempre guardar na pilha o con- 
teúdo de um registro que precisamos 
preservar. A regra é: na dúvida, empi- 
lhe, você evitará vários erros, 


НМ ОА ЕМСО$ТА 


Para obter de volta a posigáo na te- 
la, basta recuperá-la da pilha da máqui- 
na. A instrução LEAX -1,X decremen- 
ta o conteúdo de X, que passa a apon- 
tar para uma posição à esquerda. Esse 
valor é comparado com 5344, endereço 
da posição do canto esquerdo da tela, 
onde a pedra irá bater após ter descido 
toda a encosta, 

Se o valor de X for 5344, a pedra 
atingiu o canto da tela. A instrução BEQ 
BRI manda, então, o processador para 
a rotina BRI, que leva a pedra de volta 
para o topo da montanha, 

Se X não for igual a 5344, a pedra 
não chegou ao canto da tela. Nesse ca- 
so, a instrução STX 1823 armazena a 
próxima posição de impressão — que é 
um caractere à esquerda da anterior na 
variável de posição da pedra, que está 
em 1823, É nesta nova posição que a pe- 
dra será impressa, 


мш! 





Precisamos, também, averiguar se 
Willie foi atingido pela pedra. Assim, 
antes que a nova pedra seja impressa, 
o conteúdo da posição de tela aponta- 
da por X é carregado no acumulador 
por meio da instrução LDA ,X. Em se- 
guida, esse valor é comparado com $55, 
que é o código de amarelo, a cor do céu, 
e com $50, a cor da língua da cobra. Se 
o caractere contém $55 ou $50 — sen- 
do, portanto, parte do céu ou da cobra 
— o processador pula as duas próximas 
instruções. Caso contrario, a pedra de- 
ve ter atingido Willie — ele é a única fi- 
gura que pode estar em seu caminho. O 
salto então não ocorre. O acumulador 
é carregado com 2. Esse valor é arma- 
zenado na variável chamada dead, que 


indica se Willie morreu ou não. Ela se- 
rá verificada mais tarde, em outra roti- 
na do jogo. 


A PEDRA AF 


A tarefa seguinte consiste em checar 
se a pedra alcançou a superfície da água, 
Em caso afirmativo, não será preciso 
imprimir uma pedra ali: ela terá que ser 
colocada, novamente, no topo da 
encosta. 

O conteúdo do registro X é adiciona- 
do a 289, para indicar a próxima posi- 
ção na tela, uma linha abaixo, O núme- 
ro 289 resulta da operação 32 x 8 + 32 
+ 1 — ou seja, para chegar à posição 
imediatamente inferior, devemos contar 
oito linhas de 32 bytes; como a pedra 
ocupa uma linha de pixels acima do 
chão, somamos 32 bytes ao longo da 
memória de tela; finalmente, adiciona- 
mos o número 1 para compensar a sub- 
tragáo anteriormente feita para deslocar 
o apontador de tela uma posigáo para 
a esquerda. 

O valor contido nesse caractere é car- 
regado no acumulador por intermédio 
da instrução LDA ,X e, em seguida, 
comparado com $AA, que é o código 
correspondente a azul, a cor do mar, Se 
o mar está nesse caractere, a instrução 
BEQ BRI salta o processador sobre a ro- 
tina que inicializa a volta da pedra à sua 
posição no topo da encosta, 


POSICAO 


Já que é preciso examinar a posição 
de tela imediatamente inferior, podemos 
muito bem verificar se existe céu naque- 
la posição. Para isso, basta comparar o 
ёч valor com $55, o código da cor do 
céu, 

Caso não haja céu onde está a pedra 
— ou seja, se ela está no chão —, a ins- 
trução BNE BOK salta para a rotina 
BOK, que imprime a pedra. 

Porém, se existe céu por baixo da pe- 
dra, ela será movida uma posição para 
baixo e uma posição para a esquerda, 
Lembre-se de que agora o apontador de 
tela está indicando uma linha de pixels 
abaixo da última posição da pedra. Lo- 
go, devemos subtrair o valor 32 para 
mover uma linha de pixels, e o valor 1, 
para mover uma posição para a esquer- 
da, Isso é feito de uma só vez pela ins- 
trução LEAX -33,X. 

Para imprimir a pedra no lugar ade- 
quado, o processador trabalha direta- 
mente com a rotina BOK. Essa rotina, 
bem como a rotina BRI, será exposta 
num próximo artigo. 


IE A 


A parte da rotina de movimentação 
da pedra que apresentamos a seguir ve- 
rifica o nível do jogo e imprime a pri- 
meira figura da pedra e, se for o caso, 
faz com que ela role morro abaixo. 
Além disso, checa se a pedra chegou ao 
fim da encosta ou se já alcançou a su- 
perfície do mar. A segunda parte da ro- 
tina, que daremos num artigo futuro, 
verifica se Willie foi atingido, imprime 
a segunda pedra e recoloca a figura no 
topo da encosta, 

Digite e monte a primeira parte, mas 
não a execute,pois a rotina só funciona- 
rá quando estiver completa. 


10 org 54400 


20 18 а, (-5228) 
30 сро 

40 jr z,bl 

50 cp 3 

60 jr z,bl 

70 ret 

80 bl 1d a,(-5195) 
90 cp 1 

100 jr z,bm 

110 1d hl,(62407) 
120 1d de,(-5200) 
130 add hl,de 
140 1d a,13 

150 push hl 

160 call 77 

170 pop hl 

180 inc hl 

190 ld a,255 

200 call 77 

210 1d h1, (-5200) 
220 1d de,480 
230 mbc hl,de 
240 Jr z,mo 

250 1d hl, (62407) 
260 ld de, (-5200) 
270 add hl,de 
280 ld de,32 

290 add hl,de 
300 call 74 

310 cp 72 

320 Jr z,mo 

330 cp 76 

340 jr z,mo 

350 cp 255 

360 jr nz,bo 

370 ld hl, (62407) 
380 1d de,(-5200) 
390 add hl,d 

400 ld a,255 

410 push de 

420 call 77 

430 pop de 

440 ld h1,32 

450 add hl,de 
460 ld (-5200),h1 
470 1d de, (62407) 
480 add hl,de 
490 14 а,13 

500 са11 77 

510 bo ld h1,(-5200) 
520 dec hl 














530 ld (-5200),h1 
540 ld a,l 

550 1d (-5195),a 
560 ret 

570 bm call -11006 
580 ret 

590 mo call -10953 
600 ret 

610 end 


Antes de mais nada, a rotina verifi- 
ca se a avalanche de pedras é necessária 
no nível atual do jogo. Lembre-se de que 
Willie tenta escapar das pedras nos ní- 
veis um e quatro. A variável que indica 
o nível do jogo está em -5228 — o valor 
0 corresponde ao nível um e o valor 3, 
ao nível quatro. 

O conteúdo desse endereço é carre- 
gado no acumulador e comparado ini- 
cialmente com 0 e, depois, com 3. Se al- 
gum desses valores estiver presente, a 
instrução jr z,bl faz o processador sal- 
tar para a rotina de movimentação da 
pedra. Caso contrário, o processador 
encontra a instrução ret e retorna ao 
programa principal do jogo. 


Аса а ты 


Para criar o efeito de movimento, uti- 
lizamos dois padróes diferentes para a 
pedra, imprimindo-os alternadamente. 
O processador precisa saber qual foi a 
ültima figura impressa para poder sele- 
cionar adequadamente a seguinte. Ob- 
tém essa informagáo no enderego-5195, 
onde existe uma variável cujo conteúdo 
¿0 ou 1. Esse valor é carregado no acu- 
mulador e, se for igual a 1, o processa- 
dor salta para a rotina bm que será apre- 
sentada mais tarde. Caso contrário, ele 
prossegue com a rotina exposta aqui. 

Como vocé vai perceber, o valor de 
-5195é trocado sempre que se chama a 
rotina de movimentação, Portanto, o 
processador executa uma parte do pro- 
grama de cada vez. 


IMPRESS, 


A posição da pedra é armazenada nos 
endereços -5200 e -5199. Seu valor é car- 
regado no par DE. O endereço inicial da 
Tabela de Nomes (TN), que está arma- 
zenado nos endereços 62407 e 62408, é 
carregado em HL. A soma dos valores 
nesse par de registros fornece o valor 
adequado na TN. 

O acumulador A é carregado com o 
código do padrão que forma o primei- 
ro desenho da pedra. Como você verá 
na segunda parte da rotina, a outra pe- 


dra é formada por dois padrões. Em se- 
guida, a rotina 77 da ROM é chamada, 
encarregando-se de colocar o valor con- 
tido em A no endereço da VRAM apon- 
tado pelo par HL — ou seja, a rotina 
imprime a pedra na tela do computador. 


FIM DA ENCOSTA 


A etapa seguinte consiste em verifi- 
car se a pedra atingiu o fim da encosta. 
Para isso, sua posigáo é transferida de 
-5200 e -5199 para o par HL e o valor 
480 é carregado em DE, que representa 
a última posigáo que a pedra pode ocu- 
par. Esse valor é subtraído de HL. Se 
o resultado for zero, a pedra está na po- 
sição 480 — em outras palavras, chegou 
ao fim da encosta. A instrução jr z;mo 
manda, então, o processador para a ro- 
tina mo, que apresentaremos mais tar- 
de. Essa rotina encarrega-se de apagar 
a pedra e levá-la de volta para o topo 
da montanha, 


A PEDRA AF 


Como a maré está subindo rapida- 
mente, é provável que a pedra atinja a 
água antes de chegar ao fim do morro. 

Precisamos verificar se ela afundou. 
Em caso afirmativo, a pedra será reco- 
locada no topo da encosta. 

A rotina 74 da ROM cuida disso. Se 
à chamarmos com um endereco da 
VRAM em HL, ela devolverá o conteú- 
do desse endereço ao acumulador, 

Portanto, carregamos o endereço ini- 
cial da TN da VRAM em HL. A posi- 
ção da pedra na tela é carregada em DE. 
Adicionando os conteúdos de DE e HL, 
obtemos a posição da pedra na TN. Po- 
rém, como estamos interessados no que 
existe abaixo da pedra, somamos 32 ao 
conteúdo de HL. 

A rotina 74 é chamada e fornece o 
padrão da figura que se encontra nessa 
posição. Seu valor é comparado com 72 
e 76, que são os códigos dos dois pa- 
drões de mar existentes, Se o mar está 
abaixo da pedra, a instrução jr z,mo 
manda o processador para a segunda 
parte da rotina, que apaga a pedra e 
ajusta a posição para o topo do morro. 


Uma vez que temos no acumulador 
o código do padráo que está abaixo da 
pedra, náo custa verificar se ele corres- 
ponde ao céu. Para isso, comparamos 
o conteúdo do acumulador com 255, 
que é o código do padráo de céu. 


Se náo há céu abaixo da pedra — ou 
seja, se ela ainda está no cháo — a ins- 
trução jr nz,bo faz o processador saltar 
ao rótulo bo, onde as variáveis são ajus- 
tadas antes de retornar. Caso contrário, 
o processador continua com a parte se- 
guinte da rotina. 


A PEDRA DESCE 


Vocë deve ter reparado que até ago- 
ra a pedra só tem se movido para a es- 
querda — o declive da encosta nào foi 
levado em conta. A pedra só pode estar 
fora do chào (com a cor do céu sob ela) 
se acabou de passar por uma inclinação 
— o que significa que precisamos apagá- 
la e imprimi-la uma posição abaixo. A 
rapidez com que essa tarefa é executa- 
da em código de máquina nos dá a im- 
pressão de que a pedra permaneceu na 
superfície da encosta. 

O endereço inicial da TN da VRAM 
é carregado em HL. O par DE recebe 
a posiçào atual da pedra e esse valor é 
somado em HL. Em seguida o código 
do padrào de céu é carregado em A e 
a rotina 77 da ROM é chamada. Com 
esse procedimento, a pedra é apagada 
da posição que ocupava na tela. 

O valor em DE foi preservado na pi- 
Iha e somado ao número 32 em HL, pa- 
ra atualizar a posição da pedra nos en- 
dereços- 5200 e -5199 e levá-la uma po- 
sição abaixo da anterior. Finalmente, 


- soma-se o endereço inicial da TN da 


VRAM em HL e carrega-se o acumula- 
dor com o padráo da pedra. A rotina 77 
é, entáo, chamada. Com isso, fizemos 
a pedra descer uma posição, permane- 
cendo firme junto à encosta. 


ROI 





PELA ENCOSTA 


Quer a pedra tenha descido, quer 
nào, as variáveis que definem sua posi- 
ção devem ser ajustadas para fazer com 
que ela pareça estar rolando pela encos- 
ta da montanha, 

O par HL é mais uma vez carregado 
com a posição da pedra, Em seguida, 
seu valor é decrementado e devolvido 
aos endereços - 5200 e - 5199. Quando a 
rotina responsável pela movimentação 
da pedra for chamada novamente, a fi- 
gura terá sido deslocada uma posição 
para a esquerda. 

O processador continuou a executar 
essa parte da rotina e imprimiu na tela 
a primeira figura da pedra porque o con- 
teúdo do endereço - 5195 era 0. Para que 
depois imprima a outra figura, o valor 
1 será carregado em -5195 pelo acu- 
mulador. 


ШИШЕ Н AAA E [ШИШИШИ ЇЇ 
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FUNDAMENTOS E APLICAÇÕES 
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GERAÇÃO DE 
NÚMEROS RANDÔMICOS 


AMOSTRAGEM E PESQUISA 








Quais são suas chances de fazer os 
treze pontos na loteria esportiva 

desta semana? Nosso programa não vai 
melhorar sua sorte, mas poderá 
ajudá-lo a entender porque perdeu. 


Instruir um novo piloto a bordo de 
um avião a jato ou de um bombardeiro 
pode custar muito caro, se levarmos em 
conta os custos com combustível, ater- 
rissagens e pessoal de apoio. Por isso, as 
autoridades militares preferem investir 
grandes somas em aviões de treinamen- 
to e simuladores — equipamentos con- 
trolados por computador que nunca dei- 
xam o solo, mas dão ao iniciante a sen- 
sação de um vôo real. 

O mesmo tipo de argumento é váli- 
do em várias outras situações — incluin- 
do o planejamento de uma indústria, 
marketing, pesquisas científicas e planos 
governamentais. Programar um compu- 
tador para simular os efeitos de uma 
provável falência ou de uma determina- 
da política econômica é, sem dúvida, 
mais razoável do que testá-las na práti- 
ca, o que tomaria cinco anos ou mais, 
dependendo das circunstâncias. Não 
surpreendem, portanto, os grandes in- 
vestimentos que têm sido feitos na área. 

Antes do advento dos computadores, 
era praticamente impossível utilizar es- 
se recurso, devido à complexidade e ex- 
tensão dos cálculos envolvidos. Hoje em 
dia, até os microcomputadores pessoais 
podem fazer simulações não muito com- 
plicadas — como as que você já deve ter 
visto em jogos comercializados pelos fa- 
bricantes. 

Por trás de todo trabalho de simula- 
ção e previsão, estão as leis da probabi- 
lidade. Se você não está familiarizado 
com elas, consulte o artigo Acaso e Pro- 
babilidade na página 776. Complemen- 
tando essas leis, usam-se os estudos es- 
tatísticos, que analisam os fatos reais, 
quantificando a ocorrência de certas si- 
tuações e o surgimento de variações em 
suas características. 

A partir de algumas informações bá- 
sicas, o computador é capaz de pre- 
ver situações futuras para uma série de 
eventos. Mas a confiabilidade dos resul- 

















tados dependerá sempre do cuidado com 
que os dados foram introduzidos e da 
precisào das regras que orientam sua 
manipulação. Tomemos um exemplo 
bem simples: a simulação dos resultados 
de uma loteria esportiva. 

A cada fim de semana, milhares de 
pessoas conferem, pela televisão ou pe- 
lo rádio, os resultados da loteria espor- 
tiva, aguardando ansiosamente sua vez 
de fazer os treze pontos. Infelizmente, 
todos, exceto os raros premiados, des- 
ligam a televisão desapontados e vão 
dormir, esperando pelos jogos da pró- 
xima semana, Se voçê quiser antecipar 
a emoção de checar sua sorte, digite es- 
tas linhas: 


10 DIM J(13): BORDER 0: PAPER 
0: INK сіз 

20 PRINT INVERSE 1;" AS PART 
IDAS ESTAO EM ANDAMENTO" 

30 FOR I=1 TO 13 

40 LET J(I)*RND*1 

50 NEXT I 

60 FOR I=1 TO 2000: NEXT I 

70 PRINT PRINT FLASH 1; 
PAPER 2;" E ATENCAO PARA OS R 
ESULTADO: : PRINT 

80 FOR I=1 TO 13 

90 IF J(I)<=.5 THEN LET ZS=" 


UM 
100 ТЕ J(1)>.5 AND J(1)<=.75 


THEN LET Z3="DOIS” 

110 IF J(1)>.75 THEN LET Z$=” 
DO MEIO” 

120 PRINT TAB 3;"JOGO "; 

PRINT TAB 11;”: COLUNA 

130 FOR T=1 TO 500: NEXT T 
140 NEXT I: PRINT PRINT 

150 PRINT FLASH 0; PAPER 

OCE QUER OUTRA LOTERIA (S/N)?" 
160 LET AS=INKEYS: IF AS="" 
THEN GOTO 160 

170 IF A$-"S" THEN GOTO 10 
180 STOP 


10 DIM J(13) 

20 CLS:PRINT " AS PARTIDAS ESTA 
O EM ANDAMENTO” 

30 FOR I=1 TO 13 

40 LET J(1)=RND(10)/10 

50 NEXT 1 

60 FOR I-1 TO 2000:NEXT 

70 PRINT 634,"E ATENCAO PARA OS 
RESULTADOS" : PRINT 

80 FOR I-1 TO 13 

90 IF J(I)<=.5 THEN Z$="UM” 

100 IF J(1)>.5 AND J(1)<=.75 TH 
EN Z$="DOIS” 

110 IF J(I)5.75 THEN Z$-"DO MEI 
o” 

120 PRINT TAB(4) "JOGO co 
LUNA ";Z5 

130 FOR T=1 TO 500:NEXT T 

140 NEXT I:PRINT 

150 PRINT "VOCE QUER OUTRA LOTE 














b 


RIA ? (S/N)" 

160 LET AS=INKEYS:IF AS="" THEN 
160 

170 IF A$="S” THEN GOTO 20 

180 END 


W 


10 DIM J(13) 

20 НОМЕ : PRINT TAB( 5)"AS РА 
RTIDAS ESTAO EM ANDAMENTO" 

30 FOR I - 1 TO 13 

40 LET J(I) = RND (1) 

50 NEXT I 

60 FOR I = 1 TO 2000: NEXT 

70 PRINT : PRINT TAB( 6)"E AT 
ENCAO PARA OS RESULTADOS": PRIN 


T 
80 FOR I = 1 TO 13 
IF J(I) < = .5 THEN Z$ =" 


IF J(I) > .5 AND J(I) < = 

.75 THEN Z$ - "DOIS" 

110 IF J(I) > .75 THEN 2$ = "D 
O MEIO” 

120 PRINT TAB( 7)"JOGO " 
PRINT TAB( 15)" : COLUNA ” 
$ 

130 FOR T = 1 TO 500: NEXT T 
140 NEXT I: PRINT : PRINT 

150 PRINT TAB( 4)”VOCE QUER O 
UTRA LOTERIA ?(S/N)" 

160 GET AS 

170 IF AS = "S” THEN GOTO 20 
180 END 


кч 


10 DIMJ(13) 
20 CLS:PRINT TAB(5)"AS PARTIDAS 
ESTÃO ЕМ ANDAMENTO” 
30 FOR T=1 TO 13 
40 LET J(I)*RND(1) 
50 NEXT I 
60 FOR I-1 TO 2000:NEXT 
70 PRINT:PRINT TAB(6) "E ATENCA 
O PARA OS RESULTADOS” : PRINT 
80 FOR I-1 TO 13 
90 ТЕ J(1)<=.5 THEN Z$-"UM" 
100 IF J(1)>.5 AND J(1)<=.75 TH 
EN Z$="DOIS" 
110 IF J(I)5.75 THEN Z$-"DO MEI 
o” 
120 PRINT TAB(7) "JOGO";I;:PRIN 
T TAB(15)" : — COLUNA ";Z$ 
130 FOR T-1 TO 500:NEXT T 
140 NEXT I:PRINT:PRINT 
150 PRINT TAB(4) "VOCÊ QUER OUT 
RA LOTERIA? (S/N)” 
160 AS-INKEYS:IF A$-"" THEN GOT 
0 160 
170 IF A$-"S" THEN GOTO 20 
180 END 
Rode o programa e os resultados se- 
rào prontamente impressos na tela. 
Não é incomum o cancelamento de 
algum jogo, sobretudo por causa de 
chuva. Quando isso ocorre, a Caixa 
Econômica Federal, a promotora da lo- 
teria, faz um sorteio para definir um re- 
sultado para o jogo. Na verdade, esse 
processo não passa de uma simulação, 





ou seja, de uma representacáo simbóli- 
ca de uma situação real. 

A estrutura do programa é muito 
simples. O laço entre as linhas 30 e 50 
sorteia treze números correspondentes 
aos treze jogos, e o laço entre as linhas 
80 e 140 relaciona esses números aos 
possíveis resultados. 

DECIDI OS RESULT. S 

o parámetro que o computador uti- 
liza para imprimir os dados do placar 
provém de uma análise sobre a freqüên- 
cia de cada resultado em jogos passados. 
Sabe-se que, em 50% dos jogos, o time 
da casa vence, pois conta, entre outras 
vantagens, com o apoio da torcida. As 
ocorrências restantes dividem-se igual- 
mente entre empate — 25% — e vitória 
do time visitante — 25%, 

Em cada jogo há trés resultados pos- 
síveis (coluna um, coluna do meio e 
coluna dois) e a loteria inclui treze jo- 
gos. Assim, a probabilidade de ocor- 
rer determinado resultado é de 1 em 
1.594,323 (um em trés elevado a treze). 
Como vocé vé, as chances de acerto se- 
riam muito pequenas, caso nào se per- 
mitissem apostas duplas ou triplas. Na 
Inglaterra, por exemplo, as apostas tam- 
bém incluem empate com gols ou sem 
gols, o que torna a probabilidade de ga- 
nhar ainda menor (1 em 4113). 

Decidir o resultado de um jogo é, 
portanto, como fazer um sorteio: os nü- 
meros sáo colocados em uma caixa e al- 
guém, sem olhar, pega um deles. 

Suponhamos que se divida um papel 
em quatro partes: na primeira, escreve- 
mos *'coluna dois"; na segunda, “со- 
luna do meio” e, nas outras duas, **co- 
luna um”. Se fizermos um sorteio, es- 
taremos representando a decisão de uma 
partida de futebol. Também poderíamos 
escrever um número em cada pedaço de 
papel — 1, 2, 3e 4 — e relacioná-los a 
um resultado desta forma: 


NUMERO RESULTADO 
1,2 coluna um 

3 coluna dois 

1 coluna do meio 


A função RND do BASIC, que ge- 
ra números randômicos, faz com que 
o computador sorteie um número do 
“chapéu”. Considerando que RND ge- 
ra um número entre 0 e 1, podemos rees- 
crever nossa tabela assim: 


VALOR DO RND 

de 0 a 0.5 

maior que 0.5 até 0.75 
maior que 0.75 até 1.00 


RESULTADO 
coluna um 
coluna dois 
coluna do meio 


Voltando ao programa anterior, vo- 
cë pode observar que este é o processo 
utilizado pelo computador para decidir 
o resultado de cada jogo (linha 80 até 
linha 140). 

Em nosso programa, as proporcóes 
entre os resultados dos jogos foram es- 
timadas um pouco grosseiramente. Pa- 
ra aperfeiçoá-l -las, vocé poderá fazer uma 
pequena pesquisa em arquivos de jor- 
nais e redefinir a proporcáo a ser usa- 
da. Experimente fazer algumas previ- 
sóes e confira com os resultados da pró- 
xima semana. Boa sorte! 


В, 0 DE NUMEROS RANDOMIC 


Dados, cartas e roleta já foram mui- 
to utilizados para a obtenção de núme- 
ros randômicos. Procedimentos como 
esses, lentos e tediosos, puderam ser 
abandonados depois que um famoso 
matemático americano, John von New- 
man, propôs o método da potência qua- 
drada. Começando com um número de 
quatro dígitos (a semente”), o próxi- 
mo número randômico seria obtido pe- 
la multiplicação da semente por ela mes- 
ma. Do resultado seriam destacados os 
quatro dígitos do meio. Suponhamos 
que a semente é o número 5272. O se- 
gundo número será gerado pelos quatro 
dígitos centrais de (527212), ou seja, 
27.793.984. A resposta (7939) é pratica- 
mente randômica. Um terceiro número 
seria obtido elevando-se 7939 ao qua- 
drado e assim por diante. 

Você pode estar se perguntando se 
qualquer processo matemático — obri- 
gatoriamente repetitivo — seria capaz de 
gerar números realmente randômicos. 
Na verdade, isso é impossível, Porém, 
o número obtido comporta-se como se 
fosse randômico, e é geralmente chama- 
do pseudo-randômico. 

Infelizmente, a técnica da potência 
quadrada não é muito útil para gerar 
números randômicos no computador. 
Além de ser um processo lento, a se- 
qiiência logo se repete, e, assim que sur- 
ge um zero, ela é interrompida. A maio- 
ria dos micros adota um método distin- 
to, recorrendo a uma fonte qualquer de 
números para gerar os pseudo-randômi- 
cos. O próximo programa usa uma fór- 
mula bem simples e a função INT para 
demonstrar como esse método funciona. 


20 BORDER O: 
CLS 

30 PRINT AT 0,2; INVERSE 1;” 
NUMEROS PSEUDO-RANDOMICOS "'' 
40 INPUT " QUANTOS NUMEROS ? 
"іп: LET s=0 


INK 7: PAPER 0: 

















Quantas variáveis cabem na memória? 

Nos interpretadores Microsoft BA- 
SIC dos micros MSX, TRS-80, TRS- 
Color, Apple e TK-2000, os nomes de 
variáveis podem ter uma ou duas le- 
tras, ou uma letra e um número. Tam- 
bém é possível acrescentar o sufixo de 
tipo, que pode ser um % (precisão du- 
pla), ! (precisão simples), % (inteiro) e 
$ (literal). Dadas essas limitações, 
calcula-se o número de nomes diferen- 
tes em 2 000. 

Já para os micros Sinclair (ZX-81 e 
Spectrum), náo há limite teórico, pois 
sáo aceitos mais de dois caracteres no 
nome de uma variável. 





















50 LET x =.677829*PEEK 23673 

/50 

60 LET x-x*1842.95 

70 LET x-x-INT (x) 

80 LET p-INT (x*1000): 
7;.001*p, 

90 LET s-s*1 

110 IF s<=n THEN GOTO 60 

120 STOP 


PRINT 











20 CLS 

30 PRINT e3, 
DOMICOS" 

40 PRINT:PRINT:INPUT"QUANTOS NU 
MEROS "; 0 

50 x=. 677829*TIMER/50 

60 X-X*1842.95 

70 X-X-INT(X) 

80 P=INT(X*1000):PRINT LEFTS(ST 
R$(P/1000)*" 7,8); 

90 S-S*1 

110 IF S<=N THEN 60 

120 END 


(sk) [có] 


20 HOME 
30 PRINT TAB( 7)"NUMEROS PSEU 
DO-RANDOMICOS PRINT 


"NUMEROS PSEUDO-RAN 





40 INPUT "QUANTOS NUMEROS ? "; 
N:S = 0 

50 X = .677829 * 318378 / 50 
60 X = X * 1842.95 

70 X= X- INT (X) 

80 Р = INT (X * 1000): PRINT 


LEFTS ( STRS (P / 1000) + ” 
^,8); 
905 = 5 +1 


110 IF S < N THEN 60 
120 END 


20 CLS 


30 PRINT TAB(6) "NUMEROS PSEUDO 


-RANDOMICOS":PRINT 

40 INPUT"QUANTOS NUMEROS ";N:S- 
0 

50 Х-.677829%ТІМЕ/50 

60 X-X*1842.95 

70 X-X-INT (X) 

80 P-INT(X*1000): PRINT LEFT$(ST 
R$(P/1000) ** .8); 

90 5-5%1 

110 IF S<N THEN 60 

120 END 


A linha 50 usa a funçào time para 
produzir uma semente diferente a cada 
ехесисйо do programa. O Apple e o 
TK-2000 não possuem essa função. Por- 
tanto, se você quiser uma outra ѕедйёп- 
cia, deverá substituir o valor 318378. 

O número .677829 é uma constante 
arbitrária. Depois que o valor é multi- 
plicado por outra constante (linha 60), 
obtém-se o resíduo (ou parte decimal). 
Mude os valores das constantes nas li- 
nhas 50 e 60 e torne a executar o pro- 
grama para verificar o tipo de resulta- 
do a que chegará. 

Para outros fins, é mais fácil utilizar 
a função RND existente em seu compu- 
tador. Variando o valor de x na expres- 
são RND(x), você poderá selecionar 
uma segiiência que se repita, o que é 
muito útil para renovar a semente a ca- 
da execução do programa. 

Lembre-se de que a função RND cria 
uma variável randômica e não uma va- 
riável algébrica. RND(1) — ou RND(0) 
no TRS-Color — não resultará no mes- 
mo número em duas partes do programa. 


AMOSTR PESQUISAS 


Empresas que fazem pesquisas de 
mercado ou de opinião pública usam 
computadores para gerar uma amostra 
randômica da população. Quando en- 
trevistam, por exemplo, mil pessoas, é 
muito importante que elas representem 
a grande maioria da população. Ou se- 
ja, os entrevistados não podem ser es- 
colhidos por morar perto do instituto de 
pesquisa ou trabalhar em determinada 
empresa. Ao contrário, devem ter as 
mais diversas origens e características 
para que suas opiniões não sejam in- 
fluenciadas por particularidades comuns 
a determinados grupos. 

A melhor maneira de se definir uma 
amostra bem representativa é selecioná- 
la randomicamente, excluindo, assim, 
qualquer tendência ou preconceito. 

Isso continua valendo mesmo que o 
campo amostral não seja tão grande, e 
que comporte de fato algumas caracte- 
rísticas comuns — como se supõe haver 
entre os sócios de um clube ou os leito- 
res de INPUT. Se você quisesse saber, 


por exemplo, quais os computadores 
mais usados entre os leitores de INPUT, 
seria necessário fazer uma amostragem 
randômica para chegar ao resultado 
mais próximo possível do real. 

O processo utilizado no programa é 
similar ao de retirar números de um cha- 
péu, com uma pequena diferença: o pa- 
pel sorteado não voltará ao chapéu, o 
que equivaleria a entrevistar duas vezes 
a mesma pessoa. Execute o programa 
que se segue para ver como a função 
RND pode ser empregada para gerar 
uma amostragem randômica. 


10 DIM b$(10,16) 

20 DIM a$(10,16) 

30 BORDER 0: PAPER 0: 
CLS 

50 PRINT AT 0,5; INVERSE 1;"A 
MOSTRAGEM RANDOMICA " 

90 PAUSE 100: CLS 
100 FOR i-1 TO 10: 
NEXT i 

110 INPUT " TAMANHO DA AMOSTRA 
? ";n 

120 FOR v=1 TO 10: 
$(v): NEXT v 

130 FOR 3-1 TO n 
140 LET r-1*INT (RND*10) 
150 IF bS(r)=" 

” THEN GOTO 140 

160 PRINT b$(r) 

170 LET b$(r)-"" 


INK 7: 


READ a$(i): 


LET b$(v)=a 


180 NEXT j 

190 INPUT " OUTRA AMOSTRA (s/n 
) ? ";9$ 

200 IF g$-"s" THEN CLS : GOTO 
10 

210 sTOP 

220 DATA "BONN","COPENHAGUE"," 
LONDRES” 

230 DATA "MADRI","MOSCOU","NOV 
A IORQUE" 

240 DATA "PARIS","ROMA","ESTOC 


OLMO" , "VIENA" 





40 CLS 

50 PRINT 88, 
:PRINT:PRINT 
100 RESTORE:FOR 1-1 TO 10:READ 
AS(I):NEXT I 

110 INPUT"TAMANHO DA AMOSTRA "; 
N:PRINT 

115 IF N>10 THEN 40 

120 FOR V=1 TO 10:B$S(V) =AS(V):N 
EXT V 

130 FOR J=1 TO N 

140 R=1+INT(RND(0)*10) 

150 IF BS(R)="" THEN 140 

160 PRINT BS(R) 

170 BS(R)="" 

180 NEXT J 

190 PRINT: INPUT” OUTRA AMOSTRA 
(S/N) ";G$:PRINT:PRINT 

200 IF G$-"S" THEN 110 

210 END 

220 DATA BONN,COPENHAGUE, LONDRE 


"AMOSTRA RANDOMICA" 



















































































8 

230 DATA MADRI,MOSCOU,NOVA IORQ 
UE 

240 DATA PARIS,ROMA,ESTOCOLMO,V 
IENA 


(41%) 





40 НОМЕ 

50. PRINT ТАВ( 10)"AMOSTRAGEM 
RANDOMICA": PRINT 

100 RESTORE : FORT = 1 TO 10: 
READ AS(I): NEXT I 

110 INPUT "TAMANHO DO CAMPO AM 
OSTRAL :";N: PRINT 

115 IF N > 10 THEN 40 

120 FOR V = 1 TO 10:B$(V) = A$ 
(V): NEXT V 

130 FOR J = 1 TO N 

140 В = 1 + INT ( RND (1) * 10 
) 

150 IF B$(R) = ”” THEN 140 

160 PRINT B$ (R) 

170 B$(R) = "" 

180 NEXT J 

190 PRINT : INPUT "OUTRA AMOST 
RAGEM ?(S/N) ";G$: PRINT : PRIN 
Т 

200 IF GS = "S" THEN 40 

210 END 

220 DATA  BONN,COPENHAGEN,LOND 
RES 

230 DATA MADRI,MOSCOU,NOVA YO 
RK 

240 DATA  PARIS,ROMA,ESTOCOLM 
0,УТЕМА 

20 сїз 


30 PRINT TAB(6) "NUMEROS PSEUDO 
—RANDOMICOS” : PRINT 

40 CLS 

50 PRINT TAB(8) "AMOSTRAGEM RAN 
DOMICA":PRINT:PRINT 

100 RESTORE:FOR I=1 TO 10:READ 
AS(I):NEXT I 

110 INPUT "TAMANHO DA AMOSTRA " 
;N:PRINT 

120 FOR V-1 TO 10:B$(U)-A$(V):N 
EXT 
130 
140 
150 
160 
170 


V 

FOR J=], TO N 

Rel +INT(RND(1)*10) 

IF BS(R)="" THEN 140 

PRINT BS(R) 

BS(R)="" 

180 NEXT J 

190 PRINT:INPUT"OUTRA AMOSTRA ? 
(S/N) " ;GS: PRINT:PRINT 


200 IF G$-"S" THEN 110 

210 END 

220 DATA BONN,COPENHAGEN, LONDRE 
s 

230 DATA MADRI,MOSCOU,NOVA YORK 
240 DATA PARIS,ROMA,ESTOCOLMO,V 
IENA 


Depois que as informações que se- 
guem o comando DATA foram lidas (li- 
nha 100), um número inteiro randômi- 
co R, entre 1 e 10, é gerado (linha 140). 
Seu computador imprimirá, então, o R- 
ésimo item (linha 160) da lista. 





Assim que um item é selecionado, 
deve-se removê-lo do banco de informa- 
ções, para não ser escolhido duas vezes. 
A linha 170 se encarrega disso. 

Geralmente, o banco de informações 
a ser pesquisado é bem mais extenso do 
que o apresentado aqui. Para obter 
amostragens de um grupo maior, nosso 
programa seria lento e ineficiente. Se um 
político quisesse, por exemplo, sortear 
duzentos nomes de um eleitorado de 
60.000 elementos, o programa teria que 
percorrer a lista duzentas vezes. Para 
evitar essa longa espera, o mais conve- 
niente seria recorrer ao método de bus- 
ca individual. 


Ш.Д» 





Com esse método, o banco de dados 
€ percorrido uma só vez, de cima para 
baixo. Decide-se, a cada nome conside- 
rado, qual deve ser incluído na amostra- 
gem. Para obter uma amostragem des- 
sa maneira, faca as seguintes modifica- 
ções no programa anterior: 


120 LET a=n: LET c=10 

130 FOR 3-1 TO 10 

140 IF a-0 THEN GOTO 190 

150 IF RND*1<=a/c THEN PRINT 
a$(3): GOTO 170 
160 LET c=c-1: 
170 LET a=a-1: 


GOTO 180 
LET c=c-1 





50 PRINT €3,"AMOSTRA RANDOMICA 
SIMPLES ":PRINT:PRINT 

120 A-N:C-10 

130 FOR J-1 TO 10 

140 IF A-0 THEN 190 

150 IF RND(0)<=A/C THEN PRINT A 
$(J) :GOTO 170 

160 C=C-1:GOTO 180 

170 A=A-1:C=C-1 


[ILS] 


50 PRINT 
DE BUSCA INDIVIDUAL": 
120 A = N:C = 10 

130 FOR J * 1 TO 10 
140 IF A = 0 THEN 190 
150 IF RND (1) < = A / C THE 
N PRINT A$(J): GOTO 170 

160 C = C - 1: GOTO 180 

170A "ÀA- 1:0 C- 1 


РА 


50 РВІМТ ТАВ(9) 
DOMICA":PRINT:PRINT TAB(9) 
BUSCA INDIVIDUAL":PRINT 
120 A=N:C=10 

130 FOR J-1 TO 10 

140 IF A-0 THEN 190 

150 IF RND(1)<=A/C THEN PRINT A 


"AMOSTRAGEM RANDOMICA 
PRINT 


"AMOSTRAGEM RAN 
"DE 


FAZENDO PREVISÓES 

As técnicas de simulacào descritas 
neste artigo apresentam muitos dos 
elementos necessários para que vocé 
próprio desenvolva um método para 
prever os resultados de um jogo ou pa- 
ra fazer uma pesquisa. Nào será difícil 
modificar os programas ou usar parte 
deles, adaptando-os às suas fina- 
lidades. 

Vocé pode, por exemplo, planejar e 
montar um programa que contenha o re- 
sultado de vinte partidas e, entáo, se- 
lecionar treze delas e comparar suas 
previsóes com os resultados reais. Pa- 
ra isso, seria preciso utilizar tanto o 
programa da loteria esportiva quanto 
o da amostragem, com algumas modi- 
ficações e linhas extras destinadas a 
ligá-los. 

Se você quiser treinar um pouco 
mais, experimente uma outra combina- 
ção dos dois programas, fazendo com 
que o computador não só simule os re- 
sultados da loteria esportiva, como 
também forneça os nomes dos times 
que estão jogando. Você deverá, nes- 
se caso, incluir no programa de amos- 
tragem os nomes de vários times, den- 
tre os quais 26 serão sorteados. 


$(J):GOTO 170 
160 C-C-1:GOTO 180 
170 A=A-1:C=C-1 


Se vocé decidir selecionar trés itens da 
lista, o primeiro deles, Bonn, só será es- 
colhido se a função RND (linha 150) re- 
sultar num número menor que 3/10. 
Copenhague será o próximo item a ser 
considerado. Se Bonn já tiver entrado 
para a amostragem, o item Copenhague 
terá a chance de ser escolhido se a fun- 
ção RND gerar um valor menor que 
2/9. Se Bonn não foi selecionado, a 
chance de Copenhague aumenta para 
3/9. As linhas 160 e 170 atualizam es- 
sas probabilidades para cada elemento. 

Se você comparar as amostragens ob- 
tidas por este programa com as do pro- 
grama anterior, observará que, aqui, 
elas aparecem na ordem em que estão 
no programa. 

A primeira vista, pode-se supor que, 
com uma lista de dez itens, o número de 
amostragens possíveis é pequeno. Na 
verdade, porém, é bem grande: são 120 
amostras diferentes com três itens, e 252 
com cinco itens. 











Até agora Willie nào contava com a 
ameaça de uma avalanche. A rotina que 
faz com que as pedras rolem está ape- 
nas pela metade e, provavelmente, fa- 
lhará se você tentar executá-la. Esta se- 
gunda parte da rotina irá precipitar a 
avalanche. E Willie só estará seguro se 
pular fora do caminho. 


A listagem que apresentamos aqui é 
constituída de duas seções principais. 
Uma delas imprime a segunda figura da 
pedra — para dar a impressão de que 
ela está rolando — e verifica se Willie 
foi atingido. A outra apaga a pedra se 
ela tiver chegado ao fim da encosta ou 
à superfície do mar e a recoloca no to- 
po da encosta. Ambas as seções são cha- 
madas pela parte da rotina fornecida no 
artigo anterior. 

Assim que você tiver digitado e mon- 
tado as linhas que se seguem, a rotina 
de movimentação da pedra estará pron- 
ta para funcionar. Mas lembre-se de que 
você deve ter o resto do jogo na memó- 
ria, já que outras rotinas — como print 
— serão chamadas. 


10 REM org 59097 

20 REM bma ld hl,(57356) 
30 REM ld de,22528 

40 REM add hl,de 

50 REM ld a, (hl) 

60 REM cp 40 

70 REM jr nz,bnh 

80 REM 1d a,2 

90 REM ld (57336),a 

REM bnh 1d hl,(57356) 
REM 1d a,42 

REM ld bc,57128 

REM call 58217 

REM inc hl 

REM call 58217 

REM ld a,0 

REM ld (57358) ,a 

REM ret 

REM bri ld hl, (57356) 
REM ld bc,15616 

REM ld a,45 

REM call 58217 

REM ld h1,223 

REM 1d (57356),hl 
REM ret 


200 
210 
220 
230 
240 
250 


Na última parte de Avalanche, vocé 
teve que analisar a cor do caractere que 





AVALANCHE: AS 
PEDRAS ROLAM (2) 


estava logo abaixo da pedra, para verifi- 
car se ela tinha chegado á água ou se es- 
tava rolando. Agora, será preciso checar 
a cor da posição onde a pedra será im- 
pressa, para saber se ela conseguirá 
atingir Willie. 

A posição de impressão da pedra é 
transferida dos endereços 57356 e 57357 
para o par HL. Não se esqueça de que 
a variável de posição da pedra, que está 
nesses endereços, foi decrementada no 
fim da primeira parte desta rotina. As- 
sim, quando a rotina é novamente cha- 
mada, a variável está apontando para a 
posição à esquerda da pedra. Saltando 
para essa seção da rotina, o programa 
imprime a segunda figura da pedra no 
local indicado — uma posição à esquer- 
da da anterior —, para dar a impressão 
de que está em movimento. 

O par DE é carregado com 22528, va- 
lor adicionado em seguida ao conteúdo 
de HL. O resultado, que aponta para a 
cor da posição onde a pedra será impres- 
sa, permanece no par HL. 

Utilizamos o apontador em HL para 
obter a cor da posição e carregá-la no 
acumulador por meio de endereçamen- 
to direto. Essa cor é comparada com 40, 
que corresponde ao código de azul so- 
bre fundo azul ciano, a cor de Willie 
contra O céu. 

Se a cor nessa posição não é 40, a pe- 
dra não atingirá Willie, e a instrução jr 
nz,bnh faz o processador pular as pró- 
ximas instruções. 


WILLIE E ATINGI 


Se Willie for mortalmente atingido 
pela pedra, a variável no endereco 57336 
deve ser igualada a 2. Para isso, colo- 
camos 2 no acumulador e carregamos 
seu conteúdo em 57336. 


A PEDRA ESTA ROLANI 


Inevitavelmente, a pedra irá rolar 
uma posicào à esquerda. Se Willie nào 
estiver pelo caminho, nem se preocupe. 
Caso contrário, vocé pode ter a certeza 
de que ele foi esmagado. 

O par HL é carregado com a nova 
posição da pedra na tela. O acumulador 





Willie precisará ter muito cuidado 
agora. As pedras estão prontas 
para rolar morro abaixo. E, nesta 
segunda parte da rotina, descerão 
numa avalanche sobre ele. 




















A é carregado com 42 — vermelho so- 
bre fundo ciano — e o par BC, com 
57128, que corresponde ao endereço ini- 
cial dos dados para a segunda figura da 
pedra, que ocupa duas posições na te- 
la. A rotina print é chamada e imprime 
a primeira metade da pedra (a porção 
esquerda). O par HL é incrementado — 
o que faz o apontador se mover uma po- 
sição para a direita. A rotina print é no- 
vamente chamada, imprimindo a segun- 
da metade da pedra. 

Como você verá, a segunda pedra se 



















desloca meio caractere de cada vez, pois 
Ocupa duas posicóes na tela. Essa estru- 
tura de duas metades faz com que o mo- 
vimento seja muito mais suave e contí- 
nuo, acentuando a impressáo de que a 
pedra está rolando. 

Note que, movendo a pedra um ca- 
ractere para a esquerda (como fizemos 
na primeira parte da rotina) e, depois, 
meio caractere, mantemos um avanco 
tão suave na posição em 57356 e 57357 
que não há necessidade de verificar se 
a pedra ainda está no chão. 

















IMPRESSÃO E PERSONAGEM 
DA SEGUNDA PEDRA MI FIM DA ENCOSTA 








EFEITO DE ANIMAÇÃO W — MERGULHO NO MAR 
WILLIE FOI ATINGIDO? W d DE VOLTA AO TOPO 
MORTE DO INFELIZ Ш _ A AVALANCHE RECOMECA 




















































































































Agora, basta que igualemos a variá- 
vel do tipo de pedra a 0, para que, quan- 
do a rotina for chamada de novo, o pro- 
cessador execute a outra parte. Para is- 
so, colocamos 0 no acumulador e car- 
regamos o conteúdo de A em 57358. 


RECOMECA A AVALANCHE 


A rotina bri é chamada pela primei- 
ra parte da rotina de movimentacáo 
sempre que a pedra chega ao fim da en- 





costa ou atunda nas águas do mar. A 
fungáo de bri consiste em apagar a pe- 
dra da sua posição atual e reajustá-la pa- 
ra o topo da encosta. 

A operação de apagar a pedra é feita 
como de costume. Sua posição é trans- 
ferida de 57356 e 57357 para HL; o par 
BC é carregado com o endereco inicial 
dos dados (que estáo na ROM) para um 
espago vazio e o acumulador A, com o 
valor 45, que corresponde ao código de 
ciano sobre fundo ciano. Chamaoa em 
seguida, a rotina print imprime um ca- 
ractere cor do céu sobre a pedra, fazen- 
do-a desaparecer da tela. 

O par HL é carregado com 223, po- 
sição da pedra na tela quando ela se en- 
contra no topo da montanha. Esse va- 
lor é colocado de volta nos enderecos 
57356 e 57357, para que a rotina de mo- 
vimentação da pedra comece nessa po- 
sição, quando for novamente chamada. 


A rotina aqui apresentada tem duas 
seções principais. Ambas são chamadas 
pela parte do programa publicada no ar- 
tigo anterior da série Avalanche. A pri- 
meira delas, que começa no rótulo BOK, 
seleciona e imprime na tela um dos dois 
padrões de pedra. Em seguida, troca o 
valor da variável que controla esses pa- 
drões, para que a outra figura seja im- 
pressa na próxima vez. 

A segunda seção, que começa no ró- 
tulo BRI, apaga a pedra se ela tiver che- 
gado ao fim da encosta ou à água, re- 
colocando-a no topo do morro. 

Assim que tiver digitado e montado 
as linhas que se seguem, a rotina de mo- 
vimentação da pedra estará pronta pa- 
ra funcionar. Mas lembre-se de que vo- 
cê deve ter o resto do jogo na memória, 
já que outras rotinas, como CHARPR, 
por exemplo, serão chamadas. 





10 ORG 19853 

20 BOK LDA 18260 
30 BEQ BMN 

40 LDX 18253 

50 LDU 418038 
60 JSR CHARPR 
70 CLR 18260 

80 RTS 

90 BMN LDX 18253 

















100 LDU 418014 
110 JSR CHARPR 
120 LDA 41 

130 STA 18260 

140 RTS 

150 BRI LDX 18253 
160 LDU $1536 
170 JSR CHARPR 
180 LDX $3070 

190 STX 18253 

200 RTS 

210 CHARPR EQU 19402 


Existem, na memória, dois padrões 
diferentes da pedra, que são impressos 
na tela alternadamente, dando a impres- 
são de que a figura está rolando. 

Para a criação desse efeito, o proces- 
sador precisa saber qual das duas figu- 
ras foi impressa na última vez. Obtém 
tal informação consultando uma baliza 
no endereço 18260. O conteúdo dessa 
posição é carregado no acumulador. Se 
for 0, a instrução BEQ BMI salta para 
a rotina que imprime uma das figuras 
da pedra. Se não for, o programa con- 
tinua e imprime a outra. 


A PEDRA Ri 


Caso o programa continue, X é car- 
regado com o conteúdo da posição de 
memória 18253. Esse endereço armaze- 
na a posição onde a pedra irá ser impres- 
sa. O registrador U é carregado com o 
número 18038, endereço inicial de uma 
das figuras da pedra. 

O processador salta para a rotina 
CHARPR, que imprime os últimos oito 
bytes da pilha do usuário na posição de 
tela que está sendo apontada pelo con- 
teúdo do registrador X. 

A instrução CLR 18260 altera a ba- 
liza no endereço 18260. O processador 
a executa quando a baliza tem valor 1. 
CLR 18260 apaga esse valor, colocan- 
do O em seu lugar. Assim, na próxima 
vez que a rotina da pedra for chamada, 
o processador se encarregará de execu- 
tar a outra parte e imprimir a segunda 





figura da pedra. Depois, a baliza é ze- 
rada e o processador retorna. 

A parte seguinte dessa rotina simples- 
mente imprime a outra figura da pedra. 
O registro é carregado com o mes- 
mo valor, mas o apontador da pilha do 
usuário, U, é carregado com o endere- 
ço inicial na memória da outra figura da 
pedra, 18104. Em seguida, a rotina 
CHARPR é chamada e realiza a impres- 
são na tela. O processador executou es- 





sa parte da rotina porque a baliza em 
18260 tinha o valor 0. Conseqüentemen- 
te, 1 é carregado no acumulador e ar- 
mazenado em 18260. A troca da baliza 
faz com que, na próxima vez, a outra 
figura da pedra seja impressa. 

A rotina BRI é chamada quando a 
pedra chegou ao fim da encosta ou atin- 
giu a água. Sua fungáo consiste em apa- 
gar a pedra e inicializar sua posição pa- 
ra o topo da montanha. A instrução 








LDX 18253 carrega no registrador X a 
posição atual da pedra na tela; U é car- 
regado com o endereço inicial de um ca- 
ractere de céu na memória. A rotina 
CHARPR imprime, então, um bloco de 
céu sobre a pedra, apagando- a. 

о registrado: X é carregado com 
3070, posigáo inicial da pedra na tela 
quando ela se encontra no topo da mon- 
tanha. Esse valor é armazenado em 
18253, a variável que carrega a posição 






































em que a pedra será impressa na próxi- 
ma vez. 

Para testar a rotina de movimentação 
da pedra, execute estas linhas em BA- 
SIC com o resto do programa. 


5 POKE 30000,57 

10 EXEC 19426 

20 EXEC 19781 

30 FOR K=1 TO 100:NEXT:GOTO 20 


A linha 5 só será necessária se você 
tiver feito a gravação da rotina da mú- 
sica separadamente. 


у! ЕЗЕН ES Gd 


A rotina que apresentamos a seguir 
tem duas seções principais. Ambas são 
chamadas pela parte do programa pu- 
blicada no artigo anterior da série Ava- 
lanche. A primeira seção imprime a se- 
gunda figura é da pedra, que se alternará 
com a primeira, dando a impressão de 
que a pedra está rolando. Além disso, 
verifica também se nosso personagem 
foi atingido pela pedra. 

A segunda seção apaga a pedra caso 
ela tenha chegado ao final da encosta ou 
à superfície do mar e inicializa sua po- 
sição no topo da montanha. 

Depois de digitar e montar as próxi- 
mas linhas, a rotina de movimentação 
da pedra estará completa e pronta para 
funcionar. Mas lembre-se de que o res- 
to do jogo precisa estar na memória, 
pois as tabelas de padrões e de cores são 
necessárias nesta rotina. Para obter o 
efeito desejado, é preciso, também, que 
a montanha esteja na tela. 


10 org 54530 

20 1d hl,(62407) 
30 1d de, (-5200) 
40 add hl,de 

50 push hl 

60 call 74 

70 cp 1 

80 jr z,bn 

90 ср 5 

100 jr z,bn 

110 cp 7 


120 jr z,bn 

130 cp 11 

140 3r nz.bu 

150 bn ld a,2 
160 14 (-5201),а 
170 bu pop hl 
180 1d а,17 

190 push hl 

200 call 77 

210 pop hl 

220 inc hl 

230 14 а,19 

240 са11 77 

250 14 а,0 

260 14 (-5195),а 
270 ret 

280 org -10953 
290 19 Һ1, (62407) 
300 ld de, (-5200) 
310 add hl,de 
320 ld a,255 

330 call 77 

340 1d h1,255 
350 ld (-5200),h1 
360 ret 

370 end 


Na primeira parte da rotina de mo- 
vimentacáo, vocé teve que examinar o 
padráo que estava logo abaixo da pedra, 
para verificar se ela tinha afundado no 
mar ou se estava rolando. Identificare- 
mos agora o padrão que está na posi- 
ção onde a pedra será impressa, para sa- 
ber se ela atingirá ou não Willie. 

A posição de impressão da pedra, 
que está armazenada em —5200 e 
— 5199, é colocada no par DE. Lembre- 
se de que a variável de posição da pe- 
dra, que estava nesses endereços, foi de- 
crementada no fim da primeira parte 
desta rotina. Assim, quando a rotina é 
novamente chamada, a variável está 
apontando para a posição à esquerda da 
pedra. Ao executar essa parte da roti- 
na, o processador imprime a segunda fi- 
gura da pedra, dando a impressão de 
que ela está rolando. 

O par HL é carregado com o endere- 
ço inicial da Tabela de Nomes da VRAM 
(TN). A posição que está em DE é so- 
mada ao endereço em HL, que passa a 
conter efetivamente o endereço equiva- 






LEITURA E ESCRITA 
NA VRAM DO MSX 

A VRAM é tratada pelo MSX como 
se fosse um periférico. Portanto, são 
necessários alguns artifícios para colo- 
carmos dados nessa memória auxiliar, 
especialmente em linguagem de máqui- 
na, quando não dispomos dos coman- 
dos VPEEK e VPOKE. 

Em nosso jogo, usamos cinco roti- 
nas para escrever e ler na VRAM. Seus 
endereços são: 74, 77, 86, 89 e 92. 
Todas empregam os comandos OUT e 
IN para escrever e ler através da porta 
152. As rotinas dos endereços 80 e 83 
controlam o destino do byte enviado 
por essa porta. 





lente a essa posição na tela. Em segui- 
da, o valor de HL é guardado na pilha, 
sendo utilizado na impressão da pedra. 

A rotina 74 da ROM é chamada. Ela 
coloca no acumulador o valor da posi- 
ção da VRAM apontada por HL, ou se- 
ja, realiza a leitura da VRAM. O acu- 
mulador passa o conter o código do:pa- 
dráo que está á esquerda da pedra. Es- 
se código é comparado com 1, 
valores que correspondem aos diferen- 
tes desenhos das pernas de Willie. Caso 
o valor lido nào seja nenhum desses, a 
instrução jr u faz o processador pu- 
lar as próximas instruções. 


WILLIE É ATINGI 


Se o pobre Willie tiver sido mortal- 
mente atingido pela pedra, a variável no 
endereco — 5201 deve ser ajustada com 
o valor 2. Para isso, colocamos 2 no 











acumulador e carregamos o conteúdo 
deste em — 5201. 





A PEDRA ROLA 


Inevitavelmente a pedra irá rolar uma 
posição à esquerda. Se Willie não esti- 
ver nessa posição, não se preocupe. Ca- 
so contrário, podemos ter a certeza de 
que ele foi esmagado. 

A posição na Tabela de Nomes da 
VRAM é recuperada da pilha, voltan- 
do para o par de registros HL. O acu- 
mulador A é carregado com o código do 
primeiro padrão da figura da pedra (a 
metade esquerda será impressa primei- 
ro). O valor de HL é novamente carre- 
gado na pilha, pois será usado na im- 
pressão da outra metade. A rotina 77 da 
ROM é chamada, Ela coloca o valor 
contido no acumulador na posição na 
VRAM apontada por HL. Já a util 
mos várias vezes na série Avalanche. 

O endereço da VRAM é recuperado 
da pilha para HL, onde é incrementa- 
do, Esse par de registros passa, então, 
a apontar para uma posição à direita na 
tela, onde será impressa a metade que 
está faltando. O acumulador é carrega- 
do com 19, o código dessa metade, e a 
rotina 77 é chamada outra vez. 

A segunda figura da pedra ocupa 
duas posições na tela, movendo-se meio 
caractere de cada vez. Essa estrutura de 
duas metades faz com que o movimen- 
to se realize de modo muito mais suave 
e contínuo, acentuando a impressão de 
que a pedra está rolando. 

O deslocamento da posição da pedra, 
um caractere para a esquerda (como 
ocorreu na primeira parte da rotina) e 
depois, meio caractere, mantém uma va- 
riação tão suave na posição em — 5200 
e — 5199, que não há necessidade de ve- 
rificar se a pedra está no chão. 

Agora, falta apenas um detalhe: ajus- 
tar a variável do tipo de pedra a 0, para 
que, quando a rotina for novamente 
chamada, o processador execute a ou- 
tra parte. Para isso, colocamos 0 no acu- 
mulador e carregamos seu conteúdo no 
endereço — 5195. 














Por que não usamos sprites para repre- 
sentar as pedras no MSX? 

Os sprites poderiam, de fato, apre- 
sentar algumas vantagens sobre os blo- 


cos gráficos. Com eles, obteríamos os 
movimentos mais suaves e, também, 
não precisaríamos apagar a última po- 
sição da figura já que isso é feito auto- 
maticamente. 

Mas não foi sem razão que optamos 
pelos blocos gráficos. Primeiro, só é 
permitida uma cor no sprite. Além dis- 
so, a detecção da colisão de um sprite 
com outras estruturas complicaria mui- 
to o programa. Por fim, não poderíamos 
ter, como requer o jogo, mais do que 
quatro figuras simultaneamente na 
mesma linha. 


АЕСОМЕСА А АУАГАМСНЕ 


A rotina mo é chamada pela primei- 
ra parte da rotina de movimentação 
sempre que a pedra chega ao fim da en- 
costa ou atinge o mar. Ela apaga a pe- 
dra da sua posição atual e reajusta essa 
posição para o topo da montanha. 

Para apagar a pedra, o endereço ini- 
cial da TN da VRAM é colocado no par 
de registros HL. A esse endereço soma- 
se a posição atual da pedra, que está em 
DE. O valor 255, que corresponde ao 
código do padrão de céu, é colocado no 
acumulador. A rotina 77 é chamada e 
imprime o padrão de céu na posição que 
a pedra ocupava. 

O par HL é carregado com 255, a po- 
sição da pedra no topo da encosta, Es- 
se valor volta para — 5200 e — 5199, 
Quando a rotina de movimentação for 
chamada, a pedra estará nessa posição. 





















DISCOS 
RÍGIDOS 


Embora muito üteis, os disquetes tém 
um inconveniente: a baixa capacidade 
de armazenamento. Se vocé precisa de 
maior espaco de memória e velocidade 
de acesso, o disco rígido é a solucáo. 


Em artigos anteriores, discutimos as 
características e as vantagens dos discos 
flexíveis (também chamados floppies ou 
disquetes) para os usuários de micro- 
computadores. Esses periféricos são for- 
midáveis, em termos de capacidade de 
armazenamento, facilidade de uso e ve- 
locidade de acesso, quando comparados 
com outras formas de gravação magné- 
tica de informação. 

Entretanto, também apresentam des- 
vantagens. A principal é a incapacida- 
de de atender a demandas de armazena- 
mento maiores do que as habituais. 

Os disquetes de face simples (para as 
linhas TRS-80, TRS-Color, Apple e 
TK-2000) têm capacidade em torno dos 
160-180 Kbytes. Pode parecer muito, 
mas é suficiente apenas para cerca de 
noventa páginas de texto, ou alguns pro- 
gramas e arquivos de dados pequenos. 
Os disquetes de dupla face têm capaci- 
dade de armazenamento de cerca de 
320-360 Kbytes — o que também não é 
muito, considerando-se a espantosa ra- 
pidez com que um usuário médio enche 
até centenas de disquetes. 

Não seria interessante ter todos os 
programas ° arquivos de dados em um 
único disco? Para isso, existe uma so- 
lugáo: o disco rígido. Embora ainda se- 
ja um periférico muito caro (sobretudo 
no Brasil), seu preco tende a se tornar 
acessível. Nào há exagero em afirmar 
que, mais cedo ou mais tarde, todos os 
micros pessoais seráo vendidos com uma 
unidade embutida de disco rígido, 
mo já ocorre com os micros profi: 
nais da linha PC-XT. 


O QUE É DISCO RI 


O disco rigido (hard disk, em inglës) 
é feito de metal, e nào de plástico flexi- 
vel, como o disquete. Por essa razáo, 
apresenta mais estabilidade térmica e es- 











trutural, o que Ihe permite maiores ve- 
locidades de rotação (e acesso) e maior 
densidade de gravagáo. Essas caracterís- 
ticas resultam numa grande capacidade 
de armazenamento. 

A desvantagem do disco rígido é que, 
em geral, ele náo pode ser removido e 
trocado facilmente por outro, como o 
disquete, pois é fixo dentro da unidade 
acionadora. Existem unidades de disco 
rígido que sáo totalmente intercambiá- 
veis — inclusive a cabeça de gravação 
e leitura. 

Nos discos rígidos mais utilizados pa- 
ra micros, a cabeça de gravação e leitu- 
ra nunca entra em contato com a super- 
fície do disco, como acontece com o dis- 
quete. Ela “sobrevoa” a superfície a 
uma distância muito pequena (a alguns 
milésimos de milímetro); por isso, o.des- 
gaste da superfície ferromagnética é pra- 
ticamente nulo. 

Esse sistema garante maior durabili- 
dade à unidade, mas requer que ela se- 
ja isolada do exterior, por meio de vá- 
cuo ou fluxo forçado de ar. A partícula 
mais ínfima de poeira ou fumaça que se 
introduzir entre a cabeça e o disco pode 
danificá-lo. 

Essa tecnologia é conhecida como 
Winchester, denominação que se costu- 
ma estender aos próprios discos rígidos. 
Como ela envolve dispositivos mecáni- 
cos e eletrónicos complexos e delicados, 
os custos dos discos rígidos tornam-se 
bem mais caros. 


CAPACI 





A capacidade de armazenamento dos 
discos Winchester é espantosa. Os de 
menor capacidade tém por volta de 5 
Mbytes de espaço (5 milhões de caracte- 
res), o que equivale a cerca de trinta dis- 
quetes de face simples! 

São cada vez mais populares os dis- 
cos rígidos de 10, 15 e 20 Mbytes, em- 
bora as maiores capacidades possam ser 
usadas apenas por micros de 16 e 32 bits. 
Mas já existem discos de boa capacida- 
de para o Apple e o TRS-80. 

A velocidade do disco rígido é cerca 
de vinte a trinta vezes maior que a dos 
disquetes, dependendo do modelo. Isso 
faz uma enorme diferença no momento 


E OQUE É UM DISCO RÍGIDO 
TE CAPACIDADE E VELOCIDADE 
m COMO CONECTAR 

UM DISCO RÍGIDO 
E APLICAÇÕES 






















































de carregar um programa extenso na 
memória do micro. 


COMO DISCO RÍGIDO 





ECTAR 





Desde que existam modelos de disco 
rígido disponíveis para o seu microcom- 
putador, vocé nào terá dificuldades em 
utilizar este periférico. 

Em primeiro lugar, será necessário 
uma interface controladora — uma c: 
xinha ou placa, que pode ser conectada 
ao computador (internamente, por 
exemplo, nos micros da linha Apple), 
facultando-lhe o controle e intercâmbio 
de dados com a unidade de disco. 

Muitos micros de oito bits têm pla- 
cas de controle para disquetes que já in- 
cluem o controlador de discos rígidos. 
Em alguns casos, porém, é preciso ad- 
quirir uma interface própria. 

A unidade de disco rígido é apresen- 
tada normalmente em duas versões: em 
gabinetes separados do console do com- 
putador, e em “gavetas”” que podem 
ser inseridas no local destinado a uma 
unidade acionadora de disquetes. Em 
alguns computadores (como os PC) 

é possível instalar a unidade Winches- 
ter em espaço reservado no gabinete da 
UCP, sem tomar o lugar de um disquete. 

Não convém dispor apenas do disco 
rígido: é melhor ter também uma ou 
duas unidades de disquetes — só assim 
poderemos obter a cópia cautelar (back- 
up) do disco rígido e a transferência de 
programas e dados. 

O disco rígido tem de fato a desvan- 
tagem de requerer frequentemente có- 
pias de seu conteúdo em disquete, pois, 
se ocorrer um defeito, a perda é total. 
Por isso, muitos usuários adquirem jun- 
to com o Winchester uma unidade de fi- 
ta de back-up (chamada streamer), que 
possibilita a execução dessa cópia de 
uma vez só, e em poucos minutos. 

Resta considerar a fonte de alimen- 
tação. O disco rígido gasta mais ener- 
gia do que uma unidade de disquetes, 
exigindo, quase sempre, uma fonte de 
alimentação separada da UCP. Alguns 
fabricantes vendem a unidade de disco 
rígido com fonte própria de alimenta- 
ção, o qual é muito conveniente, sobre- 
tudo se a unidade não é interna. 
















Descubra para onde vai o seu dinheiro 
ou planeje o futuro de seus negócios } 
utilizando esta prática planilha. i 
Adicione mais uma parte ao programa y 
iciado no artigo anterior. | 


UMA PLANILHA 
ELETRÓNICA (2) 
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Quando uma planilha comeca a ser 
planejada e está como uma folha em 
branco, muitas vezes ainda náo sabemos 
exatamente de que maneira iremos apro- 
veitá-la. Os exemplos dados no artigo 
anterior e as sugestóes que aqui apresen- 
tamos váo ajudá-lo a definir uma pla- 
nilha que seja realmente útil. O progra- 
ma permite a montagem de diversas pla- 
nilhas, que vocé poderá gravar e recar- 
regar a qualquer momento. 

Uma planilha para registrar e plane- 
jar suas despesas domésticas, onde as 
entradas aparecem sob títulos como alu- 
guel, transporte, saúde, consertos etc. 
constitui uma boa opção. Mas, se você 
tem que fazer um número muito gran- 
de de consertos ou reformas na casa, por 
exemplo, pode ser interessante montar 
uma planilha só para eles. Nesse caso, 
separe os diferentes tipos de reforma — 
estofamento dos móveis, decoração, 
troca das telhas e calhas, colocação de 
grades nas janelas —, especificando as 
quantias gastas mensalmente ou trimes- 
tralmente com cada um. O programa se 
encarregará de fornecer os valores totais 
para cada categoria, assim como seu pe- 
so relativo no conjunto dos gastos com 
reformas. 

Uma outra folha pode incluir as des- 
pesas da família com itens como ali- 
mentação, vestuário, educação, saúde, 
transporte e lazer. Utilize-a para listar 
esses gastos por semanas, meses ou por 
pessoas da família. 

Mas lembre-se de que pode recorrer 
à planilha para manipular qualquer ti- 
po de informação que necessite de uma 
organização lógica. Uma planilha para 
sócios de um clube pode conter, por 
exemplo, os nomes, telefones e mensa- 
lidades pagas, assim como os compare- 
cimentos a reuniões. 

Qualquer que seja sua escolha, a pla- 
nilha se revelará um excelente instru- 
mento de controle. Se você consultar o 
artigo da página 201, verá que ela nada 
mais é que uma sofisticada matriz bidi- 
mensional. Permite um controle maior 
dos dados porque comporta o uso de 
fórmulas, o que torna possível a obten- 
ção imediata dos resultados. 

Aplicações financeiras constituem o 
tipo mais frequente de uso. Mas as va- 
riações, nessa área, também são ilimi- 


tadas. Planilhas podem conter detalhes 
de pedidos, descrições de itens, evolu- 
ção nos custos, descontos etc. São úteis, 
também, na elaboração de folhas de pa- 
gamento, fornecendo listagens dos no- 
mes dos empregados e calculando horas 
trabalhadas, salários e adiantamentos. 
Sua cooperação é, ainda, valiosa no 
controle de estoque e contas, em geral; 
no planejamento de orçamentos defir- 
mas e em muitos outras tarefas ligadas 
ao setor empresarial. 


DIGITE O PROGRAMA 


A parte do programa aqui listada de- 
ve ser adicionada à que apresentamos no 
artigo anterior. As linhas restantes se- 
rão dadas no último artigo da série, que 
conterá instruções detalhadas sobre o 
uso do programa. Assim, carregue a lis- 
tagem anterior, digite esta e grave o pro- 
grama para, depois, acrescentar a ter- 
ceira parte. 


420 FOR a=fc TO c: FOR b=fr TO 
tr 

430 IF z$(3,2)-"C" THEN LET v 
(2)=v(2)+1: LET v(4) =v(4)+(v(3 
)<>26) 

440 IF z$(3,2)-"R" THEN LET v 
(3) =v (3)+(v(3)<>26): LET v(1)= 
v(1)+1 

450 IF v(1)<25 AND v(2)<31 AND 
v(3)=26 THEN GOTO 470 

460 IF v(1)>24 OR v(2)>30 OR v 
(3)>24 OR v(4)>30 THEN GOTO 
570 

470 IF v(1)<1 OR v(2)<1 OR v(3 
)<1 OR v(4)<1 THEN GOTO 570 
480 LET aS-CHR$ (v(1)+64)+STRS 
v(2)*CHR$ (v(3)*64)*STRS v(4)* 
os 

490 LET c-LEN a$: IF c>8 THEN 
RETURN : RESTORE 1630: FOR q-1 
ТО 11: LET f-0: READ m$: FOR w 
=1 Т0 с 

500 IF т$ (ы) ="А" THEN GOSUB 
1650: IF f THEN GOTO 560 

510 IF m$(w)-"N" THEN GOSUB 
1670: IF f THEN GOTO 560 

520 IF m$(w)-"Z" THEN GOSUB 
1710: IF f THEN GOTO 560 

530 IF mS(w)-"O" THEN GOSUB 
1690: IF f THEN GOTO 560 


` 
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540 NEXT w: LET z-q: GOSUB 
1140: IF NOT f THEN LET s$-" 
": FOR w-1 TO c: LET s$ 
(w)=aS(w): NEXT w: LET d$(b,a, 
9 ТО 16)-в5: LET d$(b,a,18)- 


CHR$ 2: LET d$(b,a,17)="1": 


NEXT b: NEXT a: RETURN 

550 СОТО 570 

560 NEXT q 

570 RETURN 

580 LET e-c: LET a$-" © 

590 PRINT +1;AT 0,x; BRIGHT 1; 
600 PAUSE 0: LET 1=CODE INKEYS 
610 IF 1>88 THEN GOTO 600 
620 IF 1=13 THEN GOTO 650 

630 IF 1=12 THEN LET aS(4-e)= 
* "i; LET e=e+1: LET x=x-1 

640 LET aS(4-e)=CHRS 1: PRINT 
#1;AT O,x;CHR$ i: LET x-x*l: 
LET e=e-1: IF e»0 THEN PAUSE 


10: GOTO 590 
650 IF e»1 AND (d-1 OR d-4 OR 


4-5) THEN GOTO 590 

655 IF e»0 AND (d=2 OR d=3) 
THEN GOTO 590 

660 PAUSE 10: PRINT Ф1;АТ 0,0; 


”: RETURN 
670 LET i$-"" 
680 FOR z=1 TO 3 
552 Ы i$7i$*(aS(z) AND a$(z) 
700 NEXT z 
710 IF LEN 1$=3 THEN IF i$(1) 
€"A" OR i$(1)5»"X" OR i$(2)«"0" 
OR 15(2)>79" OR 1$(3)€"0" OR à 
$(3)»"9" THEN LET f=]: RETURN 
720 IF LEN i$=3 THEN IF VAL 


1$(2 TO 3)=0 OR VAL i$(2 TO 3) 
>30 THEN LET f=l: RETURN 

730 IF LEN u$=2 THEN IF i$(1) 
<"А" ой 15(1)>"Х" ов 15(2)<"1” 
OR 1$(2)>"9" THEN LET f=1: 
RETURN 

740 IF d=2 THEN IF 





1i$(1)4»"A" 


AND 1S(1)<>"R” THEN LET f=1 
RETURN 

750 IF d=3 THEN 1F 1$(1)<>"C" 
AND 1S(1)<>"R” THEN LET f=1: 
RETURN 

760 LET z$(d,2 TO )-i$: LET z$ 


(d,1)=CHRS (LEN i$*48): LET f* 
0: RETURN 

770 LET fc-(CODE z$(4,2))-64: 
LET tc-(CODE z$(5,2))-64: LET 
£r=VAL 25(4,3 TO (1+VAL z5(4,1 


))): ПЕТ tr=VAL z$(5,3 TO (1* — 

VAL 25(5,1))) 

780 IF z$(3,2)-"C" 

<>tc OR fr»tr THEN 

RETURN 

790 IF z$(3,2)-"R" 

»tc OR frX»tr THEN 

RETURN 

800 LET f-0: RETURN 

810 FOR v-1 TO 30: 

24: LET os-0 

820 IF d$(y,x,17)7"1" THEN 

LET z-CODE d$(v,x,): GOSUB 880 
GOSUB 1010: LET st-1: LET a$ 

=STR$ t: LET os-LEN a$: IF t> 

99999.99 THEN LET f$(y,x,l)= 

"5" 

830 IF os»8 THEN LET ві=ов-7 

840 IF os-0 THEN GOTO 860 

850 LET s$-" ”: FOR u=s 

t TO os: LET s$(u-st*1)*a$(u): 

NEXT и: GOSUB 1410: LET dŠ(y,x 

‚ ТО 8)=в$ 

860 LET i-IN 32766: ІР 1=252 

THEN PRINT &1;AT 0,0; PAPER 2 

; INK 7;"CALCULO ABANDONADO": 

RETURN 

870 NEXT x: NEXT y: RETURN 

880 LET s$-d$(v,x,9 TO 16) 

890 IF z-l THEN LET v(1)*( 

CODE s8$(1))-64: LET у(2)-УАІ. в 

$(2): LET v(3) *(CODE 8$(3))-64 


THEN IF fc 
LET f-1: 


THEN IF fc 
LET f=1: 


FOR x=1 TO 


LET v(4)*VAL s$(4): LET o$*8 
$(5): RETURN 
900 IF 2z=2 THEN LET v(1)*( 


CODE 8$(1))-64: LET v(2)=VAL в 
$(2 TO 3): LET v(3)*(CODE s$(4 
)-64): LET v(4)-VAL s$(5): LET 
o$=s$(6): RETURN 





660 AS=DS(1,J):BS=MIDS(AS, 2) 
670 AT=ASC(AS) 

680 IF AT=128 THEN PRINT STRING 
$(7,32) ;:GOTO 720 

690 IF AT=129 OR AT=130 THEN PR 
INT USING "t 
0 





700 FOR U=1 TO LEN(BS):IF MIDS( 
B$,U,1)<>CHR$(32) THEN PRINT MI 
D$(B$,U,1); 

710 NEXT U 

720 RETURN 

730 C1=ASC(Z3)-64:C2=VAL (MIDS (Z 
$,2)) :V-D(C1,C2) : RETURN 

740 PRINT €448,"TRABALHANDO” 





750 FOR J=1 TO RX 

760 FOR I=1 TO CX 

770 D(I,J)=0:IF ASC(D$(I,J))=12 
9 THEN D(I,J)=VAL(MIDS(DS(I,J), 
2)) 

780 NEXT I,J 

790 FOR J=1 TO RX 

800 FOR I=1 TO CX 

810 PRINT 6448,"TRABALHANDO NA 
CELULA ";CHRS(1+64) ;MIDS (STRS (J 
),2) 


820 IF ASC(D$(1,J))<>131 THEN 1 
130 

830 AS=MIDS(DS(1,J),2) 

840 OS=MIDS(AS,7,1) 

850 IF OSs"&" THEN 1050 

860 IF O$-"$" THEN 1090 

870 ZS=LEFTS(AS,3) 

880 GOSUB 730 

890 Vl=V:Z$=MIDS(AS,4,3):GOSUB 


730:V2=V 

900 DP=VAL (RIGHTS (AS,1)) 

910 ON INSTR (1,0P$,0$) GOSUB l 
000,1010,1020,1030,1040 

920 OV-0:IF DP=0 THEN PUS="44044 
444" :MP=7:GOTO 950 

930 PUS=STRINGS (7-(DP+1),"4”)+” 
"+STRINGS (DP,”4”) :MP=7- (DP*1) 
940 IF LEN(PUS)>7 THEN RYS=" < 
OV>" :OV=1 

950 D(I,J)*RV 

960 IF RU<O THEN MP=MP-1 

970 ML=LEN(MIDS (STRS (INT (RV*.5) 
),2)) 

980 IF ML>MP THEN RUS=" 
09-1 

990 GOTO 1160 

1000 RV-UI*Ul:RETURN 
1010 RV-V1-U2:RETURN 
1020 RV-U1*U2:RETURN 
1030 IF V2=0 THEN RV=0:RETURN E 
LSE RV=V1/V2:RETURN 

1040 RV=VW1*V2/100: RETURN 

1050 P1=ASC(AS)-64: P2=ASC (MIDS ( 
AS,4,1))-64:C2=VAL (MIDS (AS,2,2) 
) :RU=0 

1060 FOR Cl-Pl TO P2 

1070 RU=RV+D(C1,C2) :NEXT 

1080 DP=VAL (RIGHTS (AS,1)) :GOTO 
920 

1090 P1=VAL (MIDS (AS,2,2)):P2=VA 
L(MIDS(A$,5,2)):C1=ASC(AS)-64:R 
V=0 

1100 FOR C2-Pl TO P2 

1110 RV=RV+D(C1,C2) :NEXT 

1120 DP=VAL (RIGHTS (A$,1)) :GOTO 
920 

1130 IF ASC(D$(1,J))<>128 THEN 


«ov»": 








1150 
1140 RV$-STRINGS(7,32):GOTO 116 
0 


1150 RV$=MIDS (D$(1,9),2) 

1160 IF 1>=CS AND I<=CS+3 AND J 

>=RS AND J<=RS+11 THEN PRINT €( 

J-RS)*324+35+(1-C8)*7,"";:PF=1 E 

LSE PF=0 

1170 IF(ASC(DS(1,J))>=128 AND A 

SC(D$(I,J))47130) OR OU-1 THEN 

1200 

1180 IF PF-1 THEN PRINT USING P 

US;RV; 

1190 GOTO 1210 

1200 IF PF-1 THEN PRINT USING"t 

1";RUS; 

NEXT I,J 

RETURN 

1230 CLS:INPUT"DESEJA SALVAR ES 

TA FOLHA (S/N) "¡AS 

1240 IF AS<>"S” THEN 1340 

1250 LINE INPUT"NOME DO ARQUIVO 

t: "PS 

1260 OPEN "O", 4-1,FS 

1270 FOR J=1 TO RX 

1280 FOR I=1 TO CX 

1290 IF ASC(DS(1,J))=128 THEN 1 
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1300 ZS-D$(I,J):MID$ (Z$,1,1)-CH 

R$ (ASC (MID$ (2$,1,1))-95) 

1310 PRINT 4-1,STR$(I),STRS(J) 

PRINT 4-1,25 

1320 NEXT I,J 

1330 CLOSE 4-1 

1340 CLS:MO=1:GOSUB 70:RETURN 

1350 CLS:PRINT"DESEJA CARREGAR 

UMA FOLHA DO GRAVADOR ?":PRI 

NT” (0 CONTEUDO DA MEMORIA SERA 
ADICIONADO АО DA FITA)”: INP 

UT "S / N ";AS 

1360 IF AS<>"S” THEN 1480 

1370 PRINT"PRESSIONE <ENTER> PA 

RA CARREGAR O PROXIMO ARQUIVO D 

A FITA OU DIGITE NOME DO ARQ 

UIVO DESEJADO” : PRINT 

1380 LINE INPUT"NOME DO ARQUIVO 

: "FS 

1390 OPEN "I",4-1,F$ 

1400 IF EOF(-1) THEN 1470 

1410 INPUT4-1,AS,BS:LINE INPUTH 

-1,C$ 

1420 MIDS(C$,1,1)=CHR$ (ASC(MIDS 

(C$,1,1))*95 

1430 C1=VAL (AS) :C2=VAL (BS) :D$(C 

1,C2)=C5 

1440 IF C1>CX THEN CX=C1 


1210 
1220 











1450 
1460 


IF C2>RX THEN RX=C2 

GOTO 1400 

1470 CLOSE 4-1 

1480 CLS:CC=1:CR=1:CS=1:RS=1:MO 
=1:GOSUB 70:RETURN 


nu 


660 AS-D$(I,J) :B$7MIDS (A$,2) 
670 AT=ASC(AS) 

680 IF AT=128 THEN PRINTSTRINGS 
(7,32);:GOTO 720 

690 IF AT=129 OR AT=130 THEN PR 
INTUSING"N A";B$;:GOTO 720 
700 FOR U=1 TO LEN(B$):IF MIDS( 
B$,U,1)<>CHRS (32) THEN PRINTMIDS 
(B$,U,1); 

710 NEXTU 

720 RETURN 

730 C1=ASC(Z5)-64:C2=VAL (MIDS (Z 
$,2)) :V=D(C1,C2) : RETURN 

740 LOCATE 0,20:PRINT"TRABALHAN 
DO...";SPC(24) 

750 FOR J=1 TO RX 

760 FOR I=1 TO CX 

770 D(I,J)*0:IF ASC(DS(I,J))*12 
9 THEN D(I,J)*VAL(MIDS (D$ (I,J), 
2)) 

780 NEXT I,J 

790 FOR J=1 TO RX 

800 FOR I=1 TO CX 

810 LOCATE 0,20:PRINT"TRABALHAN 
DO NA CEL ";CHR$(I*64) ;MIDS (STR 
$(J),2) 

820 IF ASC(D$(1,J))<>131 THEN 1 
130 
830 
840 
850 
860 
870 
880 
890 
730 
900 
910 








AS=MIDS (DS (T,J),2) 

0$=MIDS (AS,7,1) 

IF O$-"&" THEN 1050 

IF O$-"$" THEN 1090 
Z$=LEFTS (AS, 3) 

GOSUB 730 

V1-U:Z$*MID$ (A$,4,3) :GOSUB 
192-У 

DP=VAL (RIGHTS (A$,1)) 

ON INSTR(1,0P$,0$) GOSUB 10 
00, 1010, 1020, 1030, 1040 

920 OV=0:IF DP=0 THEN PUS="4444 
M44" :MP-7:GOTO 950 

930 PUS=STRINGS (7- (DP+1),"4")+" 
"+STRINGS (DP,”4") :MP=7- (DP+1) 
940 IF LEN(PUS)>7 THEN RUS="  < 
оу>" :0У-1 

950 D(I,J)*RV 

960 IF RU<O THEN MP=MP-1 

970 ML*LEN (MIDS (STR$ (INT (RV*.5) 





),2)) 
980 IF ML>MP THEN RV$=" 
оу=1 

990 GOTO 1160 

1000 RV-V1*U2:RETURN 
1010 RV=V1-V: 
1020 RV-V1*U2: 

1030 IF V2=0 THEN RV=0:RETURN E 
LSE RV=V1/V2:RETURN 

1040 RV=V1*V2/100:RETURN 

1050 P1=ASC(AS)-64:P2=ASC (MIDS ( 
A$,2,2)) :RV-0 

1060 FOR Cl-Pl TO P2 

1070 RU=RV+D(C1,C2) :NEXT 

1080 DP=VAL (RIGHTS (AS,1)) :GOTO 
920 

1090 P1=VAL (MIDS (AS,2,2)) :P2=VA 
L(MIDS(AS,5,2)):C1=ASC(AS)-64:R 
v=0 
1100 
1110 
1120 
920 
1130 
1150 
1140 
0 
1150 


<оу>": 





FOR C2-Pl TO P2 
RU=RV+D(C1,C2) :NEXT 
DP=VAL (RIGHTS (AS,1)) :GOTO 


IF ASC(D$(1,J))<>128 THEN 
RUV$=STRINGS (7,32) :GOTO 116 


RUS=MIDS (D$ (1,3) ,2) 

1160 IF I>=CS AND 1<=С5+4 AND J 

>=RS AND J<=RS+15 THEN LOCATE ( 

1-08)*7+3, (J-RS)+1:PF=1 ELSE PF 

=0 

1170 IF (ASC(D$(1,J))>=128 AND 

ASC(DS(1,J))<=130) OR OV=1 THEN 

1200 

1180 IF PF-1 THEN PRINTUSINGPUS 

ВУ; 

1190 GOTO 1210 

1200 IF PF=1 THEN PRINTUSING”N 
N"; ROS; 

1210 NEXT I,J 

1220 RETURN 

1230 CLS:INPUT"QUER GRAVAR ESTA 

FOLHA? (S/N) "¡AS 

1240 IF AS<>"S” THEN 1340 

1250 LINEINPUT "NOME DO ARQUIVO 

: "FS 

1260 F$-"CAS:"*F$:0PEN FS FOR O 

UTPUT AS 41 

1270 FOR J=1 TO RX 

1280 FOR I-1 TO CX 

1290 IF ASC(D$(1,J))=128 THEN 1 
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1300 2Z$=D$(1,J) :MIDS(25,1,1)=CH 

R$ (ASC (MID$ (28,1,1))-90) 

1310 PRINT41,STRS(I);", 

) :PRINT41,2$ 


;STRS(J 











1320 NEXT I,J 
1330 CLOSE 41 

1340 CLS:MO-1:GOSUB 70:RETURN 
1350 CLS:INPUT"QUER CARREGAR UM 
A FOLHA DO TAPE? (NOTE QU 
E A FOLHA DA MEMÓRIA SERÁ COMBI 
NADA COM A NOVA) ";AS 

1360 IF A$<>"S" THEN 1480 

1380 LINEINPUT "NOME DO ARQUIVO 
i "FS 

1390 F$="CAS:"+F$:OPEN F$ FOR I 
NPUT AS 41 

1400 IF EOF(1) THEN 1470 

1410 INPUT 41,A$,BS:LINEINPUT Ф 
1,cs 

1420 MIDS(C$,1,1)=CHRS (ASC (MIDS 
(C$,1,1))+90) 

1430 C1=VAL (AS) :C2=VAL (B$) : DS (C 
1,C2)=cs 

1440 IF C1>CX THEN CX=C1 

1450 IF C2>RX THEN RX=C2 

1460 GOTO 1400 

1470 CLOSE 41 

1480 CLS:CC=1:CR=1:CS=1:RS=1:MO 

=1:GOSUB70 : RETURN 





660 AS = DS(I,J):BS = МІр5 (А5 
,2) 

670 AU = ASC (AS) 

680 IF AU = 128 THEN PRINT S 
PC( 7);: GOTO 720 

690 IF AU = 129 OR AU = 130 TH 
EN PRINT LEFT$ (B$,7); SPC( 7 
- LEN ( LEFTS (B$,7))): GOTO 
720 

700 UU * 0: FOR U * 1 TO LEN ( 
BS): TF MIDS (B$,U,1) < > CH 


R$ (32) THEN PRINT MIDS (BS,U 
,1);:0U = UU + 1 


710 NEXT PRINT SPC( 7 - UU) 
720 RETURN 
730 cl = ASC (Z$) - 64:02 = V 


AL ( MIDS (28,2)):V = D(C1,C2): 
RETURN 

740 УТАВ 21: 
ABALHANDO” 
750 FOR J = 1 TO RX 

760 FOR I = 1 TO CX 

770 D(I,J) = 0: IF ASC (D$(I,J 
)) * 129 THEN D(I,J) = VAL (M 
ID$ (D$(I,J),2)) 

780 NEXT : NEXT 


HTAB 1: PRINT "TR 





790 FOR J - 1 TO RX 

800 FOR I = 1 ТО СХ 

810 VUTAB 21: HTAB l: PRINT "TR 
ABALHANDO NA CEL "; CHR$ (I * 6 
40:02 

820 IF ASC (D$(I,J)) € > 131 
THEN 1130 

830 AS = MIDS (DS(1,J),2) 

840 OS = MIDS (AS,7,1) 

850 ІЕ 05 - "А" ТНЕМ 1050 

860 IF O$ - "$" THEN 1090 

870 Z$ = LEFT$ (A$,3) 

880 GOSUB 730 

890 VI = V:Z$ = MIDS (AS,4,3): 


GOSUB 730:V2 = V 


900 DP = VAL ( RIGHTS (A$,1)) 
905 IN = 1 

910 IF OS < > MIDS (OPS,IN,1 
) THEN IN = IN + 1: GOTO 910 


915 ON IN GOSUB 1000,1010,1020 
,1030,1040 

920 00 = 0:MP = 7 

950 D(I,J) * RV 

960 IF RV € 0 THEN MP = MP - 1 
970 ML = LEN ( STRS ( INT (RV 
+ .5))) 

980 IF ML > MP THEN RVS = " < 
QU»":0U = 1 

990 сото 1160 

1000 RV = Ç] + V2: RETURN 

1010 RU * М1 - V2: RETURN 

1020 RV - Vl * V2: RETURN 

1030 IF V2 = O THEN RV = 0: RE 
TURN 

1035 RV = Vl / V2: RETURN 

1040 RV = V] * V2 / 100: RETURN 
1050 Pl - ASC (AS) - 64:P2 = 
ASC ( MID$ (A$,4,1)) - 64:C2 - 


VAL ( MID$ (A9,2,2)):RV * 0 
1060 FOR Cl = Pl TO P2 
1070 RV = RV + D(CI,C2): NEXT 


1080 DP = VAL ( RIGHTS (AS,1)) 
: GOTO 920 

1090 Pl = VAL ( MIDS (AS,2,2)) 
:P2 = VAL ( MID$ (A$,5,2)):Cl 
= ASC (AS) - 64:RV = 0 

1100 FOR C2 * Pl TO P2 

1110 ВУ = RV * D(Cl,C2): NEXT 
1120 DP = VAL ( RIGHTS (AS,1)) 
: GOTO 920 

1130 IF ASC (D$(1,J)) < >12 
8 THEN 1150 

1140 RUS = ” Ж 

1150 RVS * MIDS (D$(I,J),2) 


1160 IF 15 -CSANDTIX = C 





S * 4 AND J^ = ЮЗ АМР) < = 
RS + ll THEN VTAB J - RS * 2: 
HTAB (I - CS) * 7 * 4:PF * 1: 
ото 1170 

1165 PF = Q 

1170 TF (ASC (DS(1,J)) > = 1 
28 AND ASC (DS(I,J)) < = 130) 











OR OV = 1 THEN 1200 
1180 IF PF - 1 THEN PRINT SP 
C( 7 - LEN ( LEFTS ( STRS (RV 
,7))): LEFT$ ( STRS (RU),7): 
1190 GOTO 1210 
1200 IF PF = 1 THEN PRINT RYS 
1210 NEXT : NEXT 
1220 RETURN 
1230 HOME : INPUT "QUER GRAVAR 

ESTA FOLHA? (S/N) "¡AS 
1240 IF AS< > "S” THEN 1340 
1250 INPUT "NOME DO ARQUIVO "; 
FS 
1260 PRINT D$;"OPEN ";F$: PRIN 
T D$;"WRITE ";FS 
1270 FOR J = 1 TO RX 
1280 FOR I = 1 TO CX 
1290 IF ASC (D$(I,J)) = 128 T 
HEN 1320 
1300 Z$ = D$(I,J):Z$ = CHRS ( 
ASC (Z$) - 90) + MIDS (Z$,2) 
1310 PRINT STRS (1); CHRS (13 
); STR$ (J); CHR$ (13);ZS 
1320 NEXT : NEXT 
1330 PRINT D$;"CLOSE" 

1340 HOME :MO * 1: GOSUB 70: R 
ETURN 

1350 HOME : INPUT "QUER CARREG 
AR UMA FOLHA DO DISCO? (N 
OTE QUE A FOLHA DA MEMORIA SERA 

COMBI NADA COM A NOVA) (S/N 
)";AS 
1360 IF A$ < > "5" ТНЕМ 1480 
1380 INPUT "NOME DO ARQUIVO "; 
FS 
1390 PRINT D$;"OPEN ";FS 
1400 PRINT D$;"READ ";F$ 
1410 INPUT A$,B$,C$ 
1420 C$ = CHRS ( ASC (C$) + 90 
) + MIDS (C$,2) 

1430 Cl = VAL (A$):C2 = VAL ( 
B$) :D$(C1,C2) = CS 
1440 IF Cl > CX THEN СХ = СІ 
1450 IF C2 > RX THEN RX = C2 
1460 GOTO 1410 
1470 PRINT D$;"CLOSE" 

1480 HOME :CC - l:CR - 1:С5 = 
1:88 - 1:М0 - 1: GOSUB 70: СОТО 
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44 PROGRAMAÇÃO DEJOGOS 44 















OJOGO 
DA SENHA 


= AS REGRAS DO JOGO 
а DEFINIÇÃO DAS CORES 

O COMPUTADOR DÁ AS DICAS 
ESCOLHA A MELHOR 
ESTRATÉGIA 












Aceite o desafio lançado por seu 
microcomputador neste clássico jogo 
de lógica. Será que você é capaz 

de descobrir as cores sorteadas 

pela máquina, na ordem correta? 


O objetivo de Senha é descobrir as 
quatro cores sorteadas pelo computa- 





dor, entre as seis possíveis, além da or- 
dem correta em que elas estão dispos- 
tas. Lembre-se de que pode ocorrer re- 
petição de cores. 

A cada tentativa, você deverá digitar 
as iniciais das cores — por exemplo, 
RLCC para roxo, laranja, cinza e cin- 
za. O computador, então, responderá 
com um çódigo, para ajudá-lo a decifrar 
o segredo. Para cada cor correta em po- 
sição errada ele imprimirá um caracte- 



























































































































































re branco (ou a letra B), e quando a or- 
dem estiver correta, o caractere terá a 
cor preta (ou a letra P). É lógico que a 
ordem dos códigos não corresponde à 
das cores; isto tornaria o jogo muito fá- 
cil. Você tem doze chances para decifrar 
a senha. 

As cores usadas por cada programa 
são as seguintes: Amarelo, aZul, azul- 
Claro, Vermelho, Magenta e Branco pa- 
ra o micro Spectrum; Amarelo, aZul, 
Vermelho, azul-Claro, Magenta e La- 
ranja para o TRS-Color; Amarelo, Ver- 
melho, Roxo, Laranja, Magenta e Cin- 
za para o TK-2000, o Apple e o MSX. 





10 BORDER O: INK O: PAPER 4: 





CLS : LET N$-"671254": DIM C( 
4): DIM G(4): DIM F(4,2): LET 
CS="AZUCM” 


14 PRINT AT 16,0;"CORES :"''" 

A-AMARELO Z-AZUL C-AZUL CLARO 
V=VERMELHO М-МАСЕМТА В-В 

RANCO" 

15 FOR N-USR "A" TO USR "A"*7 

: READ A: POKE N,A: NEXT N 

17 DATA 0,24,60,126,126,60,24 

,0 

20 FOR K=1 TO 4: LET C(K)=VAL 


N$(INT (RND*5)*1): NEXT K: 
LET G-1 
30 INPUT "FACA A OPCAO "¡BS 


35 IF LEN B$<>4 THEN GOTO 30 
90 PRINT AT G,0;"OPCAO No. "; 
G;AT G,l4;: FOR K-l TO 4: LET 
G(K) * (7* (BS (K) *"B") ) * (6* (BS (K 
) *"A")) * (B$ (K) *"Z") * (2* (BS (K) 
2"y"))*(5* (B$ (K) ^C") ) * (3* (BS 





(K)="M")) 

92 1F G(K)"0 THEN LET K=4: 
NEXT K: GOTO 30 

95 PRINT INK G(K); BRIGHT l; 
CHAS 144;: TF K<>4 THEN 
PRINT BRIGHT 1;" "; 


97 NEXT K 
100 PRINT AT G,24; 


110 LET N=0: LET R$=” ": FOR K 
=1 TO 4: LET F(K,1)=0: LET F(K 
,2)=0: IF G(K)=C(K) THEN LET 
R$=RS+” "+CHR$ 16+CHR$ 0+CHRS 
144: LET F(K,1)=1: LET F(K,2)= 
1: LET N=N+1 

120 NEXT K 

130 FOR K=1 TO 4: IF F(K,1)=1 
THEN GOTO 170 

140 FOR J=1 TO 4: IF F(J,2)=1 
THEN GOTO 160 


LET R$= 


150 TF C(J)=G(K) THEN 
















































R$*" "*CHR$ 16+CHRS 7+CHR$ 144 


LET F(J,2)=1: LET J=4 
160 NEXT J 
170 NEXT K 
180 PRINT AT G,23;R$: INK 0: 


IF N=4 THEN PRINT AT 21,0;"VO 
CE ACERTOU APOS ";6;" ТЕМТАТІУ 





AS": GOTO 230 

190 LET G-G*1: IF G<13 THEN 
GoTo 30 

200 PRINT "O CODIGO CORRETO ER 





FOR K-1 TO 4: PRINT 
C(K):;CHRS 144;" ";: NEXT K 
220 PRINT 

230 PRINT "JOGA NOVAMENTE ?" 
240 LET AS-INKEY$: IF A$-"" 
THEN GOTO 240 

250 IF A$-"S" THEN RUN : 


INK 


STOP 





10 DIM C(3) ,G(3) ,F (3,1) :C$-"AZV 
смі" 

20 CLS:FOR K=0 TO 3:C(K)=RND(6) 
:NEXT:G=1:PRINT €8,"adivinhe o 
codigo" 

30 PRINT 6416,"TENTATIVA NO.";G 
;"? (EX: VZAC)":PRINT 6448:В5- 
40 AS-INKEYS:IF AS="" THEN 40 
50 IF AS=CHR$(13) AND LEN(BS)=4 
THEN 90 

60 IF AS=CHRS(8) AND LEN(BS)>0 
THEN BS=LEFTS (BS,LEN(BS)-1) 

70 IF LEN(B$)<4 AND INSTR(CS,AS 
)<>0 THEN BS=BS+AS 

80 PRINT 8448,B$:GOTO 40 

90 PRINT 632*G,"TENTATIVA" ;G;:F 
OR K=0 TO 3:G(K)=INSTR(CS,MIDS( 
BS,K+1,1)) :C=G(K)- (G(K)>3) 

100 PRINT 632*G*11*K*2,CHR$ (143 
+C*16) ¡ ¿NEXT 





":FOR K=0 TO 3:F( 

K,0)=0:F(K,1)=0:IF G(K)=C(K) TH 

EN R$=R$+” "+CHR$(128):F(K,0)=1 
¿F(K,1)=1:N=N+1 

120 NEXT 

130 FOR K=0 TO 3:1F F(K,0)=1 TH 

EN 170 

140 FOR J=0 TO 3:1F F(J,1)=1 TH 
EN 160 

150 IF C(J)*G(K) THEN RS-RS*" " 

+CHRS (207) :F(J,1)=1:J=3 

160 NEXT 

170 NEXT 

180 PRINT R$:1F N=4 THEN 200 
190 G-G*1:1F G=13 THEN 210 ELSE 
30 

200 PRINT 6416," УОСЕ ACERTOU A 
POS”;G; "TENTATIVAS" :GOTO 230 
210 PRINT 6416,"ЕУ GANHEI. O CO 

DIGO CORRETO ERA” 

220 FOR K=0 TO 3:PRINT €448+K*2 
p. HR$(143+C(K)*16-16*(C(K)> 
3));:NEXT 

230 PRINT:PRINT" JOGA NOVAMENTE 
? (S/N)" 

240 AS-INKEYS:IF AS<>"S” AND AS 
<>"N” THEN 240 

520 IF AS="N" THEN CLS:END ELSE 

0 








[E 


10 DIM C(3),6(3),F(3,1):03 = ” 
AVRLMC" 

20 НОМЕ 

- INT (6 * 


FOR K = 0 TO 3:C(K) 
RND (1) + 1): NEXT 


K 

25 G = 1: PRINT TAB( 6)"ADIVIN 
НЕ A SENHA (CORES:AVRLMC)" 

30 VTAB (23): PRINT "TENTATIVA 
NUMERO ";G;” (EX:AVRL):":BS = 


40 GET AS 

50 IF AS = CHRS (13) AND LEN 
(BS) = 4 THEN 90 

60 IF A$ = CHR$ (8) AND LEN 
(BS) > O THEN BS = LEFTS (BS, 
LEN (B$) - 1) 

70 IF LEN (B$) < 4 THEN B$ = 
BS + A$ 

80 VTAB (G + 2): HTAB (21): PR 
INT B$: GOTO 40 

90 VTAB (G * 2): PRINT "CHANCE 


NUMERO ";G; 

92 FOR K = 0 TO 3: 
06 

94 IF MID$ (BS,K + 1,1) = MI 
DS (C$,1,1) THEN G(K) = I: GOTO 
100 

96 NEXT I 

98 G(K) = 0 

100 C = G(K) - (G(K) > 3): NEXT 
K 


FOR 1= 17 


105 N = 0:R$ °” ” 


110 FOR K * 0 TO 3:F(K,0) = 0: 
F(K,1) * 0: IF G(K) * C(K) THEN 
R$ - R$ * " " * "P":F(K,0) = 1 
:F(K,1) = 1:N = N + 1 

120 NEXT 

130 FOR K = 0 TO 3: IF F(K,0) 
= 1 THEN 170 

140 FOR J = 0 TO 3: IF F(J,1) 
= 1 THEN 160 

150 IF C(J) = G(K) THEN R$ = R 
8 +” " + "B”:F(J,1) = 1:J = 3 
160 NEXT J 

170 NEXT K 

180 HTAB (28): PRINT RŠ: IF N 
= 4 THEN 200 

190 G = G + 1: IF G = 13 THEN 2 
10 

195 GOTO 30 

200 VTAB (22): PRINT " VOCE AC 
ERTOU A SENHA EM ";G;" CHANCES" 
: GOTO 230 

210 VTAB (22): PRINT " EU GANH 
EI, A SENHA ERA "; 

220 РОВ К = 0 TO 3: PRINT MID 
$ (C$,C(K),1);: NEXT 

230 НТАВ (1): УТАВ (23): PRINT 


” QUER JOGAR NOVAMENTE? (S/N) 


240 GET A$ 
250 IF A$ = 
260 END 


na 


10 DIM C(3),G(3) ,F (3,1) :C. 
LMC" 

20 CLS:KEY OFF:FOR K-0 TO 3:C(K 
) *INT (6*RND (T IME) 4 L) : NEXT:G71: 


"S" ТНЕМ СОТО 20 


"VAR 








Como chegar mais rapidamente á se- 
qüéncia correta das cores? 


Existe apenas um segredo: obter o 
máximo de informacóes em cada joga- 
da. Com seis tentativas, por exemplo, 
utilizando somente uma cor em cada, 
vocé descobrirá facilmente as quatro 
cores da senha, mas nada saberá so- 
bre suas posicóes. Assim, convém ter 
sempre em vista ambos os objetivos. 
Talvez vocé perca mais tempo para 
chegar às cores corretas, mas a defi- 
nição de suas posições na sequência 
será bem mais rápida. 





PRINT TAB(4) "ADIVINHE A SENHA 
(CORES : VARLMC) " 

30 LOCATE 3,22: PRINT "ТЕМТАТТУ 

A^ NO"; "? (EX:AURL)":BS="" 

40 AS=INKEYS:IF AS="" THEN 40 
50 TF AS=CHRS(13) AND LEN(BS)=4 
THEN 90 

60 IF AS-CHRS(B) АМО І.ЕМ(В9)>0 

THEN BS-LEFTS (BS, LEN (BS) -1) 

70 IF LEN(B5)<4 AND INSTR(CS,AS 
)<>0 THEN BI=BS+AS 

80 LOCATE 24,G*4:PRINT B$:GOTO 
40 

90 LOCATE 3,G*4:PRINT"Tentativa 
número ";G;:FOR K=0 TO 3:G(K)= 
INSTR (C$, MIDS (BS, K*1,1)) :C*G(K 
-(G(K)23):NEXT K 

110 N=0:R$=" ":FOR К=0 ТО 3:F( 
K,0)=0:F(K,1)=0:T1F G(K)=C(K) TH 











EN RS=RS+" "+"P":F(K,0)=1:F(K,1 
)=] :N=N+1 

120 NEXT 

130 FOR K=0 'TO 3:1F F(K,0)=1 TH 
EN 170 


140 FOR J=0 TO 3;TF F(J,1)=1 TH 

EN 160 

150 1F C(J)*G(K) 

+"B":F(J,1)=1:J=3 

160 NEXT 

170 NEXT 

180 LOCATE 28,G+4:PRINT R$: IF № 

=4 THEN 200 

190 G-G*l:IF G-13 THEN 210 ELSE 
30 

200 

tou 

ото 230 

210 LOCATE 1,21:PRINT "Eu venci 
a senha correta era ";: 

220 FOR 1=0 TO 3:PRINT MIDS(CS, 

С(1),1);:МЕХТ 

230 LOCATE 1,22:PRINT"Quer 

r novamente? (S/N) E 

240 AS-INKEYS:IF ASX»"S" AND AS 


THEN RS=RS+" ” 


LOCATE 1,21:PRINT"Vocé acer 


a senha em ";G;" chances":G 





joga 


<>"N” THEN 240 
250 IF AS="N” THEN CLS: END: ELSE 
20 
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MAIS SOBRE 
PÁGINAS GRÁFICAS 


LIMITACÓES DA MEMÓRIA 
TÉCNICAS DE РАСІМАСАО 
_PÁGINAS GRÁFICAS E 
À EXIGÊNCIA DE ESPAÇO 
ANIMAÇÕES GRÁFICAS 














Depois de examinar os princípios 

da paginação gráfica, vamos, agora, 
explorar suas possibilidades. 

Os programas deste artigo não deixarão 
dúvidas quanto à sua utilidade, 


Como vimos no artigo da página 
1096, a paginação gráfica — a técnica 
de mostrar várias telas gráficas em se- 
qüéncia — apresenta um grande poten- 
cial em diversos tipos de aplicação 
Além de seu emprego em animação 
computadorizada, as páginas gráficas 
podem ser úteis em áreas mais “sérias”, 
tais como planilhas financeiras ou quais- 
quer outros projetos que exijam a rápi- 
da mudança de uma tela cheia de infor- 
mações para outra. 

Já tivemos um contato inicial com es- 
sa técnica. Agora, trataremos de exami- 
nar mais de perto suas possibilidades 
Antes disso, no entanto, convém reca- 
pitular alguns pontos fundamentais. A 
paginação gráfica consiste, basicamen- 
te, em armazenar cada tela em uma par- 
te da memória e depois recuperá-las uma 
a uma. Essas telas podem conter dife- 
rentes tipos de informação: gráficos de 
alta ou baixa resolução, textos, ou até 
uma combinação de ambos. Depois de 
armazenadas, elas podem ser chamadas 
em sequência, sem que se perca tempo 
com o processo de montagem do dese- 
nho. O computador não precisará, por- 
tanto, executar uma série de funções de- 
moradas, como a função SIN, por 
exemplo. Ele apenas transferirá dados 
de uma parte da memória para outra. 

É claro que o processo de montagem 
do desenho continua sendo necessário 
em algum ponto, mas só uma vez para 
cada tela, Depois de prontas, elas po- 
dem ser recuperadas instantaneamente, 
sempre que você quiser. 


Cada página gráfica requer uma cer- 
ta quantidade de memória. Essa quan- 
tidade varia de acordo com a complexi- 
dade do desenho — quanto mais cores 
forem usadas e quanto maior for a re- 









solução gráfica, mais memória será exi- 
gida. Isso impõe severas limitações aos 
microcomputadores e, em alguns casos, 
temos mesmo que sacrificar um pouco 
a qualidade do desenho para obter mais 
páginas gráficas. 

Tomando as medidas necessárias pa- 
ra economizar memória, você poderá 
conseguir bastante espaço para as pági- 
nas. Mas não se esqueça de que o pró- 
prio programa ocupará uma parte des- 
se espaço. Portanto, antes de iniciar os 
trabalhos, calcule cuidadosamente a 
quantidade de memória que você ocu- 
pará com suas telas. Verifique se não é 
aconselhável baixar um pouco a resolu- 
ção do desenho ou diminuir o número 
de cores. Com o planejamento, você não 
correrá o risco de precisar de mais es- 
paço do que o disponível na RAM, 

A técnica de paginação gráfica per- 
mite o acesso a cada tela na memória do 
computador. Dependendo do espaço 
disponível, pode-se definir previamen- 
te uma segiiência de oito ou mais telas. 





Para economizar espaço, lance mão de 
alguns pequenos truques. Por exemplo: 
em uma seqüéncia como a da página 
1144, que mostra uma figura (o “ho- 
mem-rabisco"), as páginas gráficas se- 
riam exibidas na ordem 1, 2, 3, 4, 5, 1, 
2, 3, 4, 5 e assim por diante. Porém, co- 
mo vocé deve ter observado, existem 
dois pares muito semelhantes: o par 2 
e4eo par 3e 5. Ora, em uma situação 
onde qualquer espacinho está a prémio, 
será bem melhor armazenar apenas uma 
figura de cada um desses pares. Duran- 
te a projecào das imagens, nem se no- 
tará a diferenca e vocé terá economiza- 
do um bom espaço. Usando a seqüén- 
cia 1, 2, 3, 2, 3, 1, você continuará com 
uma animagáo de cinco imagens, arma- 
zenando apenas trés telas. 





O Spectrum de 48 K pode manipular, 
máximo, oito ou nove páginas grá- 
s diferentes, com apenas duas cores 




















(INK e PAPER). Esse micro também 
apresenta uma limitação que envolve o 
tamanho da tela. Se utilizarmos dois ter- 
ços dela, cada página gráfica ocupará 4 
K. Somando mais 2 K, exigidos pelo 
programa, chegamos logo ao limite má- 
ximo de memória. Levando em conta es- 
sas limitações, o programa que se segue 
trabalha com oito telas, mostrando uma 
estrada em perspectiva. 


10 BORDER 0: PAPER O: INK 7: 
cLs % 

20 CLEAR 27999 

30 GOSUB 170 

40 LET srce=64: LET dest=11l0 
50 FOR n-l TO 20: PLOT RND*( 
255),RND*(40)*130: NEXT n 
60 FOR n*0 TO 7 
70 FOR m=4 TO 21: 
отт 


PRINT AT m, 


** NEXT m 
во созов 260 
90 GOSUB 220: 
16 
100 NEXT n 
110 LET srce=110: LET dest=64 
120 FOR n=0 TO, 7 


130 GÓSUB 220: LET TO 553 
16 
140 PAUSE 4 x 


150 NEXT n 
160 бото 110 
170 DATA 1,0,16,17,0,0,33,0,0, 


LET dest-dest* 


237,176,201 

180 FOR 1-28000 ТО 28000%11 » 
190 READ byte: POKE j,byte 
200 NEXT 1 

210 RETURN 


220 POKE 28005,dent 

230 POKE 28008,srce 

240 RAND USR 28000 

250 RETURN 

260 PLOT 0,120: DRAW 255,0 
270 PLOT 118,120: DRAW -118,- 
80: PLOT 138,120: DRAW 117,-50 
280 FOR j-1 TO 3: READ x,y,a,b 
: PLOT x,y: DRAW a,b: NEXT j 
290 READ x,y,a,b,c,d 

300 PLOT x,y: DRAW a,b: DRAW c 
Li 

310 RETURN 

320 DATA 128,120,1,-1,140,105, 
3,-3,138,120,0,2,118,140,10,-5 
,10,5,130,118,1,-1,160,80,6,-6 
.143,118,0,7,118,138,10,-3,10, 








3 

330 DATA 133,114,1,-1,198,30,8 
.78,160,112,0,15,118,136,10,-1 
,10,1,140,105,4,-4,128,120,1,- 
1,184,105,0,30,118,132,10,3,10 
473.160,80,6,-6,130,118,1,-1 
340 DATA 220,90,0,50,118,134, 








10,1,10,-1,198,30,8,-8,133,114 
.1.-1,118,120,0,4,118,136,10,- 
1,10,1 

350 DATA 128,120,1,-1,140,105, 
4,-4,80,100,0,30,118,138,10,-3 
,10,3,130,118,1,-1,160,80,6,-6 
+5,55,0,100,118,139,10,-4,10,4 


O programa começa inicializando a 
tela em preto e branco e definindo o 
RAMTOP em 27999. A rotina das li- 
nhas 170, 180, 190, 200 e 210 toloca 


uma pequena rotina em linguagem de 
máquina acima da RAM acessivel. Es- 
sa rotina, muito rápida, será a respon- 
sável pela transferéncia do bloco de in- 
formações da tela para a memória, 
medida que as imagens vão sendo cons- 
truídas e, posteriormente, irá também 
recuperá-las, trazendo-as de volta à te- 
IR ROS 
bytes mais significativos das variáveis 
srce e dest, que contém, respectivamen- 
te, o endereço da área a ser transferida 
€ 0 do seu destino. 

A primeira parte da rotina dos gráfi- 
cos, que comeca na linha 50, simples- 
TSC EPA Sa USE 
rias da tela. Esses desenhos são fixos e, 





em todas as pági-- 


da estrada (linha 270), a própria estra- 
da e os postes (linha 280) e uma ave em 
vóo (linha 290) — sempre lendo as in- 
formações que estão nas linhas DATA 
ao final do programa (linha 320 em 
diante). 

Retornando da rotina de desenho, o 
programa é desviado para uma sub- 
rotina de POKE, na linha 220. Esta co- 
pia os 4 K de cada tela em um local 
apropriado da memória. O endereço 
dest é incrementado com o valor 16 no 
seu byte mais significativo (16*255 —4 
K), a fim de criar o espaco para a pró- 
xima página gráfica. O programa vol- 
tà, mais uma vez, para a rotina de dese- 
nho e todo o processo se repete oito ve- 
zes, sendo que, a cada vez, a figura é fei- 
ta uma posicào adiante. 

Em seguida, o programa chama as oi- 
to telas, sucessivamente, dando o efei- 





to de animação. Para isso, o endereço 
dest torna-se o novo srce, a partir do 
qual a rotina da linha 220 à 250 chama 
cada página gráfica. 








10 PCLEAR 4:PMODE 3:CLEAR 40,92 


20 SCREEN 1,0:FOR K*0 TO 4:PCLS 
30 CIRCLE(127,120),20,4,1,.17,. 
5S;LINE(110,116)-(127,120), PSET 
:LINE-(132,136), PSET:PAINT(122, 
135),2,4 

40 DRAW"BM137,136S8F6Dl10L9U15L4 
D19R17U14E2NE6L8" : PAINT (150,150 
РАР ЕС 

50 DRAW"BM110,116S16L14U10R21D3 


RUSL24D1 ":PAINT(90,120),3.4 
60 COLOR OR L=0 TO 5-K:LINE( 
148-L,146*L) -(156*L,146-L) , PSET 
:NEXT 


70 DRAW"BM14l,"*STR$(B6*K) *"C3S 
4F2G2H3E2D4" E wen һе: 
INT (88*1.5*K*K)) *"D2F2DL4UE2D4" 
B0 DRAW"BM"*STRS(INT(141*1.8*K) 
)*","*STR$ (127 *5*K) *"H3E3F2G2DU 
462" 

90 COLOR 2:FOR L=0 TO S:LINE(I1 
0-L*10-K*2,117)-(110-L*10-K*2,1 
23),PSET:NEXT 

100 FOR L=0 TO 7:LINE(54*L*10*K 
*2,75) -(54*L*10*K*2,69) , [EXT 


XT 

110 FOR L*0 TO 3:LINE(48,115-L* 
10-K*2)-(52,116-L*10-K*2) , PRESE 
T:NEXT 

120 1ТЕ К=0 ТНЕМ ОВАШ”ВМ110,124С 
3H2UE2F2DG2U4" 

130 COLOR 4:FOR L=0 TO 2:A=ATN( 
1)* (L*60-K*12) /45:LINE(127-18*S 
IN(A),120-18*COS (A) ) - (127*18*SI 
N(A) .120*18*COS (A) ) , PSET:NEXT 
140 A-ATN(1)*(B*K*12)/45:DRAW"B 
M"*STR$ (INT (127-18*SIN(A))) *"," 
+STR$ (INT (120+18*COS (A) ))+”C3E2 
UH2G2DF2U6C4" 

150 FOR L=2 TO 4:PCOPY L TO 4+K 
*3*L:NEXT L,K 

160 FOR L=1 TO 5:FOR K=2 TO 4:P 
be K*L*3*1 TO K:NEXT K,L:GOTO 
b 


O programa começa reservando qua- 
tro blocos (1,5 K cada) para as informa- 
ções da tela, pois, como selecionamos 
a modalidade PMODE 3, cada tela re- 
quisitará 6 K de memória. 

Até agora utilizamos 6 K. Como o 
BASIC e a tela de teste ocuparáo mais 





1,5 K, ficaremos com 25 K de memória 
RAM aproveitáveis. Usando páginas in- 
teiras que requerem 6 K cada uma, po- 
deríamos contar com mais de quatro te, 
las de páginas gráficas (25 K divididos 

6) — mas isto deixaria muito pou- 
co espaço para o programa. 

Se limitássemos o desenho a três 
quartos da tela, cada página iria ocupar 
apenas 4,5 K de memória. Utilizaria- 
mos, assim, cinco páginas, deixando li- 
vres 2 K para o ama. Não haveria, 
entretanto, FOX dam o sistema de 
operação de disco. 

Depois de estabelecer PMODE 3 — 
quatro cores com uma resolucào de 128 
por 192 pontos —, a primeira linha do 
programa limpa a parte menos impor- 
tante de armazenamento de strings aci- 
ma do endereco 9215. Para suds pró- 
prias rotinas, você deverá definir essa 
parte por tentativa e erro. 

A segunda linha continua com o pro- 
cesso de inicialização, definindo o mo- 
do de resolução da tela e a cor. Aqui se 
inicia também o laço de desenho, cujo 
primeiro comando é um PCLS. 











A rotina de desenho que se segue ocu- 
pa grande parte do programa. A linha 
30 constrói e pinta o corpo da bomba 
de movimento contínuo, que forma a 
base da figura. A linha 40 monta o fu- 
nil e o preenche com cor, enquanto a li 
nha 50 faz o mesmo com o cano. As li- 
nhas 60, 70 e 80 encarregam-se da que- 
da da água. As linhas 90, 100 e 110 d 
senham as listas que ajudam a dar a im- 
pressào de que a água está em movimen- 
to. Outros detalhes da bomba — como 
a rotação da pá — são executados pelas 
linhas 120, 130 e 140. 

A linha 150 copia os três quartos da 
tela na memória — mais precisamente 
na área definida pela linha 10 — e o pro- 
grama volta para a rotina de desenho, 
para que sejam montadas as outras pá- 
ginas gráficas. Cada uma delas é guar- 
dada na memória quando o programa 
alcança, novamente, a linha 150. 

Depois que todas as páginas estive- 
rem armazenadas, o programa entra na 
rotina de animacáo (linha 160). Esta 
chama todas as telas, em sequência, até 
о programa ser igterrompido. 


Quando usamos um comando gráfi- 
co do tipo LINE, por exemplo, o com- 
putador “rabisca”” o traço pedido sobre 
a tabela de padrões da VRAM. Portan- 
to, se fizermos uma cópia dessa tabela 
na RAM, podemos transferi-la poste- 
riormente para a VRAM e o desenho se- 























D 
pares TET 
coparões. maiores 
TTA ó газ 
e repetir d а 4с саба 


rá imediatamente refeito. Poderíamos 
também armazenar a tabela de cores, 
mas isso acrescentaria 6144 bytes aos 
6144 bytes da tabela de padróes, o que 
nos limitaria ao uso de, no máximo, 
uma página gráfica. Para que nossa te- 
la nào fique sem cor, carregaremos a ta- 
bela de cor com um número específico 
que definirá as cores de fundo e de fren- 
te. Nosso desenho (um beija-flor) terá, 
portanto, apenas duas cores. Em com- 
pensagáo, economizamos o suficiente 
para trés páginas gráfic: 

Para transferir os dados da VRAM 
para a RAM, recorreremos a uma roti- 
na da ROM chamada LDIRMV. Para 
fazer o contrário, usaremos uma outra 
rotina, a LDIRVM. Finalmente, para 
carregar a tabela de cores com um byte es- 
pecífico, utilizaremos a rotina FILVRM, 
que preenche qualquer área da VRAM 
com um determinado valor. O acesso a 
essas rotinas requer a introdução de al- 
guns valores nos registradores da máqui- 
na. Por isso, construiremos uma peque- 
na rotina em linguagem de máquina pa- 
ra chamar cada rotina da ROM. 


10 CLS 

20 CLEAR200,40960! 
30 DEFUSR-40960! 

40 DEFUSR1=40973! 

50 DEFUSR2-40986! 

60 FOR В-0 TO 37 

70 READ A 

80 POKE (40960!*R),A 





par na seqüéncia. Obteremos 
desse modo, uma animaciio de 





90 NEXT 

100 SCREEN2 

110 X1=112:Y1=67:N=16 
120 GOSUB 430 

130 A=USR(0) 

140 SCREEN2 

150 X1=115:Y1=83:N=19 
160 GOSUB 430 

170 POKE 40964!,0 

180 POKE 40965!,185 
190 A=USR (0) 

200 EEN 2 

210 X1=158:Y1=182 
220 GOSUB 430 

230 POKE 40964!,0 
240 POKE 40965!,209 

250 A=USR (0 

260 POKE 40990!,1%16%11 

270 A=USR2 (0) 

280 FOR I=1 TO 3:0N 1 GOSUB 310 
.350,390:МЕХТ 

290 FOR 1=3 TO 1 STEP 
OSUB 310,350,390:NEXT 
300 GOTO 280 

310 POKE 40974!,0 

320 POKE 40975!,161 
330 A=USR1 (0) 

340 RETURN 

350 POKE 40974!,0 

360 POKE 40975!,185 
370 A=USR1 (0) 

380 RETURN 

390 POKE 40974!,0 

400 POKE 40975!,209 
410 A-USRI(0) 

420 RETURN 

430 FOR I-1 TO N 

440 READ X2 








N=17 





-1:ON I G 


450 READ Y2 


460 LINE(X1,Y1)- (X2,Y2) 
470 LET Xl-X2:LET Yl-Y2 
480 NEXT I 
490 RETURN 


500 DATA 33,00,00,17,00,161,01, 

00,24,205,89,00,201 

510 DATA 33,00,161,17,00,00,01, 

00,24,205,92,00,201 

520 DATA 33,00,32,62,00,01,00,2 

4,205,86,00,201 

530 DATA 86,3,79,67,90,86,192,3 

,176,64,141,99,198,166,170,186 

540 DATA 115,186,118,138,86,118 
2,191,48,139,51,109,67,90,90, 

86 

550 DATA 96,64,54,48,83,86,115, 

83,160,80,240,102,185.115 

560 DATA 144,113,160,144,192,14 

7,179,169,144,185,115,148 


570 DATA 86,118,12,191,48,139,5 
1,109,67,90,83,86 

580 DATA 182,160,224,121,166,12 
8,105,83,90,128,160,191 

590 DATA 150,116,105,83,67,90,5 
1,109,48,139,10,190 

600 DATA 89,118,90,128,87,137,8 


3,176,70,134 


А linha 20 reserva uma área da me- 
mória para as rotinas em linguagem de 
máquina. A linha 30 define o início da 
rotina que irá chamar a LDIRMV e a 
linha 40, o início da rotina que acessa 
a LDIRVM. A linha 50 faz o mesmo pa- 
ra a rotina FILVRM. 

O laco entre as linhas 60 e 90 lé as li- 
nhas DATA 500, 510 e 520, que contém 
as rotinas — na ordem em que foram 
citadas —, colocando-as na memória do 
microcomputador. 

A rotina de desenho localiza-se entre 
as linhas 100 e 270. A cada página, o 
computador inicializa as variáveis X1, 
Y1 e N, que guardam as coordenadas 
iniciais do desenho e o número de pon- 
tos a serem lidos. O programa é então 
desviado para a sub-rotina entre as li- 
nhas 430 e 490, que lê as informaç 
contidas nas linhas 530 a 600 e traça as 
retas. Assim que a figura estiver com- 
pleta, a rotina que armazena a tela na 
RAM é chamada. 

O processo é o mesmo para as outras 
duas páginas, com uma diferença: dois 
comandos POKE irão alterar a sub-ro- 
tina de armazenamento. Esta continha, 
inicialmente, o endereço a partir do qual 
a primeira tela seria guardada na RAM 
É claro que não podemos usar esse mes- 
mo endereço para as duas outras pági- 
nas gráficas. O papel dos comandos PO- 
KE é, portanto, fazer a modificação ne- 
cessária para O início da segunda e da 
terceira páginas. 

Depois que todas as telas já tiverem 
sido armazenadas, a linha 260 determi- 
na o valor do byte que preencherá a ta- 


























bela de cores, colocando-o na rotina que 
acessa a FILVRM. O valor 1 é a cor de 
frente — preto — e o valor 11 é a cor 
de fundo — amarela. A linha 270 cha- 
ma essa rotina. 

Em seguida chega-se à rotina encar- 
regada de alternar as telas. Os dois la- 
ços (linhas 280 e 290) determinam uma 
seqüéncia de telas do tipo 1, 1, 2, 3, 3, 
2, 1, 1, fazendo com que um beija-flor 
em vóo permaneca mais tempo com as 
asas para cima e para baixo do que na 
posicáo intermediária. 

Conforme o valor da variável I, o 
programa é desviado para uma sub-ro- 
tina. Nesta, um par de comandos PO- 
KE modifica a rotina que busca os da- 
dos na RAM. Esses comandos definem 
os enderegos a partir dos quais a memó- 
ria será transferida para a tela. 

Se vocé quiser construir suas próprias 
animações, elimine a sub-rotina da linha 
430, assim como todas as linhas que a 
chamam. Além disso, apague também 
a linha DATA 530 e as que a seguem e 
coloque seus comandos gráficos a par- 
tir da linha que inicializava as variáveis, 
tendo o máximo cuidado para não pro- 
vocar sobreposições. 


e IA J 


Como vocé deve saber, os micros da 
linha Apple oferecem ao usuário duas 
páginas gráficas prontas para serem uti 
lizadas. Por meio dos comandos usuais 
do BASIC, náo podemos escrever em 
uma das páginas sem que ela aparega no 
vídeo. Se isto fosse possível, eliminaría- 
mos, em uma animagáo, aquele efeito 
desagradável provocado pelos coman- 
dos HGR e HGR2 para limpar a tela — 
enquanto mostrássemos uma tela, esta- 
ríamos simultaneamente limpando e es- 
crevendo na outra. Em seguida, basta- 
ria trocar as duas e repetir o processo 
até o fim da animação. Teríamos, assim, 
uma velocidade moderada, mas não ha- 
veria um limite de páginas gráficas. 

O próximo programa ilustra o desen- 
volvimento desse processo com a anima- 
ção de uma figura — o homem-rabisco 
—, comentada anteriormente. 








10 POKE ~- 16304,0:X = 200 

20 HGR HGR2 HCOLOR- 3 

30 POKE 230,32: GOSUB 240 

40 РОКЕ - 16300,0 

50 POKE 230,64: GOSUB 280 

60 POKE - 16299,0 

70 РОКЕ 230,32: HCOLOR= 0: GOS 
UB 240: HCOLOR= GOSUB 320 

80 POKE - 16300,0 

90 P1 32:р2 = 64:М1 = - 1630 
0:М2 = - 16299 

100 РОКЕ 230,Р2: HCOLOR- 0: GO 
SUB 280:X = X - 15: HCOLOR= 3: 






















A estrada sem fim no Spectrum. 


GOSUB 280 





110 IF X < 30 THEN STOP 

120 POKE M2,0 

130 POKE 230,P1:X = X * 15: HC 
OLOR= 0: GOSUB 320:X = X - 15: 
HCOLOR= 3: GOSUB 320 

140 РОКЕ М1,0 

150 РОКЕ 230,Р2: HCOLOR* 0: GO 
SUB 280: HCOLOR= 3: GOSUB 240 
160 POKE M2,0 

170 POKE 230,P1: HCOLOR= 0: GO 
SUB 320: HCOLOR= 3: GOSUB 280 
180 РОКЕ М1,0 

190 POKE 230,P2: HCOLOR= 0: GO 
SUB 240: HCOLOR= 3: GOSUB 320 
200 POKE M2,0 

210 ТА = Р1:Р] = P2: 

220 ТА = М1:М1 = M2: 

230 GOTO 100 

240 HPLOT X - 16,136 TO X - 9, 
133 TO X,94 TO X + 8,136 TO X,] 
36 

250 HPLOT X,94 TO X - 3,58 TO 
X - 9,50 TO X,48 TO X - 3,58 
260 HPLOT X - 10,97 TO X - 4,8 
2 TO X - 3,58 TO X * 9,98 

270 RETURN 

280 HPLOT X - 15,136 TO X - 11 
.132 TO X - 10,114 TO X - 1.97 
TO X * 7,136 TO X,136 

290 HPLOT X - 1,97 TO X - 7,61 
TO X - 13,50 TO X - 4,48 TO X 
- 7,61 

300 HPLOT X - 12,97 TO X - 6,8 
5 TO X - 7,61 TO X + 1,82 TO X 
+ 2,97 

310 RETURN 

320 HPLOT X - 15,136 TO X - 8, 
136 TO X - 5,114 TO X - 1,94 TO 
X- 5,114 TO X * 3,132 TO X - 
3,136 

330 HPLOT X - 1,94 TO X - 5,61 
TO X - 12,50 TO X - 3,48 TO X 
- 5,61 

340 HPLOT X - 7,98 TO X - 3,61 
TO X * 5,78 TO X - 8,90 

350 RETURN 


As instrucóes para as telas de nüme- 
ros 1, 2 e 3 se encontram, respectiva- 
mente, a partir das linhas 240, 280 e 320. 
Elas serão chamadas na ordem 1, 2, 3, 


TRS-Color: bomba moto-contínua. 


2,3, 1. Se quisermos mostrar um dese- 
nho na página 2, por exemplo, teremos 
que executar as etapas do processo des- 
crito em seguida, enquanto a página 1 
está na tela: 


- habilitar a escrita na página 2 
- apagar a página 2 

- escrever na página 2 

- mostrar a página 2 na tela 


Para habilitar a escrita em uma pá- 
gina, é necessário colocar um determi- 
nado velor no endereço 230 por meio de 
um comando POKE. Se esse valor for 
32, qualquer comando gráfico será exe- 
cutado na página 1; se for 64, será aces- 
sada a página 2. 

Para apagar uma página gráfica, te- 
mos simplesmente de descolorir a figu- 
ra, utilizando a mesma rotina que a 
montou, com HCOLOR = 0. 

Empregamos também o comando 
POKE para colocar uma página na te- 
la. Se esse comando for dado no ende- 
00, será mostrada a página 1; 

no endereço —16299, será 
mostrada a página 2. Em ambos os ca- 
sos, porém, deve haver um comando 
POKE no endereço — 16304; caso con- 
trário, será mostrada a página de texto, 

A fase de inicialização localiza-se en- 
tre as linhas 10 e 90, onde ocorrem us 
primeiras impressões. A variável X con- 
trola a posição horizontal da figura na 
tela e será incrementada com o valor 15 
a cada passo. 

Entre as linhas 100 e 230 situa-se o 
laço que irá controlar o movimento do 
homem-rabisco até o fim da animação. 
Na linha 100 e na linha 130, subtrai-se 
15 dessa variável para que seja apagada 
a imagem que foi feita antes do in- 
cremento. 

As linhas 210 e 220 promovem a tro- 
ca de valores entre as variáveis P1, P2, 
M1 e M2. Estas definem as páginas em 
que serão feitos os desenhos e as pági- 
nas que serão mostradas. A troca é ne- 
cessária para que não se perca a alter- 
nância de telas. 


























Willie já sofreu bastante: foi atingi- 
do por pedras, caiu em buracos, levou 
picadas de cobras venenosas e se afogou 
no mar. Precisamos oferecer-lhe uma 
oportunidade de se defender. Nos pró- 
ximos três artigos da série Avalanche, 
veremos como fazer Willie andar, cor- 
rer ou saltar, dando-lhe chance de evi- 
tar a morte prematura. 


O programa a seguir permite que 
Willie inicie a escalada da montanha e 
verifica se ele encontrou algum perigo 
ou prêmio pelo caminho. 

Caso você não esteja usando o mon- 








A ESCALADA 


tador Assembler de INPUT, lembre-se 
de que o número 254, na instrução in 
а,254, está entre parênteses. 


10 REM org 59153 

20 REM man id a,(57335) 
30 REM cp 0 

40 REM jp, nz,Jmp 
50 REM 1d a,(57334) 
60 REM cp 1 

70 REM jr z,mma 

80 REM 1d hl, (57332) 
90 REM dec hl 

REM 1d bc,16384 
REM ld a,45 

REM 1d de,514 
REM call 58970 
REM 1d bc,57000 
REM 1d a,40 

REM inc hl 








Até agora, nosso personagem 
permaneceu indefeso diante dos perigos 
que o cercam. Vamos dar-lhe a chance 
de escapar, fazendo com que escale 

a montanha, corra e salte. 


тре ма өтер 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


1d de,258 
call 58970 
1d de,22592 
add hl,de 
ld a, (hl) 
cp 45 
jp z,mby 
cp 43 
jr z,mby 
cp 15 
jr z,mby 
14 а,0 





| 


ШЕСІ ГІТ!!! 








ВЕМ іп а,254 
REM bit 2,a 
REM jr nz,mft 
REM 1d b,1 

REM bit 3,a 
REM jr nc,mlj 
REM 1d b,129 
REM mlj ld a,b 
REM 198 (57335) ,a 
REM jr mct 

REM mft bit 3,a 
REM jr nz,mct 





AA AM А 





























ы ANIMAÇÃO DO PERSONAGEM E VERIFICAÇÃO 
а О МОМЕМТО DE SALTAR 005 РАЁМІОЅ 
E INÍCIO DA CAMINHADA W IMOBILIDADE 
E ONDE WILLIE Ш PASSOS FATAIS 

ESTÁ PISANDO? W O ULTIMO SUSPIRO 








410 REM 1d a,1 

420 REM 1d(57334),a 
430 REM mct 1d hl,(57332) 
440 REM 1d de,191 
450 REM sbc hl,de 
460 REM jr nc,mor 
470 REM ld a,1 

480 REM 1d (57336),a 
490 REM mor ret 

500 REM mma 1d de,3 
510 REM 1d h1,1548 
520 REM call 949 
530 REM 1d Һ1, (57332) 
540 REM 1d de,22561 
550 REM add hl,de 
560 REM 1d a, (hl) 
570 REM cp 43 

580 REM jr z,mby 
590 REM cp 44 

600 REM jr z,mts 
610 REM cp 42 

620 REM 3r z,mby 
630 REM ld de,32 
640 REM add hl,de 
650 REM 1d a, (hl) 
660 REM cp 15 

670 REM jr z,mby 
680 REM cp 45 

690 REM jr z,mby 

700 REM cp 43 

710 REM j)r z,mby 
720 REM 1d hl,(57332) 
730 REM 1d a,40 

740 REM 1d bc,57016 
750 REM 1d de,514 
760 REM call 58970 
770 REM inc hl 

780 REM 1d (57332),hl 
790 REM mts ld a,0 
800 REM 1d (57334),a 
810 REM ret 

820 REM mby ld a,2 
830 REM 1d (57336),a 
840 REM ret 

850 REM jmp ret 


Vocé pode testar essas linhas mesmo 
que ainda nào tenha na memória as ou- 
tras duas rotinas de movimentação de 
Willie. Uma instrução ret, que será apa- 
gada mais tarde, foi colocada no fim da 
rotina que acabamos de listar. Em con- 
segiiência, se você chamar uma rotina 
inexistente, o programa apenas retorna 
e nenhum erro ocorre. 


QUAL É O MOVIMENTO? 


A variável na posicáo de memória 
57335 informa se Willie irá ou nào pu- 



















lar. O conteúdo desta posição é carre- 
gado no acumulador e comparado com 
0. Se nào for igual a 0, Willie irá pular. 
O processador salta, entáo, para a roti- 
na jmp, que ainda náo foi publicada. 
Como, em seu lugar, encontra apenas 
uma instrução ret, volta para o local on- 
de a rotina foi chamada. 

Se Willie não vai pular (o conteúdo 
de 57335 é 0), o processador continua 
a execução da rotina. O conteúdo da po- 
sição de memória 57334 é carregado no 
acumulador. Essa posição contém a cha- 
mada variável da caminhada. 

Existem duas figuras para Willie — 
numa delas, ele está com as pernas jun- 
tas e, na outra, com as pernas abertas. 
Enquanto nosso personagem não se lo- 
comove, a primeira figura é impressa 
continuamente no mesmo lugar. Mas, 
quando ele está andando, as duas figu- 
ras são impressas alternadamente. A va- 
riável da caminhada informa ao proce: 
sador se Willie deve andar uma posição 
— nesse caso, a figura adequada é a que 
tem as pernas abertas. 

A instrução cp 1 verifica qual figura 
será impressa. Se for a de valor 1 — que 
tem as pernas abertas —, a instrução jr 
z,mma manda o processador para a ro- 
tina que faz Willie andar e imprime es- 
sa figura. Se for a de valor 0 — que tem 
as pernas fechadas —, o processador 
continua. 


0 НОМЕМ INVISÍVEI 


Ao andar, Willie abre as pernas e se 
desloca uma posição à frente, onde apa- 
rece com as pernas juntas. Portanto, o 
algoritmo que produz esse efeito impri- 
me, em seqüéncia, as figuras 0, 1 e 0. 

Como a figura que tem as pernas 
abertas ocupa duas posicóes adjacentes 
ea que tem as pernas fechadas, só uma, 
obtém-se um movimento bem suave. 

Para imprimir a figura 0, é preciso 
apagar a figura anterior — do contrá- 
rio, teremos várias partes de Willie pela 
tela. A instrução Id hi, (57332) carrega 
a posição de Willie — armazenada nos 
endereços 57332 e 57333 — no par HL. 
Esse valor é decrementado para voltar 
uma posição. 

O par BC é então carregado com 



















































16384. Este é o endereço do topo da te- 
la, onde se encontra o padrão de céu. 
A é carregado com 45 e DE, com.514. 
A rotina de impressão de blocos em 
58970 é chamada em seguida. Como vo- 
cê deve se lembrar, o par HL, nessa ros 
tina, conté a posição ma tela, еў рат 
BC, o apontador de dados.'A, por sua 
vez, especifica a cor— 45 éciano sobre 
ciano — e o par DE fixa o tamanho do 
bloco. O número 514 fornece um bloco 
de dois por dois caracteres. D contém, 
o número de linhas e E, o número de co=. 
lunas — 2 x 256 + 2 = 514. 

Assim, quando é chamada, essa ro- 
tina imprime um bloco dois por dois de 
céu na posição imediatamente anterior 
àquela onde você irá imprimir Willie de 
novo. Em outras palavras, ela apaga o 
velho Willie que, com suas pernas aber- 
tas, ocupa quatro caracteres. 


Agora precisamos imprimir o novo 
Willie com as pernas juntas. Os dados 
para isso começam em 57000. Logo, o 
par BC é carregado com 57000. O acu- 
mulador A é carregado com 40, código 
de azul sobre fundo ciano, a cor de 
Willie. 

O par HL, anteriormente decremen- 
tado, volta a ser incrementado para 
apontar a posigáo do personagem. O par 
DE é carregado com 258 — dando um 
bloco de um por dois (1 x 256 + 2 = 
258), o espaço que Willie ocupa com as 
pernas juntas. А rotina de impressão de 
blocos é chamada para imprimir Willie. 


ONDE WILLIE ESTA PISANDO? 


Como nosso personagem se moveu 
uma posição à frente, convém verificar 
onde ele está pisando. Se for numa co- 
bra, num buraco ou na água, 0 proces- 
sador deve ser informado de sua morte. 

Em primeiro lugar, verifique a cor do 
caractere que está sob os pés de Willie. 
O arquivo de cores começa em 22528. 
O valor contido em HL corresponde à 
posição da tela ocupada pela cabeça de 
Willie. Mas, como você quer a cor do 
caractere que está sob seus pés, precisa- 
rá adicionar o valor 64. 

Por isso, 22592 é carregado no par de 
registros DE e somado ao par HL. O re- 
sultado da instrução add hl,de é sempre 
colocado em HL. O conteúdo da posi- 
ção da memória que HL aponta no mo- 
mento é colocado em A. O acumulador 
passa a conter a cor do caractere que es- 
tá sob os pés de Willie. 

Esse valor é comparado com 45 — 
ciano sobre ciano, a cor do céu que 





preenche os buracos. Se for 45, a ins- 
trugáo jr z,mdy manda o processador 
para uma rotina curta que faz Willie 
morrer. Se nào há um buraco debaixo 
de-Willie, o conteúdo do acumulador é 
comparado com 43 — magenta sobre 
€iano; a cor da cobra — e com 15 — 
branco sobre azul, a cor do mar. Se 

2 qualquer um desses valores estiver pre- 
sente, O processador salta para a rotina 
mdy é elimina Willie. Caso contrário, о 
processador continua a execução da ro- 
tina — Willie está salvo. 


HORA DE PULAR 


Nesta parte da rotina, a ação se en- 
cerra, efetivamente, com a impressão de 
Willie com as pernas juntas, uma posi- 
ção à frente. Se ele não morreu, o pas- 
so seguinte consiste em verificar quan- 
do ele irá se mover de novo. Para isso, 
empregamos-o. comando in. 

Antes, porémzA é carregado com 0 
—0 que significa que o teclado inteiro 
será analisado'e que qualquer conjunto 

“de teclas poderá ser utilizado para con- 
trolar os movimentos de Willie. Embo- 
гара página de instruções М е N te- 
nham'sido especificadas, outras combi- 
nações — tais como Je K ou U e 1 — 
são apropriadas para fazer nosso perso- 
nagem pular e andar; 


O comando in é usado para! > 


uma busca na porta 254. A instrucao bit 
2,a analisa o bit dois do número encon- 
trado para verificar se a tecla M — ou 
Jou U — foi pressionada. Todos os bits 
equivalentes às teclas têm normalmente 
o valor 1, mas assumem o valor O quan- 
do a tecla é pressionada. Assim, se M 
foi pressionada, o bit dois tem valor O 
eo processador ignora a instrução jr nz. 
Caso contrário, ele salta para a rotina 
mft. 

Se a tecla foi pressionada e Willie de- 
ve pular, B é carregado com 1. Em se- 
guida, o bit trés é testado do mesmo mo- 
do. Se N nào foi pressionada e o bit trés 
tem valor 1, a instrução jr nz faz o pro- 
cessador saltar a próxima instrução. 
Mas, se a tecla foi pressionada, a ins- 
trução jr nz não tem efeito e B é carre- 
gado com 129. 

O significado dos números 1 e 129, 
que utilizamos para carregar B, será ex- 
plicado quando apresentarmos as seções 
do programa que executam o salto ver- 
tical e o salto à frente. 

O processador transfere o conteúdo 
de B para A e o carrega em 57335. Es- 
te, como vocé deve se lembrar, corres- 
ponde à posigáo de memória que o pro- 
cessador irá examinar no início da roti- 
na para ver se Willie pulará ou náo. 


A instrução jr met faz o processador 
saltar a próxima rotina. 


WILLIE VAI ANDAR? 


Se não houve pressão sobre M, o pro- 
cessador vai para a rotina mft. Ela ve- 
rifica se apenas a tecla N foi pressiona- 
da — ou seja, se Willie, em vez de pu- 
lar, simplesmente irá andar. 

Para ver se a tecla N foi pressiona- 
da, o bit três é testado de novo. Note 
que o valor da porta 254 ainda está no 
acumulador — o processador pulou pa- 
ra este ponto da rotina depois que o bit 
dois foi testado. 

Se N não foi pressionada, jr nz salta 
a rotina seguinte. Caso contrário, Avé 
carregado com 1 e esse'valor é armaze-— 
nado no endereço 57334, onde se encon- 
tra a variável da caminhada (que exami- й 
namos no início da rotina para saber 
qual das figuras de Willie seria impres? 
sa na tela). Um valor 1 nessa posigáo іп? 
dica que Willie deve ser impresso com. 
as pernas abertas — em outras palavras, ^ 
ele está andando. 


Há apenas mais uma verificação a fa- 
zer: nosso personagem alcançou algum 
prêmio? 

A posição de Willie é armazenada 
nos endereços 57332 e 57333. O conteú- 
do desses endereços é carregado no par 
HL e o valor 191 — correspondente à 
posição de tela onde o prêmio foi im- 
presso — é colocado em DE. 

O conteúdo desse par de registros é 
subtraído do conteúdo de HL. Se até 
aqui Willie não tiver obtido uma recom- 
pensa, a instrução jr ne segue para a ins- 
trução ret e retorna. Caso contrário, o 
valor 1 é carregado no acumulador e ar- 
mazenado em 57336. Esta é a posição 
de memória que a rotina principal veri- 
fica para saber se o escore deve ser in- 
crementado e se é preciso começar no- 
va tela. Feito isso, o processador encon- 
tra ret e retorna. 


UM PASSO À FRENTE 


O par DE é carregado com o valor 
3 e HL, com 1548. Depois, a rotina 
BEEP, no endereco 949, é chamada exe- 
cutando o efeito sonoro da caminhada. 

Antes de seguir adiante, porém, Wil- 
lie deve ver o que há na sua frente. Sua 
posigáo é colocada no par HL. Adicio- 
nando 22561 a esse valor, obtemos a cor 
do caractere que se encontra 33 pontos 





adiante do conteúdo de 57332 e 57333. 
Como este aponta para a cabega de Wil- 
lie, 33 é um caractere abaixo e á direita, 
indicando a posigáo imediatamente á 
frente de seus pés. O valor dessa posi- 
gáo é carregado no acumulador pela ins- 
trução ld a,(hl). 

A cor do caractere à frente dos pés 
de Willie é comparada com a cor do mar 
— 15, branco sobre azul — da cobra — 
43, magenta sobre ciano — e da pedra 
— 42, vermelho sobre ciano. Se a cor 
do mar, da cobra ou da pedra estiverem 
presentes, a instrução jr z,mdy faz o 
processador saltar para a rotina que eli- 
mina Willie. Mas, se adiante dos pés de 
Willie estiver o caractere de encosta, o 
processador salta para a rotina que dei- 
xa o personagem parado — é evidente 
que ele não pode ir em frente a não ser 


pulando. 


Investigar o caractere que está adian- 
teide Willie não é tudo. Devemos veri- 
ficar também em qual caractere ele es- 
tará pisando, depois de se mover. Para 


/issoj carrega-se DE com 32, que é adi- 


cionado ao tonteúdo de HL, o que mo- 
vé o apontador 32 caracteres á frente — 
ou seja, para à linha de baixo. 

A cor nessa posição é carregada no 
acumulador pela instrução Id a,(hl) e o 
сон йо do acumulador é comparado 
com à cor do mar, a de um espaço va- 
zio e a de uma cobra. Se um desses va- 
lores estiver presente, a instrução jr 
z,mdy vai para a rotina da morte. 

Se nada disso aconteceu e Willie ain- 
da está vivo, HL é carregado com a po- 
sição original do personagem. A é car- 
regado com 40 — a cor de Willie —, BC, 
com 57016 — o endereço inicial dos pa- 
drões para a figura.com as pernas aber- 
tas — e o par DE, com-514 — Willie 
com as pernas abertas ocupando um 
bloco de doisypordois caracteres. Em se- 
guida, a rotinaíde impressão de bloco 
em 58970 é chámada e imprime ná tela 
Willie com as pernas abertas. 

O par HL incrementado € carrega 
do de volta em 57332 e 57333. Atualis 
zamos, assim, a posição de Willie que, 
na próxima vez, estará um caractere à 
direita. 


AINDA PARADO 


A rotina mts é diretamente chamada 
quando Willie encontra a encosta á sua 
frente e náo pode prosseguir a náo ser 
pulando. Mas o processador também 
aciona essa rotina quando ele foi im- 
presso com as pernas abertas. 

Um valor 0 é carregado no acumula- 
dor e no endereço 57334, informando ao 
processador que, na próxima vez, o per- 
sonagem deve ser impresso com as per- 








nas juntas — mesmo que seja no mes- 
mo lugar, se ele não tiver se movido, ou 
uma posição à frente, se foi impresso 
com as pernas abertas e sua posição foi 
incrementada. 

A seguir, o processador retorna. 


ULTIMO SUSPIRO 


Se Willie se afogou no mar, foi pica- 
do por uma cobra, caiu num buraco ou 
foi atingido por uma pedra, a rotina 
mdy é chamada. Para a divulgação de 
sua morte, coloca-se 2 no endereço 
57336. Em algum ponto do programa, 
esse endereço será checado e o funeral 
de Willie será providenciado. 

Depois disso, o processador retorna 
da rotina. O último ret da listagem, pre- 
cedido do rótulo jmp, será apagado pe- 
la próxima parte de Avalanche. Sua úni- 
ca função consiste em impedir que haja 
erro na falta desta. 


O programa a seguir faz Willie andar 
e verifica se ele ѕе defrontou com algum 
perigo — ou recompensa. 


10 ORG 19902 

20 MAN LDD 18249 

30 ANDB 431 

40 СМРВ 430 

50 ВМЕ MANI 

60 LDA 41 

70 STA 18252 

80 MANI LDA 18261 

90 LBNE JUM 

100 LDX 18249 

110 LEAX 544,X 

120 LDX,X 

130 СМРХ #35555 

140 LBEQ MDY 

150 СМРХ #SAAAA 

160 LBEQ MDY 

170 CMPX 4S5FFS 

-180 LBEQ MDY 

190 CLRB 

; CLR 18264 
2 LDA'“4SBF 

STA SFF02 
LDA /$FF00 
8TA/18262 
LDA 4SDF 
STA SFF02 
LDA $FF00 
STA 18263 
CMPA #SF7 
BNEE MANA 
LDB 41 
LDA 18262 
CMPA 4SF7 
BNE MAND 
LDB 4129 
MAND STB 18261 
LDA 18264 
BNE MANC 


390 LDX 18249 
400 PSHS X 

410 BRA MMI 
420 МАМА LDA 18262 
430 CMPA 4SF7 
440 BNE MAND 
450 LDA 41 

460 STA 18264 
470 BRA MAND 
480 MANC LDX 18249 
490 LDU $1536 
500 JSR CHARPR 
510 LEAX 254,X 
520 JSR CHARPR 
530 LDX 18249 
540 LEAX 1,X 
550 PSHS X 

560 LEAX 353,X 
570 LDA ,X 

580 CMPA #$D5 
590 BEQ MDYA 
600 СМРА %ЗЕҒ 
610 BEQ MDYA 
620 СМРА #350 
630 BEQ MTS 
640 LDA 18251 
650 BEQ MMO 
660 MMI LDX,S 
670 LDU 417774 
680 JSR CHARPR 
690 LDX ,S 
700 LEAX 256,X 
710 JSR CHARPR 
720 CLR 18251 
730 BRA MANE 
740 MMO LDX ,S 
750 LDU 417814 
760 JSR CHARPR 
770 LDX ,S 
780 LEAX 256,X 
790 LDU 417846 
800 JSR CHARPR 
810 LDA #1 

820 STA 18251 
830 MANE LDX ,8 
840 STX 18249 
850 PULS X 

860 RTS 

870 /'MDYA PULS-X 
880 4 MDY LDA 42 
890/ STA 18252 
900' RTS 

910 MTS PULS X 
920 LEAX -1,X 
930 PSHS X 
940 BRA MMI 
950 JUM RTS 
960 CHARPR EQU.19402 


Essa rotina chama outras que ainda 
não estão na memória. Para evitar er- 
ros, não tente executá-la antes de ter co- 
locado RTS nos lugares adequados. 


RECOMPENSAS 


A primeira parte da rotina procura 
saber se Willie alcançou suas recompen- 
sas. Para isso, a posição do personagem 
na tela é carregada no registrador D. 
Como existem 32 posições — 32 é 215 








—, precisamos investigar apenas os cin- 
co últimos bits da posição de tela para 
trabalhar com a coordenada X de Wil- 
lie. Se esta coordenada X tiver chegado 
a 30, a coordenada X do prêmio (cuja 
posição Y está fixa junto à encosta), 
Willie deve agarrá-lo. 

A operação AND é feita, então, en- 
tre o conteúdo de B e 31 — B é o regis- 
trador menos significativo do par de re- 
gistradores AB que compõe D. Isso isola 
os cinco bits menos significativos, que 
são comparados ao número 30. 

Se os cinco últimos bits contêm 30, 
o valor 1 é carregado no acumulador e 
armazenado na variável morte, em 
18252. Assim, o processador é informa- 
do de que deve trazer a próxima tela 
Caso contrário, a instrução BNE faz o 
processador saltar essas instruções. 


43 CÓDIGO DEMÁQUINA 43 


PULO OU PERIGO 


A é carregado com o conteüdo de 
18261, a variável do salto. Se nào for 0, 
Willie estará saltando e o processador 
vai para a rotina JUM. Isso é feito com 
um desvio longo porque o rótulo está 
muito distante. 

A tarefa seguinte é verificar se o per- 
sonagem está diante de algum perigo fa- 
tal — um buraco, uma cobra ou o mar. 
A posição de Willie vai, então, de 18249 
para o registrador X 

A instrução LEAX 544,X adiciona 
544 à posição de Willie. Como ele tem 
dois caracteres de altura, precisamos 
acrescentar 2 x 256 (512) para apontar 
seus pés. Adicionamos 32 ao resultado, 
obtendo 544, porque há uma linha va- 








zia de pontos entre os pés de Willie e o 
chão. O registrador X é carregado com 
o conteúdo dos dois bytes que estão sob 
os pés de Willie. Esse valor é compara- 
do com $5555, SAAAA e SSFFS. 

$5555 é o código de amarelo, que re- 
presenta o céu — o que indicaria haver 
um buraco sob os pés de Willie; SAAAA 
é azul, a cor do mar, e $5FFS, verme- 
Iho sobre amarelo, a cor da cobra. Se 
uma dessas cores for encontrada sob 
seus pés, Willie está morto e a instrução 
LBEQ faz o processador saltar para a 
rotina MDY, que o elimina 


A tarefa seguinte consiste em verifi- 
car se alguma tecla foi pressionada. As 
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teclas M e N controlam, respectivamen- 
te, a corrida e o salto de Willie. Portan- 
to, qualquer pressáo sobre elas precisa 
ser detectada. 

Primeiro limpa-se o registrador B, 
que será usado para carregar a variável 
que controla o salto de Willie, A posi- 
ção de memória 18264 é ajustada com 
0, já que irá armazenar a variável que 
controla a caminhada de Willie. 

Para saber se uma tecla foi pressio- 
nada, deve-se analisar a matriz do tecla- 
do. No nosso caso, estamos interes 
dos particularmente nas teclas M e N 
A letra M fica na quarta coluna da sex- 
ta linha e a letra N, na quarta coluna da 
sétima linha 

Para examinar a situação de uma te- 
cla, precisamos escrever o número da li- 
nha em $FF02; sua situação atual será 








dada em $FF00. Assim, para verificar 
a tecla N, armazena-se $BF em $FF02. 
$BF é 10111111 em binário, e é arma- 
zenado porque seleciona a sétima linha, 
O resultado em $FF00 é carregado no 
acumulador e armazenado em 18262. 

M é examinada da mesma maneira, 
mas, desta vez, $DF — 11011111 em bi- 
nário — é escrito em $FF02 e o resulta- 
do é armazenado em 18263. A instrugáo 
CMPA 53 $F7 compara o resultado com 
$F7 ou 11110111. Lembre-se de que vo- 
cé está tentando ver se uma tecla da 
quarta linha foi pressionada — esta li- 
nha estará em zero. Se $F7 nào está pre- 
sente — e Willie nào está saltando —, 
a instrucào BNE desvia o processador 
para MANA. Mas, se $F7 estiver pre- 
sente, B é carregado com 1 para indicar 
um salto vertical. 

O resultado do exame da linha da te- 
cla N, armazenado em 18262, é entáo 
carregado no acumulador e comparado 
com $F7. Observe que a tecla N está na 
mesma coluna que a tecla M, embora 
em linha diferente o valor náo for 
encontrado, BNE salta a instrução se- 
guinte. Caso contrário, B é carregado 
com 129 para indicar que Willie dará um 
salto á frente. Quer seja 1, quer seja 129, 
o valor vai para 18261. 


WILLIE ESTÁ ANDAND! 


O conteúdo da posigáo de memória 
18264 é carregado no acumulador. Es- 
ta é a posigáo que armazena a variável 
que indica se Willie está andando ou 
náo. Ela foi limpa, ou seja, ajustada 
com 0, no início do programa. Mas, nes- 
te ponto, náo está necessariamente va- 
zia porque a rotina que verifica se Wil- 
lie está andando (que inicia no rótulo 
MANA) salta de volta para MAND. 

Se o conteúdo da posigáo de memó- 
ria 18264 nào for 0 e Willie estiver an- 
dando, a instrugáo BNE faz o proces- 
sador saltar para MANC, onde o pro- 
grama começa a fazer Willie se mover. 
Caso contrário, o registrador X é car- 
regado com o conteúdo de 18249 (ende- 
reço que armazena a posição de Willie 
na tela) e guardado na pilha. A instru- 
ção BRA MNI faz o processador saltar 
para MNI, que imprime o personagem 
na tela na posição definida pelo último 
valor armazenado na pilha. 

Se M não foi pressionada e Willie não 
está pulando, o processador salta para 
MANA, para ver se ele está andando. 
O resultado do exame da tecla N, arma- 
zenado em 18262, é carregado de volta 
no acumulador e comparado com $F7. 
Se o valor não está presente, a instru- 
ção BNE manda o processador de volta 











para MAND. Como a posição de me- 
mória 18264 ainda está vazia, Willie é 
impresso no mesmo lugar. Isso signifi- 
ca que ele está efetivamente parado. 
Mas, se N foi pressionada e Willie de- 
ve andar, І ё carregado no acumulador 
e armazenado em 18264. Quando o pro- 
cessador saltar de volta para MAND, o 
personagem começará a andar. 


APAGANDO A FIGURA ANTERIOR 


Quando Willie comeca a andar, é 
preciso apagá-lo de sua velha posição na 
tela. Do contrário, partes da figura se- 
rão deixadas pelo caminho 

X é carregado com a posição do per- 
sonagem em 18249, O apontador de da- 
dos, U, é carregado com 1536, que cor- 
responde ao canto superior esquerdo da 
tela. Assim, quando o processador sal- 
tar para a sub-rotina CHARPR, impri- 
mirá dois caracteres de céu sobre Wil- 
lie, apagando a metade superior da 
figura. 

Para apagar a metade inferior de 
Willie, adiciona-se 254 a X e a rotina 
CHARPR é chamada outra vez. Soma- 
se | à posição da figura, que é carrega- 
da no registrador X — o que faz Willie 
se mover um caractere à frente. O resul- 
tado é armazenado na pilha. 

Depois que Willie anda, precisamos 
verificar onde ele está pisando. A ins- 
trução LEAX 353,X incrementa o apon- 
tador que pa a indicar um byte ime- 
diatamente à frente das pernas do per- 
sonagem, e LDA ,X carrega esse byte no 
acumulador. Ele é então comparado 
com $DS, a cor gráfica para a língua da 
cobra, e com $FF, a cor da pedra. Se 
algum desses valores estiver presente, 
Willie está condenado. A instrução BEQ 
manda então o processador para a roti- 
na MDYA, que o elimina. 

Esse byte também é comparado com 
$50, a cor gráfica correspondente à en- 
costa da montanha. Se seu valor estiver 
presente, o processador salta para MTS, 
que volta a imprimir Willie no mesmo 
lugar, evitando que ele ande. 


0 QUE IMPRIMIR 


A posigáo de memória 18251 é usa- 
da como uma baliza para informar ao 
processador qual das duas figuras será 
impressa na próxima vez — a que tem 
as pernas abertas ou a que tem as per- 
nas juntas. Quando elas sáo impressas 
alternadamente, dáo a impressáo de que 
Willie está andando. 

A baliza em 18251 é carregada no 
acumulador. Se está ajustada com 0, a 
instrucáo BEQ faz o processador pas- 























sar para a rotina que comeca com o ró- 
tulo MNO. Esta imprime a figura com 
as pernas abertas. Mas, se o conteúdo 
de 18251 nào for 0 e a baliza estiver ajus- 
tada com 1, o salto nào ocorre e o pro- 
cessador continua na rotina MNI, que 
imprime uma figura com as pernas jun- 
tas, Repare que, se Willie nào estiver an- 
dando, o processador também pula pa- 
ra MNI e o imprime com as pernas 
juntas. 

X é carregado com o último valor ar- 
mazenado na pilha da máquina. Reven- 
do a listagem, vocë constatará que o úl- 
timo dado colocado na pilha de máqui- 
na foi a nova posiçào de Willie, um ca- 
ractere adiante de sua última posição. 
O apontador da pilha do usuário, U, 
que funciona como apontador de dados 
na rotina CHARPR, é carregado com 
17774. Este é o endereço inicial dos da- 
dos da figura com as pernas juntas. O 
processador vai para a rotina CHARPR 
e imprime a metade superior de Willie. 
O registrador X é carregado de novo 
e incrementado com 256, o que faz o 
apontador se mover um caractere para 
baixo — a posição da metade inferior 
de Willie. Observe que não foi preciso 
carregar U de novo. Ele é o apontador 
da pilha do usuário, e se ajusta automa- 
ticamente quando os dados são impres- 
sos na tela. 

A posição de memória 18251 é ajus- 
tada com 0, para que a outra figura de 
Willie — a de pernas juntas — seja im- 
pressa na próxima vez. Em seguida, o 
processador vai para MANE. 

Logo abaixo encontra-se a rotina 
MMO, que imprime a figura seguinte de 
Willie. Ela trabalha exatamente do mes- 
mo modo. Desta vez, porém, U é ajus- 
tado com 17814, já que corresponde ao 
início dos dados para a figura com as 
pernas abertas. No final da rotina, 1 é 
carregado em A e armazenado em 18251, 
para que Willie seja impresso com as 
pernas juntas na próxima vez que a ro- 
tina de movimentação for chamada. 
Qualquer que seja a figura impressa, 
o processador aciona a rotina MANE. 
Ela carrega a nova posição de nosso per- 
sonagem em X e armazena-a em 18249. 
O último valor da pilha é colocado em 
X, para evitar que a pilha de máquina, 
aumente descontroladamente, O proces- 
sador então retorna. 


MORTE OU IMOBILIDAI 


Se Willie tiver sucumbido a algum 
dos perigos que o ameaçavam ë estiver 
morto, o processador é mandado nt 
MDYA ou MDY — o rótulo depender: 

do local onde ele morreu. Se encontrou 
um perigo no início do programa, an- 





tes que a nova posição tivesse sido co- 
locada na pilha, o processador irá para 
MDY. Mas, se a nova posicáo de Willie 
já foi colocada na pilha antes do passo 
fatal, ele irá para MDYA, e a nova po- 
sigáo será recuperada da pilha. 

A écarregado com 2 — valor que in- 
dica a morte de Willie. Em seguida, es- 
se valor é armazenado em 18252, posi- 
ção da variável da morte. 

Feito isso, o processador retorna. 

Se Willie tiver esbarrado na encosta, 
o processador é mandado para MTS. 
Aqui, a nova posição de Willie é nova- 
mente recuperada da pilha, mas seu va- 
lor é utilizado e, depois de decrementa- 
do em 1, volta à pilha. 

O processador salta mais uma vez pa- 
ra MNI e imprime Willie com as pernas 
juntas, na mesma posição de antes, o 
que o deixa efetivamente parado. 


+ ROEDORES 


O programa a seguir permite que 
Willie inicie sua corrida para o topo da 
montanha e verifica se ele encontrou al, 
gum perigo ou recompensa. Caso você 
esteja usando o Assembler de INPUT, 
precisará fazer'uma alteração: na linha 
5010, o comando DIM T$(100) muda. 
para DIM T$(200), uma vez que a roti- 
na aqui apresentada é muito extensa. 


10 org 54603 


20 1d a, (75202) 
30 cp 0 

40 jp nz,pl 

50 1d a,(-5203) 
60 cpl 

70 јр z,va 

0 ld h1, (62407) 
90 ld de, (-5205) 
100 add hl,de 
110 push hl 
120 dec hl 

130 14 а,255 
140 push hl 

150 call 77 
160 pop hl 

170 ld de,32 
180 add hl,de 
190 14 а,255 
200 са11 77 
210 рор Һ1 

220, 14 а.0 

230 push hl 
240 call 77 
250 pop hl 

260 1d de,32 
270 ' add hl,de 
280 1d a,l 

290 push hl 
300 call 77 
310 pop hl 

320 ld de,32 
330 add hl,de 
340 call 74 


980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 





14 а,4 
1 


са11 321 

bit 2,a 

jr nz,mf 

ld b,1 

bit 3,a 

jr nz,ml 

14 Ь,129 

ml ld a,b 

ld (-5202),a 
эг 
mf 
jr nz,mc 

1d a,1 

ld (-5203),a 

mc ld hl, (-5205) 
14 4е,222 

Bbc hl,de 

jr nz,mo 

14 а,1 
14 (-5201),а 

mo ret 

ма 18 Һ1,(62407) 
ld de, (-5205) 
add hl,de 

1d de,33 

add hl,de 

push hl 

call 74 

pop hl 

cp 36 

jr z,mre 

cp 
jr z,mt 

cp 13 

jr z,mre N 
cp 
jr z,mre 

1d de,32 

add hl,de 

call 74 

cp 72 

jr z,mre 

cp 74 

эг z,mre 

cp 254 

jr z,mre 

cp 37 

jr z,mre 
1d hl,(62407) 

1d de, (-5205) 

add hl,de 

14 а,4 i 
push hl 

call 77 

pop hl 

inc hl 

ld a,6 

push hl 

call 77 

pop hl 

ld de,32 

add hl,de 

14 а,7 

push hl 


nc 
bit 3,a 


1080 call 77 

1090. pop hl 

1100 dec hl 

1110 14 а,5 

1120 са11 77 

1130 1d hl, (-5205) 
1140 inc hl 

1150 1d (-5205),hl 
1160 mt ld a,0 
1170 1d (-5203).a 
1180 ret 

1190 mre ld a,2 
1200 1d (-5201),a 
1210 ret 

1220 pl ret 

1230 end 


Vocé pode executar essa rotina mes- 
mo sem as duas restantes, que comple- 
tam o programa de movimentação de 
Willie. Embora esta parte possa chamar 
as demais, náo haverá erro. Uma instru- 
ção ret, que apagaremos mais tarde, foi 
colocada no fim da rotina — assim, se 
uma seção inexistente for acessada, o 
programa simplesmente retornará. 


O QUE WILLIE VAI FAZER? 


A variável armazenada-em — 5202 in- 
dica se Willie vai ou nào pular. O con- 
teúdo dessa posição é carregado no acu- 
mulador e comparado com 0. Se nào for 
0, o personagem tem que pular e o pro- 
cessador salta para a rotina pl. Esta ain- 
da nào foi publicada e, no seu lugar, o 
processador encontra apenas uma ins- 
trução ret, voltando para a rotina prin- 
cipal do jogo. 

Se Willie náo deve pular, ou seja, se 
o conteüdo de —5202 é 0, o processador 
continua a execução da rotina. O con- 
teúdo da posição de memória —5203, 
que guarda a variável da caminhada, é 
carregado no acumulador. 

Há duas figuras para Willie — uma 
com as pernas juntas e a outra com as 
pernas abertas. Quando ele está parado, 
a primeira figura é impressa continua- 
mente no mesmo lugar. Mas, quando es- 
tá andando, as duas figuras são impres- 
sas alternadamente. A variável da cami- 
nhada indica ao processador se Willie 
deve andar uma posição — nesse caso, 
usa-se a figura de pernas abertas. 

A instrução cp 1 verifica se o perso- 
nagem deve andar. Se o valor for 1, jp 
z,wa manda o processador para a roti- 
na que faz Willie andar uma posição. 
Do contrário, o processador continua a 
executar a mesma rotina. 


Quando está andando, Willie abre as 
pernas e dá um passo à frente, apare- 


cendo com as pernas juntas. Temos es- 
ta seqüéncia (cada item significa uma 
chamada na rotina de movimentação): 
- Willie é impresso com as pernas jun- 
tas porque está imóvel; a tecla N foi 
pressionada e a variável, ajustada, 

- Willie é impresso com as pernas aber- 
tas pela rotina que o faz andar; sua po- 
sição é incrementada e a variável da ca- 
minhada é ajustada com zero no fim da 
rotina. 

- Willie é impresso com as pernas jun- 
tas, uma posição à frente, e as teclas são 
testadas. 

Com as pernas abertas, o persona- 
gem ocupa duas posições adjacentes; 
com as pernas juntas, uma. Garantimos 
assim um efeito de movimentação suave. 

Como você pode concluir da segiiên- 
cia acima, toda vez que Willie for im- 
presso com as pernas fechadas, a posi- 
ção anterior deve ser apagada. Caso 
contrário, partes da figura serão deixa- 
das pelo caminho. 

O par HL é carregado com o endere- 
ço inicial da Tabela de Nomes (TN) da 
VRAM, que se encontra nas posições 
62407 e 62408. A posição de Willie na 
tela, que está em —5205 e — 5204, é co- 
locada em DE. Os dois valores são so- 
mados em HL, que passa a conter o en- 
dereço de Willie na TN da VRAM. Es- 
se endereço é guardado na pilha. 

O endereço em HL é decrementado 
— o que corresponde a voltar uma po- 
sição na tela. Esse valor também é guar- 
dado na pilha. O acumulador é carre- 
gado com 255, o código do padrão va- 
zio usado como céu, e a rotina 77 da 
ROM é chamada. Como você deve se 
lembrar, ela escreve o valor do acumu- 
lador no endereço da VRAM apontado 
por HL. 

O último valor de HL é recuperado 
da pilha e adicionado a 32, por DE. Is- 
so faz HL apontar para a posição logo 
abaixo da anterior. O acumulador é no- 
vamente carregado com 255, o padrão 
de céu, e a rotina 77 é chamada. 

Todo esse procedimento teve como 
finalidade apagar a metade esquerda do 
nosso personagem que, com as pernas 
abertas, ocupa quatro posições. A me- 
tade direita será apagada quando a fi- 
gura for impressa com as pernas juntas, 
sobreposta à anterior. Repare que isso 
poderia ser desnecessário se Willie já es- 
tivesse com as pernas juntas — mas é 
uma precaução sempre tomada. 


IMOBILIDADE 


Precisamos agora imprimir a nova fi- 
gura com as pernas juntas. A posição 
que foi armazenada na pilha é recupe- 
rada em HL. O acumulador é carrega- 


do com 0, código do primeiro padrãc 
para essa figura. Guarda-se o valor de 
HL na pilha e a rotina 77 é chamada. 

Ao endereço, recuperado da pilha e 
colocado em HL, adiciona-se.32 — o 
que significa apontar uma posicáo abai- 
xo. O acumulador é carregado com 1, ¿> 
código do segundo padrão da figura. Q - 
valorde HL é guardado na pilha e a rô- 
tina 77 échamada, Feito isso, a figura 
de Willie com as pernasjuntas já está 
impressa. 


E WILLIE ESTÁ PISANDO? 


Como Willie se moveu uma posigáo 
á frente, convém verificar onde ele está 
pisando. Note que, mesmo que o per- 
sonagem estivesse parado, esta parte da 
rotina seria executada, Se ele estiver pi- 
sando numa cobra, num buraco ou na 
água, o processador deve ser informa- 
do de sua morte. 

A primeira coisa a fazer é verificar 
qual o código do padrão que está sob 
os pés de Willie. O endereço que o pa- 
drão dos pés ocupa na TN da VRAM 
é recuperado da pilha e colocado no par 
HL. O valor 32 é somado a esse endere- 
ço por meio do par DE, fazendo com 
que ele passe a apontar para a posição 
imediatamente abaixo dos pés de Wil- 
lie. A rotina 74 da ROM é chamada e 
faz a leitura da VRAM, devolvendo a 
Ao valor da posição apontada por HL. 

Com isso, o acumulador passa a con- 
ter o código do padrão no qual Willie 
está pisando. Esse valor é comparado 
com 72 e 74, os padrões de mar; com 
37, o padrão da cabeça da cobra, e com 
254, o padrão do buraco. Se qualquer 
um desses valores estiver presente, a ins- 
trução jp 2,тге manda o processador 
para a rotina mre, que elimina nosso 
personagem. Caso contrário, o proces- 
sador continua executando a rotina — 
Willie está salvo. 


ORA DE SALTAR 


A impressáo de Willie com as pernas 
juntas corresponde, efetivamente, ao 
fim da agáo nesta parte da rotina. Des- 
de que o personagem nào tenha morri- 
do, deveremos verificar se ele irá se mo- 
ver na próxima vez. Para isso, exami- 
namos a matriz do teclado. 

O teclado do MSX é controlado pela 
interface de periféricos PPI (8255). Ca- 
da tecla faz parte de uma matriz e ocu- 
pa uma linha e coluna determinadas. 
Para verificar se uma tecla está sendo 
pressionada, mandamos um sinal para 














a linha que ela ocupa e checamos se o 
bit correspondente à sua coluna tem va- 
lor 0. Essas operações envolvem escrita 
e leitura na PPI e podem ser implemen- 
tadas com instruções in e out nos ende- 
reços adequados. No nosso caso, a ro- 
tina 321 da ROM realiza a tarefa. Para 
isso, basta colocar no acumulador a li- 
nha da matriz do teclado que queremos 
pesquisar. A rotina 321 devolve nos bits 
do acumulador a situação de todas as te- 
clas dessa linha; se o bit corresponden- 
te à tecla for 0, ela está sendo pres- 
sionada. 

Como as teclas M e N ocupam a 
quarta linha da matriz do teclado, o acu- 
mulador é carregado com 4. Em segui- 
da, a rotina 321 é chamada. A instru- 
ção bit 2,a analisa o bit dois do número 
encontrado para verificar se a tecla M 
está sendo pressionada. Todos os bits 
correspondentes às teclas têm, normal- 
mente, valor 1. Quando a tecla é pres- 
sionada, porém, eles assumem o valor 
0. Se a tecla M foi pressionada, o bit 
dois tem valor 0. 

Nesse caso, o processador ignora a 
instrução jr nz. Mas, se M não tiver si- 
do pressionada, ele salta para a rotina 
mf. Como a tecla M foi pressionada, 
Willie deve pular; o registro B é carre- 
gado com 1. 

Depois o bit três é testado da mesma 
maneira. Se N não foi pressionada, o bit 
três tem valor 1 e a instrução jr nz faz 
o processador saltar a próxima instru- 
ção. Mas, se a tecla N foi pressionada, 
jr nz não tem efeito e B é carregado com 
129. 

Seja como for, o processador trans- 
fere o conteúdo de B para A e o coloca 
em -5202. Esta, como vocé se lembra, 
é a posigáo de memória que o processa- 
dor examina no início da rotina, para 
ver se Willie deve ou náo pular. 

O significado dos números 1 e 129 se- 
rá explicado nas duas próximas segóes 
de Avalanche, que executam o salto ver- 
tical e o salto á frente. 

A instrução jr me faz o processador 
pular a próxima parte. 


WILLIE DEVE ANDAR? 


Se a tecla M náo foi pressionada, o 
processador vai para a rotina mf, que 
checa se a tecla N foi pressionada — ou 
seja, se Willie náo irá pular, mas, sim- 
plesmente, andar. 

O bit trés é testado para ver se a te- 
cla N foi pressionada. Note que a leitu- 
ra da matriz do teclado ainda se encon- 
tra no acumulador — o processador pu- 
lou para esta parte da rotina depois que 
o bit dois foi testado. 

Se a tecla N não tiver sido pressiona- 


da, a instrução jr nz salta a próxima par- 
te. Caso contrário, A é carregado com 1 
e esse valor vai para o endereço —5203, 
onde se encontra a variável da caminha- 
da, examinada no início da rotina. Nes- 
sa posição o valor 1 indica que deve ser 
impressa a figura de Willie que tem as 
pernas abertas — portanto, ele está 
andando. 


Falta verificar apenas um elemento; 
Willie pegou o seu prêmio? 

A posição do personagem é armaze- 
nada nos endereços -5205 e 5204. O 
conteúdo desses endereços é dado pelo 
par HL. O valor 222, que corresponde 
à posição de tela onde o prêmio foi im- 
presso, é colocado no par DE. 

O conteúdo de DE é subtraído do 
conteúdo de HL. Se o resultado for di- 
ferente de 0, Willie não alcançou o prê- 
mio. A instrução jr nz,mo salta então 
as próximas instruções. Mas, se o resul- 
tado for 0, o personagem já obteve pré- 
mio e o valor 1 é carregado em -5201 
através do acumulador. Esta é a posi- 
ção que a rotina principal examina, in- 
formando se o escore deve ser aumen- 
tado e outro nível iniciado. Feito isso, 
o processador encontra a instrução ret 
e retorna. 


ОМ РА$$0 А ЕВЕМТЕ 


Antes de prosseguir, Willie deve ve- 
rificar o que existe à sua frente. Sua po- 
sição é colocada no par DE; o endereço 
inicial da TN da VRAM, em HL. Os 
dois valores são somados em HL, que 
passa a conter o endereço na TN que 
corresponde à posição da cabeça de Wil- 
lie na tela. O valor 33 é somado em HL, 
movendo o apontador uma linha para 
baixo e uma posição para a direita — 
em outras palavras, para a posição 
adiante dos pés de Willie. Esse valor é 
guardado na pilha e, em seguida, a ro- 
tina 74 da ROM é chamada para fazer 
a leitura da VRAM. 

O código do padrão que está na fren- 
te dos pés de Willie se encontra no acu- 
mulador. Ele é comparado com 36, pa- 
drão da língua da cobra; com 13 e 17, 
padrões da pedra, e com 52, padrão da 
encosta. Se os padrões da pedra ou da 
cobra estão presentes, a instrução jr 
z,mre faz o pr: lor saltar para a ro- 
tina que elimina Willie. Mas, se na po- 
sigáo estiver o padráo da encosta, o pro- 
cessador salta para a rotina que deixa 
Willie parado. Obviamente, ele náo po- 
de ir em frente a náo ser pulando. 





Nào basta, porém, identificar o pa- 
drào que está na frente de Willie. Pre- 
cisamos saber, também, em que padráo 
ele pisará depois que se mover. Para is- 
so, DE écarregado com 32 e somado ao 
conteúdo de HL, que aponta para uma 
posigáo abaixo da anterior. 

A rotina 74 é novamente chamada e 
o conteúdo do acumulador comparado 
com os padróes do mar, do buraco e da 
língua da cobra. Se qualquer um desses 
valores estiver presente, a instrugáo jr 
z,mre vai para a rotina da morte. Se ni 
da disso aconteceu e o personagem aii 
da está vivo, o par HL é carregado com 
o endereço inicial da TN, e DE, com a 
posição de Willie na tela. Esse valor é 
somado em HL. 

A rotina 77 é chamada quatro vezes 
para imprimir os quatro padrões da fi- 
gura de Willie com as pernas abertas, 
cujos códigos são 4, 5, 6e 7. 

A posição do personagem é carrega- 
da de-5205 e-5204 para o par HL, in- 
crementada e devolvida. Com isso, at 
lizamos a posição de Willie. Na próxi- 
ma vez, ele começará deslocado um ca- 
ractere para a direita. 


AINDA PARADO 


A rotina mt é chamada diretamente 
quando Willie se depara com a encos- 
ta, não podendo prosseguir a não ser 
com um pulo. O processador, porém, 
chega a essa rotina quando o persona- 
gem foi impresso com as pernas abertas. 

Um valor 0 é carregado no endereço 
—5203, por intermédio do acumulador, 
indicando ao processador que, na pró- 
xima vez, a figura de Willie deve ser im- 
pressa com as pernas juntas, no mesmo 
lugar ou uma posição à frente, depen- 
dendo do que aconteceu. 

Em seguida, o processador retorna. 


O ÚLTIMO SUSPIRO 


Se Willie se afogou no mar, foi pica- 
do por uma cobra, caiu num buraco ou 
foi atingido por uma pedra, a rotina mre 
é chamada, informando ao resto do pro- 
grama que Willie morreu. 

Para que se divulgue essa informa- 
ção, o valor 2 é colocado no endereço 
-5201, que será examinado em algum 
ponto do jogo. As providências para o 
funeral de Willie serão, então, tomadas. 

Feito isso, o processador retorna. 

O último ret da listagem, precedido 
do rótulo pl, será apagado pela próxi- 
ma rotina de Avalanche. Sua única fun- 
ção é evitar que, na falta das rotinas, 
ocorra algum erro. 





















































































ELETRÓNICA (3) 


Com este artigo, encerramos nossa 
série sobre planilhas eletrónicas. 
Depois de acrescentar ao programa as 
linhas aqui apresentadas, vocé poderá 
explorar todo o seu potencial. 


Para ter uma planilha completa e 
operacional, carregue na memória do 


seu micro as partes já dadas do progra- 
ma e acrescente linhas que faltam. 
Nos artigos anteriores, mostramos, por 
meio de exemplos, como montar uma 
planilha. Agora, que vocé já tem todo 
O programa, veremos como utilizá-lo. 

As instruções que se seguem são vá- 
lidas para todas as máquinas, As dife- 
renças existentes entre o Spectrum e os 
demais microcomputadores serão sem- 
pre especificadas. 


SO DE CONSTANTES 
COMPLETANDO O PROGRAMA 


MONTAGEM DAS EQUAÇÕES 


O que faz da planilha eletrônica uma 
ferramenta tão versátil é sua capacida- 
de de trabalhar com equações. Não se 
assuste com a palavra equação: nossas 
“equações” não passam de especifica- 
ções bastante simples das operações arit- 
méticas de adicionar valores das colu- 
nas, obter o total de uma determinada 
linha, calcular porcentagem etc. Os ope- 








USE A PLANILHA 
COM MAIS EFICIÉNCIA 


Agora que vocé dispóe de um pro- 
grama para a elaboracáo de uma plani- 
lha de cálculo, convém conhecer al- 
guns “truques” que lhe permitirão uti- 
lizá-la de maneira bem mais rápida e efi- 
ciente: 


* Preenchimento da planilha: depois de 
definir o título geral e os subtítulos das 
seções, dedique-se ao “esqueleto” da 
planilha, ou seja, à identificação das li- 
nhas e colunas. Em seguida, coloque 
os dados propriamente ditos e, final- 
mente, as fórmulas. Procedendo assim, 
você diminuirá as chances de cometer 
erros de entrada e evitará que se exe- 
cutem cálculos antes que todos os da- 
dos e rótulos estejam presentes. 


* Cuidado com os laços sem fim: esse 
tipo de problema pode ocorrer quan- 
do se colocam duas fórmulas em célu- 
las diferentes, uma utilizando o resul- 
tado do cálculo da outra., Em: conse- 
qüéncia, o programa ''emperra'', pois 
a detecção de uma situação como es- 
ta não foi prevista. Não deixe de veri- 
ficar todas as fórmulas antes de exe- 
cutar o programa. 














radores usados sáo: mais (+), menos 
(—), vezes (*), dividido (/), por cento 
(%), total de linhas (4) e total de colu- 
nas ($). 

Para escrever uma equação, indica- 
se o nome da primeira célula, depois o 
nome da segunda célula e, por último, 
o operador. Vejamos alguns exemplos. 
Se colocarmos ALIAZ+ na célula Cl, 
obteremos a soma dos valores contidos 
em Al e A2 na célula Cl. A equacáo 
А1А105 soma todos os valores da colu- 
na A, da linha 1 até a linha 10. Da mes- 
ma maneira, A6F6& soma todos os va- 
lores da linha 6, começando na coluna 
A e terminando na coluna F. Finalmente, 
ASB2% é calculado como AS*B2/100, 
o que dá B2 por cento de AS. As equa- 
ções são colocadas nas células em que 
se quer que apareçam os resultados. 

Com exceção das versões destinadas 
ao Spectrum e ao Apple, o programa 
permite ainda que se acrescente um nú- 
mero no fim da equação para especifi- 
car a quantidade de casas decimais que 
aparecem na resposta. 








CÓPIA ABSOLUTA E RELATIVA 0 USO DO PROGRAMA 


O programa oferece a alternativa de 
se copiar o conteúdo de uma célula. Is- 
so nos poupa o trabalho de redigitar 
uma fórmula em todas as células em que 
será usada. Podemos escolher entre uma 
cópia absoluta ou relativa. A cópia ab- 
soluta produz uma réplica idêntica da 
célula, onde quer que você queira, seja 
numa única célula, seja numa coluna in- 
teira. A cópia relativa, usada especial- 
mente para equações, sofre alterações 
conforme a linha e a coluna para onde 
está sendo copiada. 

Suponhamos que você tem A1B1* na 
célula C1 e quer que toda célula da co- 
luna C contenha o produto das duas co- 
lunas anteriores — ou seja, A2B2* em 
C2, A3B3* em C3 etc. A cópia relativa 
faz isso para vocé. O procedimento é o 
seguinte: pressione a tecla de cópia (ve- 
rifique, adiante, qual a tecla que seu mi- 
cro usa), selecione R (para relativa) e co- 
loque o cursor sobre a célula a ser co- 
piada (no Spectrum, digita-se o nome da 
célula). Em seguida, defina se a cópia 
deve ser feita em linha ou coluna — no 
nosso caso, pressione C. Finalmente, di- 
gite o nome da célula inicial (C1) e da 
final (C10, por exemplo). O programa, 
assim, preencherá toda a coluna para 
você. 

Experimente também copiar valores 
em linhas e obter cópias absolutas de 
equações e valores. 


Precisamos, com freqiiência, utilizar 
constantes em uma equação — por 
exemplo, um valor como 17, para cal- 
cular a porcentagem do ICM, ou como 
10, para calcular descontos. 

Como não se pode colocar números 
diretamente em uma equação — que é 
baseada no conteúdo de duas células —, 
empregam-se diferentes métodos para a 
introdução de constantes. 

No Spectrum, elas costumam ser pre- 
cedidas pela letra Z. Assim, A1Z17% 
calcula o ICM de um valor colocado na 
célula A1. Nos demais micros, as cons- 
tantes devem ser colocadas na coluna Z. 
Retomando o último exemplo: o valor 
17 será colocado na célula Z1 e a equa- 
ção tomará a forma A1Z1%. 

Esse procedimento é necessário por- 
que os valores das constantes não devem 
ser alterados nem mesmo quando se op- 
ta por uma cópia relativa. Se reservar- 
mos uma coluna para elas, estaremos as- 
segurando um tratamento diferenciado 
na hora da cópia. 


Existem algumas variações, de má- 
quina para máquina, no que diz respei- 
to à colocação de valores, rótulos e 
equações na planilha, assim como à exe- 
cução das operações. Comentaremos, 
em seguida, os detalhes específicos pa- 
ra cada microcomputador. 


O programa do Spectrum demora um 
pouco para definir as variáveis internas. 
Assim, você terá uma tela vazia por al- 
guns momentos após teclar RUN. A te- 
la aparece no modo de valores — o que 
significa que valores e rótulos podem ser 
inseridos. Pressione E para passar ao 
modo de equação e V para voltar ao de 
valores. Para introduzir um dado em 
uma célula, use as teclas de controle do 
cursor; ao chegar à célula correta, pres- 
sione I. Em seguida, digite o que quiser. 

As equações são mostradas sobre 
fundo amarelo, com os valores em pre- 
to e os rótulos em azul. Considera-se ró- 
tulo qualquer dado digitado no modo de 
valores que comece com uma letra. Co- 
mo as cores aparecem em qualquer mo- 
do, você pode distinguir facilmente as 
células que contêm equações mesmo que 
esteja vendo a folha no modo de valo- 
res ou vice-versa. 

A tela exibe apenas quatro colunas e 
dez linhas de cada vez, mas é possível 
mudar para outra parte da planilha pres- 
sionando-se simultaneamente as teclas 
de controle do cursor e <SYMBOL 
SHIFT>. 

Tente inserir alguns valores e rótulos, 
mude para o modo de equações e some 
os valores das colunas e linhas. Para ver 
o resultado dos cálculos, volte para a tela 
de valores e pressione C e <SYMBOL 
SHIFT >. Se algum número for muito 
grande e nào couber na célula, os dígi- 
tos da direita seráo eliminados e os que 
permanecerem na tela ficaráo piscando 
como aviso. 

Agora, experimente copiar algumas 
equações e valores usando a tecla Z. O 
programa pedirá toda a informagáo que 
for necessária. 

Segue-se a lista de comandos usados 
pelo programa: 

V mostra a tela de valores; 

mostra a tela de equações; 

insere um dado em uma célula; 

seguido de <ENTER> apaga um 

valor ou rótulo; 

І seguido de & apaga uma equação; 

C mais «SYMBOL SHIFT calcula 
os valores da planilha; 

<SPACE> mais <SYMBOL SHIFT > 


-- 


interrompe os cálculos; 

Z copia uma célula; 

S mais «SYMBOL SHIFT» grava 
dados em fita; 

J mais <SYMBOL SHIFT > carrega 
dados da fita; 

P imprime a tela em uma impressora; 

Teclas de controle do cursor movem o 
cursor; 

Teclas de controle mais <SYMBOL 
SHIFT > movem a janela de texto. 


ы. 


Ao executar o programa, vocé verá 
apenas a parte superior esquerda da pla- 
nilha; se quiser examinar qualquer ou- 
tra parte, recorra ás teclas de controle 
do cursor (no micro Apple, mova o cur- 
sor para cima e para baixo usando as te- 
clas A e Z). Vocé pode também passar 
diretamente para qualquer ponto da pla- 
nilha digitando G. 

As teclas V e E alternam as telas de 
equacóes e valores. É possível entrar va- 
lores nas duas telas, mas os resultados 
só seráo mostrados na tela de valores. 
Para inserir um dado em uma célula, 
mova o cursor até ela e pressione I. De- 
pois, digite sua entrada. 

As equações são digitadas conforme 
descrevemos anteriormente. No TRS- 
Color e no MSX podemos discriminar 
o número de casas decimais do resulta- 
do. A1B1/2, por exemplo, mostra o re- 
sultado de A1 dividido por Bl com duas 
casas decimais. Esse recurso é muito ütil 
quando estamos lidando com valores fi- 
nanceiros. No caso de obtermos nüme- 
ros que excedam o tamanho da célula, 
a mensagem <OV> será exibida. 

Eis as teclas usadas no programa: 
V mostra a tela de valores; 

E mostra a tela de equações; 

1 insere um rótulo, valor ou equação; 

€ copia uma célula; 

S grava dados no cassete ou disco; 

L lê dados do cassete ou disco; 

Q sai do programa; 

Teclas de controle do cursor movem o 
cursor e a janela de texto (no Apple, 
usam-se A e Z para mover o cursor 
para cima e para baixo). 


910 IF z*3 THEN LET v(1)*( 
CODE 8$(1))-64: LET v(2)*VAL в 
$(2): LET v(3)-(CODE 8$(3))-64 
: LET v(4)*VAL s$(4 TO 5): LET 
o$=s$(6): RETURN 

920 IF z=4 THEN LET v(1)=( 
CODE 8$(1))-64: LET v(2)*VAL в 
$(2 TO 3): LET v(3)=(CODE s$(4 
))-64: LET v(4)-VAL s$(5 TO 6) 
: LET o$-8$(7): RETURN 





930 IF z-5 THEN LET v(1)*( 
CODE 8$(1))-64: LET v(2)=VAL s 
$(2): LET v(3)=(CODE s$(3))-64 
: LET v(4)-VAL s$(4): LET o$-8 
$(5): RETURN 

940 IF z-6 THEN LET v(1)*( 
CODE 8$(1))-64: LET v(2)=VAL в 
$(2 TO:3): LET v(3)*(CODE s$(4 
))-64: LET v(4)*VAL a$(5): LET 
o$-8$(6): RETURN 

950 IF z*7 THEN LET v(1)*( 
CODE 8$(1))-64: LET v(2)*VAL 8 
$(2): LET v(3) *(CODE 8$(3))-64 
: LET v(4)*VAL s$(4 TO 5): LET 
о$=в$(6): RETURN 

960 IF 2=8 THEN LET v(1)*( 
CODE s$(1))-64: LET v(2)=VAL з 
$(2 TO 3): LET v(3)*(CODE s$(4 
))-64: LET v(4)=VAL s$(5 TO 6) 
: LET o$-s5$(7): RETURN 

970 IF 2=9 THEN LET v(1)*( 
CODE 8$(1))-64: LET v(2)*VAL 8 
$(2): LET v(3) (CODE 8$(3))-64 
: LET v(4)=VAL s$(4 TO 6): LET 
o$28$(7): RETURN 

980 IF z-10 THEN LET v(1)*( 
CODE 8$(1))-64: LET v(2)-VAL в 
$(2 TO 3): LET v(3)=(CODE s$(4 
))-64: LET v(4)=VAL s$(5 TO 7 
): LET o$7s$(8): RETURN 9 
990 LET v(1)=(CODE s$(1))-64: 
LET v(2)*VAL s$(2): LET v(3)*( 
CODE s$(3))-64: LET v(4)=VAL в 
$(4 TO 7): LET 0$=s$(8): 
RETURN 

1000 RETURN 

1010 IF d5(v(2),v(1),1)>"9” THE 
N LET t=0: RETURN 

1020 IF v(3)=26 THEN LET b=v(4 
): LET a-VAL d$(v(2),v(1), TO 8 
): GOTO 1050 

1030 IF d$(v(4),v(3),1)»"9" THE 
N LET t-0: RETURN 

1040 LET a*VAL d$(v(2),v(1), TO 


8): LET b-VAL d$(v(4),v(3), TO 
8) 

1050 IF 0$="+" THEN LET t=a+b 
RETURN 

1060 IF o$-"-" THEN LET t=a-b 
RETURN 

1070 IF o$-"/" AND b*0 THEN LI 
T t=0: RETURN 

1080 IF 0$="/" THEN ГЕТ t=a/b: 
RETURN 

1090 IF 0$="*" THEN LET t=a*b: 
RETURN 

1100 IF o$-"t" THEN LET t*(a*b 
)/100: RETURN 

1110 IF o$-"$" THEN LET t*0: F 


OR s=v(2) TO v(4): LET t=t+VAL 
d$(s,v(1), TO 8): NEXT s: RETUR 
N 


1120 IF o$-"&" THEN LET t=0: F 
OR s=v(1) TO v(3): LET t=t+VAL 
d$(v(2),8, TO 8): NEXT s: RETUR 


N 

1130 RETURN 

1140 1F z=1 THEN IF VAL a$(2)= 
0 OR VAL a$(4)=0 THEN LET f-1: 
RETURN 

1150 IF z-2 THEN IF VAL a$(2 T 
0 3)>30 OR VAL a$(2 TO 3)=0 OR 


VAL a$(5)=0 THEN 
RN 
1160 IF z-*3 THEN IF VAL a$(4 T 
O 5)>30 OR VAL a$(4 TO 5)=0 OR 
VAL a$(2)=0 THEN LET f=1: RETU 
RN 
1170 IF z=4 THEN IF VAL a$(2 T 
O 3)>30 OR VAL a$(5 TO 6)>30 OR 
VAL a$(2 TO 3)=0 OR VAL a$(5 T 
O 6)=0 THEN LET f-1: RETURN 
1180 IF 2=5 ОВ 2=7 ОВ z=11 THEN 
IF VAL a$(2)=0 THEN LET f=1: 
RETURN 
1190 IF 2-6 ОН 2z=8 OR z*10 THEN 
IF VAL a$(2 TO 3)=0 OR VAL as 


LET f-1: RETU 


(2 TO 3)>30 THEN LET f-1: RETU 
RN 
1200 LET s$-" ^: FOR 9*1 


TO c: LET sS(g)=aS(g): NEXT 9: 
GOSUB 890: IF o$-"&" AND (v(1) 
>v(3) OR v(2)<>v(4)) THEN LET 
£=1: RETURN 

1210 IF o$-"$" AND (v(1)<>v(3) 
OR v(2)»v(4)) THEN LET fel: RE 
TURN 

1220 LET #=0: RETURN 

1230 LET g$-d$ (y*twy,x*wx,17) 
1240 PRINT FLASH 0*(g$-"5" AND 
t$-2"VAL"); INK 0+(2 AND g$-"4" 
); PAPER 7-(2 AND 95="2")-(9$=" 
1" OR g$-"5");AT y*2*2,x*945; (d 
$(y*wy,x*wx, TO 8) AND tS="VAL” 
); (ds (y=wy,x+wx,9 TO 16) AND t$ 
="IGUA"): RETURN 

1250 SOUND .4,10 

1260 LET s$-" ": LET os* 
0 

1270 PAUSE 20: PRINT AT cy*2, (c 
x-1)*9+5+08; BRIGHT 1; OVER 1;” 


1280 IF CODE INKEY$>30 AND CODE 
INKEY$<128 THEN LET s$(os*l)- 
INKEYS: PRINT AT cy*2, (cx-1)*9+ 
5+ов;в$ (ов+1): LET ов=ов+1: СОТ 
0 1350 
1290 IF CODE INKEYS=12 AND o0s>0 
THEN LET os-os-l: LET s$(os*tl 
)*"": PRINT AT cy*2,((cx-1) *9)* 
5458; OVER 0; BRIGHT 0;" ^": GO 
TO 1270 
1300 IF CODE INKEY$713 AND s$-" 
" THEN RETURN 
1310 IF CODE INKEYS=13 AND tS=" 
VAL" AND CODE B$(1)>64 THEN LE 
T d$(wy+cy-1,wx+cx-1,17)="2": L 
ET d$(wy*cy-l,wx*cx-l, TO 8)-5$ 
: LET yscy-1: LET x-cx-1: GOSUB 
1230: RETURN 
1320 IF CODE INKEY$=13 AND tS=" 
VAL " THEN GOSUB 1380: LET os= 
0: LET dS(wy+cy-1,wx+tcx-1, TO 8 
)=8$: LET y=cy-1: LET x=cx-1: 6 
OSUB 1230: RETURN 
1330 IF CODE INKEY$-13 AND t$-" 
IGUA" THEN GOSUB 1380: LET os= 
0: LET dS(wy*cy-l,wx*cx-1,9 TO 
16) : LET хесх-1: ГЕТ у=су-1: 
GOSUB 1230: RETURN 
1340 GOTO 1270 
1350 IF os-8 AND t$-"VAL" THEN 
SOUND .1,-10: GOSUB 1380: LET 
d$(wy*cy-l,wx*cx-1, TO 8)=з$: L 
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ET y-cy-1: LET x-cx-1: GOSUB 12 
30: RETURN 


1360 IF os-8 AND t$-"IGUA" THEN 





SOUND .1,*10: GOSUB 1380: LET 
d$(wy*cy-l,wx*cx-1,9 TO 16)7s$ 
LET y=cy-1: LET x=cx-1: GOSUB 
1230: RETURN 
1370 GOTO 1270 
1380 PRINT AT cy*2,((cx-1)*9)*5 
+os; BRIGHT 0; OVER 1;" " 
1390 IF t$-"IGUA" THEN GOSUB 1 
490: RETURN 
1400 GOSUB 1410: PRINT AT cy*2, 


(cx-1)*9+5;8$: RETURN 

1410 LET b$-" 000": FOR 

u-l TO os: LET b$(u*(8-08))*-s$( 

u): NEXT u 

1420 FOR u-1 TO 11 

1430 IF b$(u)<>”.” THEN NEXT u 

1440 IF u»-11 THEN LET b$(9)-" 

.": LET s$-b$(4 TO ): RETURN 

1450 LET w=6-u 

1460 IF w«0 THEN LET w-ABS w*l 
LET s$-bS(w TO w*8): RETURN 

1470 LET s$-" 2 

1480 FOR и=1 ТО 8-ю: LET sS(wt+u 

)*b$(u): NEXT u: RETURN 

1490 IF s$(1)-"&" THEN LET s$- 

5 ": LET d$(wy*cy-l,wx*c 

x-1,17)="0": RETURN 

1500 LET a$="": FOR z=1 TO 8: L 

ET a$-a$*(s$(z) AND з$(2) <>" ") 

1510 NEXT z: LET c-LEN a$ 

1520 IF c<4 THEN LET dS(wy+cy- 

1,wx+cx-1,17)="4 RETURN 

1530 RESTORE 1630: FOR z=1 TO 1 

1: LET f-0: READ m$ 

1540 FOR w-1 TO c 

1550 IF m$(w)-"A" THEN GOSUB 1 

650: IF f THEN GOTO 1610 

1560 IF m$(w)-"N" THEN GOSUB 1 

670: IF f THEN GOTO 1610 

1570 IF m$(w)="0" THEN GOSUB 1 

690: IF f THEN GOTO 1610 

1580 IF m$(w)="Z"” THEN GOSUB 1 

710: IF £ THEN GOTO 1610 

1590 NEXT w: GOSUB 1140: 
f THEN LET s$-" Ж 








IF NOT 
FOR 





Entrada das equacóes no Spectrum. 


w=1 TO c: LET sS(w)=aS(w): NEX 

T w: LET d$(wy*cy-l,ux-cx-1,18) 

=CHRS z: LET d$S(wy*cy-l,wx*cx-l 

,17)="1": RETURN 

1600 GOTO 1620 

1610 NEXT z 

1620 LET d$(wy*cy-l,wx*cx-1,17) 

="4": RETURN 

1630 DATA "ANANOOO","ANNANOO" , ? 

АМАММОО” , "АММАММО" 

1640 DATA "ANZNOOOO","ANNZNOOO" 

," ANZNNOOO" , "ANNZNNOO" , "ANZNNNO 

0" , " ANNZNNNO" , "ANZNNNNO" 

1650 IF as(w)>="A" AND as(w)<=" 

X” THEN RETURN 

1660 LET f-1: RETURN 

1670 IF а5(м)>-"0" АМО а5(м)<-" 

9" THEN RETURN 

1680 LET f-1: RETURN 

1690 LET c$-aS(w): IF c$-"*" OR 
cS="-" OR cS="*" OR cS="/" OR 

c$2"t" OR c$-"$" OR c$-"&" THEN 
RETURN 

1700 LET f-1: RETURN 

1710 IF aS(w)*"Z" THEN 

1720 LET f=1: RETURN 

1730 FOR y=1 TO 30: 


RETURN 


FOR x=1 TO 





24: LET d$(y,x, TO 8) 0.00 
": ТЕТ 9$(у,х,17) ="0": ГЕТ 8$ (у 
,X,18)=CHRS 0: NEXT x: NEXT y 
1740 RESTORE 1750: FOR x-USR "a 
" TO USR "c"*7: READ a: POKE x, 
a: NEXT x: RETURN 

1750 DATA 8,8,8,8,8,8,8,8 

1760 DATA 0,0,0,255,0,0,0,0 
1770 DATA 8,8,8,255,8,8,8,8 
1780 INPUT "NOME DO ARQUIVO ?"; 
n$ 

1790 SAVE n$ DATA d$() 

1800 PRINT $1;AT 0,0;"PRESSIONE 


V PARA VERIFICAR " 

1810 PAUSE 0: IF INKEYS-"U" OR 
INKEYS-"v" THEN GOTO 1830 
1820 RETURN 


1830 VERIFY n$ DATA d$(): RETUR 
N 
1840 INPUT "NOME DO ARQUIVO ?"; 


ns 


1850 LOAD n$ DATA dS(): RETURN 


1490 PRINT 6448:PRINT 6448,;:IF 

LEN(DS(CC,CR))=1 THEN PRINT"NA 
DA A COPIAR”:SOUND 5,5:FOR K=1 
TO 500:NEXT:RETURN ELSE PRINT " 
COPIA aBSOLUTA OU rELATIVA"; 


1500 AS=INKEYS:IF AS="" THEN 15 
00 

1510 IF AS=CHRS(13) THEN RETURN 
1520 IF AS="A” THEN TC=1:GOTO 1 
540 

1530 IF AS<>"R” THEN 1490 ELSE 
TC-0 

1540 PRINT 6448 

1550 IF TC=0 AND ASC(DS(CC,CR)) 


<>131 THEN PRINT €448," ERRADO 
MODO COPIA - SOMENTE  EQUACOE 
8”; : SOUND 1,5:FOR D=1 TO 500:NE 
XT D:GOTO 490 

1560 PRINT 6448:PRINT 6448,"COP 
IA DE 1ІМНА OU cOLUNA"; 

1570 AS=INKEYS:IF AS="" THEN 15 
70 

1580 IF AS-CHR$(13) THEN RETURN 
1590 IF AS="C” THEN DC=1:GOTO 1 
610 

1600 IF AS<>"L” 
рс-0 

1610 PRINT 6448:PRINT 6448,"COM 
ECAR PELA CELULA";:INPUT AS:IF 
AS-"" THEN RETURN 

1620 51-А5С(А5)-64:ІЕ 81<1 ОВ 8 
1>25 ТНЕМ 1610 

1630 S2=VAL (MIDS (AS,2)):1F S2<1 
OR S2>30 THEN 1610 

1640 PRINT 8448: PRINT €448," TER 
MINAR NA CELULA”;: INPUT AS 

1650 IF A$="" THEN RETURN 

1660 Cl-ASC(AS)-64:IF C141 OR C 
1525 THEN 1640 

1670 C2=VAL (MIDS(AS,2)):IF C2<l 
OR C2>30 THEN 1640 

1680 PRINT €448,"COPIANDO - E 
SPERE” 


THEN 1560 ELSE 








Cálculo dos resultados na tela do Spectrum. 
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1690 IF TC-1 THEN 1970 

1700 IF DC=1 THEN 1840 

1710 IF С2<>52 THEN 2090 

1720 AS=ASC (MIDS (D$(CC,CR) ,2))- 
64:1F AS<>26 AND AS+C1-S1>25 TH 
EN Cl=25+S1-AS 

1730 AS=ASC (MIDS (DS(CC,CR),5))- 
64:1F AS<>26 AND AS+C1-S1>25 TH 
EN Cl=25+S1-AS 


1740 D$(S1,8S2) D$ (CC,CR) 

1750 FOR I=S1+1 ТО СІ 

1760 AS=DS(I-1,82) 

1770 IF MID$(A$,2,1)*"Z" THEN 1 
790 

1780 MIDS$(A$,2,1) *CHR$ (ASC (MID$ 
(A$,2,1))+1) 


1790 IF MIDS(AS,5,1)="Z" THEN 1 
810 

1800 MID$(A$,5,1) *CHRS$ (ASC(MIDS 
(A$,5,1)) *1) 

1810 DS(1,82)=AS:NEXT 

1820 IF C1>CX THEN CX=C1 

1830 GOTO 2080 

1840 IF C1<>S1 THEN 2090 

1850 AS=VAL (MIDS (DS(CC,CR),3,2) 
):IF AS+C2-S2>30 THEN C2=30+S2- 
AS 

1860 AS=VAL (MIDS (DS (CC,CR),6)). 
IF AS+C2-S2>30 THEN C2=30+52-AS 
1870 D$(S1,8S2)*D$(CC,CR) 

1880 FOR 1=52+1 TO C2 

1890 AS=DS (S1,1-1) 

1900 IF MIDS(AS,2,1)="Z" THEN 1 
920 

1910 U=VAL (MIDS(A$,3,2))+1:IF Y 
<10 THEN MIDS(AS,3,2)=STRS(V) E 
LSE MIDS(AS,3,2)=MIDS(STRS(V),2 
,2) 

1920 IF MIDS(AS,5,1)="Z" THEN 1 
940 

1930 V-VAL(MID$(A$,6,2)) *1:1F V 
<10 THEN MID$(A$,6,2)*STRS(V) E 
LSE MIDS(AS,6,2)=MIDS(STRS (V),2 
,2) 

1940 DS(S1,1)=AS:NEXT 

1950 IF C2>RX THEN RX=C2 

1960 GOTO 2080 

1970 IF DC=1 THEN 2030 








Tela de equacóes (à esquerda) e entrada de valores e rótulos no Acorn, micro 


1980 IF C2<>CR THEN 2090 

1990 FOR I-CC*1 TO C1 

2000 DS(I,CR)=DS(I-1,CR):NEXT 
2010 1F C1>CX THEN CX=C1 

2020 GOTO 2080 

2030 IF C1<>CC THEN 2090 

2040 FOR I=CR+1 TO C2 

2050 D$(CC,I)*D$(CC,I-1):NEXT 
2060 IF C2>RX THEN RX=C2 

2070 GOTO 2080 

2080 MO=1:GOSUB 70:RETURN 

2090 PRINT 6448,"erro NO DESTIN 
0":S0UND 1,5:FOR Del TO 500:NEX 
TD 

2100 сото 2080 


1490 LOCATE 0,21:PRINTSPC(35):L 
OCATE 0,21:IF LEN(DS(CC,CR))=1 
THEN PRINT"NADA PARA COPIAR":FO 
R K=1 TO 500:NEXT:RETURN ELSE P 
RINT"CÓPIA <A>BSOLUTA OU <R>ELA 
TIVA: ";: 

1500 
00 


AS=INKEYS:IF AS="" THEN 15 





1510 HR$ (13) THEN RETURN 
1520 A” THEN TC=1:GOTO 1 
540 
1530 IF AS<>"R" THEN 1490 ELSE 
TC=0 
1540 LOCATE 0,21:PRINTSPC(35):L 


OCATE 0,21 

1550 IF TC=0 AND ASC(DS(CC,CR)) 
<>131 THEN PRINT"MODO DE CÓPIA 
ERRADO - Só EZQUACOES!";:FOR D=1 
TO 500:NEXT:GOTO 490 

1560 LOCATE 0,21:PRINT"CÓPIA PO 
R <LINHA> OU <COLUNA>: "i 





1570 AS=INKEYS:IF AS="" THEN 15 
70 

1580 IF A$-CHR$(13) THEN RETURN 
1590 IF AS="C" THEN DC=1:GOTO 1 
610 

1600 IF ASC»"L" THEN 1570 ELSE 
DC=0 

1610 LOCATE 0,21:PRINTSPC(37):L 


OCATE 0,21:PRINT"INICIA NA CELU 





LA";:INPUT A$:IF A$="" THEN RET 
URN 

1620 S1=ASC(AS)-64:1F 51<1 ОВ 8 
1525 THEN 1610 

1630 S2-VAL(MIDS(A$,2)):IF S2«1 
OR S2>30 THEN 1610 

1640 LOCATE 0,21:PRINTSPC(37):L 
OCATE 0,21:PRINT"TERMINA NA CEL 
ULA";:INPUT A$ 

1650 IF AS="" THEN RETURN 

1660 C1=*ASC(AS)-64:1F C1<1 OR C 
1>25 THEN 1640 

1670 C2=VAL (MIDS(AS,2)):IF C2<1 
OR C2>30 THEN 1640 

1680 LOCATE 0,21:PRINTSPC(35):L 
OCATE 0,21:PRINT"COPIANDO... AG 
UARDE" 

1690 IF TC-1 THEN 1970 

1700 IF DC-1 THEN 1840 

1710 IF C2<>82 THEN 2090 

1720 AW=ASC (MIDS (DS (CC, CR) ,2))- 
64:1F AW<>26 AND AW*C1-81525 TH 
EN Cl=25+S1-AW 

1730 AW=ASC (MIDS (DS (CC,CR) ,5))- 
64:ІҒ АЫ<>26 AND AW+C1-S1>25 TH 
ЕМ Cl=25+S1-AW 

1740 D$(S1,S2)*D$(CC,CR) 
1750 FOR I=S1+1 TO Cl 
1760 A$-D$(I-1,82) 

1770 IF MIDS$(A$,2,1)-"2" 
790 а 
1780 MIDS(AS,2,1)=CHR$ (ASC (MIDS 
(AS,2,1))+1) 

1790 IF MIDS(AS,5,1)="Z" 
810 

1800 MIDS(AS,5,1)=CHRS (ASC (MIDS 
(AS,5,1))+1) . 

1810 0$(1,52) =А$:МЕХТ 

1820 IF C1>CX THEN CX=C1 

1830 GOTO 2080 

1840 IF C1<>S1 THEN 2090 

1850 AW=VAL (MIDS (DS (CC,CR),3,2) 
):IF AW+C2-82>30 THEN C2=30+82- 
AW 

1860 AW-VAL (MIDS (D$ (CC, CR) ,6)) : 
IF AW+C2-82>30 THEN C2=30+52-AW 
1870 D$(81,82)*D$(CC,CR) 


THEN 1 


THEN 1 


mu 
Hn 


mno 


sem equivalente no Brasil. 














1880 FOR I-S241 TO C2 

1890 AS-D$(Sl,I-1) 

1900 IF MIDS(AS,2,1)="Z" THEN 1 
920 

1910 V-VAL(MID$(A$,3,2)) *1:IF V 
<10 THEN MIDS(AS,3,2)=STRS(V) E 
LSE MIDS$(A$,3,2) *MIDS$ (STRS$ (V) ,2 


12) 
1920 IF MIDS$(A$,5,1)-"Z" THEN 1 
940 
1930 U=VAL (MIDS(A$,6,2))+1:1F Y 
<10 THEN MIDS(AS,6,2)=STR$(V) Е 
LSE MIDS(AS,6,2)=MIDS(STRS(V),2 


D$(S1,1)=AS:NEXT 

IF C2>RX THEN RX=C2 

GOTO 2080 

IF DC=1 THEN 2030 

IF C2<>CR THEN 2090 

FOR I=CC+1 TO Cl 
D$(I,CR)=D$(I-1,CR) :NEXT 
IF C1>CX THEN CX=C1 

GOTO 2080 

ТЕ С1<>СС ТНЕМ 2090 

FOR I=CR+1 TO C2 
D$(CC,I)*D$(CC,I-1):NEXT 
IF C2>RX THEN RX=C2 

GOTO 2080 

MO=1:GOSUB 70:RETURN 

2090 LOCATE 0,21:PRINTSPC(35):L 
OCATE 0,21:PRINT"ERRO NA DESTIN 
ACAO":FOR D-1 TO 500:NEXTD 

2100 GOTO 2080 


[@] 


1490 
958: 


VTAB 23: НТАВ 1: CALL - 
IF LEN (DS(CC,CR)) = 1 TH 
EN PRINT "NADA PARA COPIAR"; C 
HRS (7);: FOR K = 1 TO 1000: NE 
XT : RETURN 

1495 PRINT "COPIA [A]BSOLUTA O 
U [R]ELATIVA "; 





1500 GET A$ 

1510 IF A$ - CHR$ (13) THEN 2 
085 

1520 IF A$ = "A" THEN TC = 1: 
GOTO 1540 

1530 IF A$ < > "В" THEN 1490 
1535 ТС = 0 

1540 УТАВ 23: НТАВ 1: CALL ~ 
958 

1550 IF TC = 0 AND ASC (DS(CC 
,CR)) € > 131 THEN PRINT "MOD 


O DE COPIA INCORRETO - SO EQUAC 
OES”; CHRS (7);: FOR D = 1 TO 1 
000: NEXT : GOTO 490 

1560 VTAB 23: HTAB 1: CALL ~ 
958: PRINT "COPIA [C]OLUNA OU [ 
LJINHA "; 
1570 GET AS 
1580 IF AS = 
085 
1590 
сото 
1600 


CHR$ (13) THEN 2 


IF A$ - "C" THEN DC * 1: 
1610 

IF A$ < 
1605 DC = 0 
1610 УТАВ 23: HTAB 1: 
958: PRINT "COMECA NA CEL.: 
INPUT AS: IF AS = ”" THEN 2085 


> "L” THEN 1560 


CALL - 


1620 81 = ASC (AS) - 64: IF Sl 


€ 1 OR S1 » 25 THEN 1610 

1630 82 = VAL ( MIDS (AS,2)): 
IF 82 < 1 OR S2 > 30 ТНЕМ 1610 
1640 УТАВ 23: НТАВ 1: CALL - 
958: PRINT "TERMINA NA CEL.: "; 

INPUT A$ 

1650 IF AS - "" THEN 2085 
1660 Cl = ASC (AS) - 64: 
< 1 OR Cl > 25 THEN 1640 
1670 C2 = VAL ( MIDS (AS,2)): 
IF C2 < 1 ОВ C2 > 30 THEN 1640 
1680 УТАВ 23: НТАВ 1: CALL - 
958: PRINT "COPIANDO - AGUARDE. 


IF Cl 


1690 
1700 
1710 


IF TC = 1 THEN 1970 
IF DC = 1 THEN 1840 


IF C2 < > 82 THEN 2090 
1720 AS = ASC ( MIDS (DS(CC,CR 
),2)) - 64: IFAS< > 26 ANDA 
S * Cl- 81 > 25 THEN Cl * 25 + 
81 - AS 

1730 AS * ASC ( MID$ (D$(CC,CR 
),5)) - 64: IF AS < > 26 AND A 
8 * Cl- 81» 25 THEN С1 » 25 + 
S1 - AS 

1740 D$(S1,82) = D$(CC,CR) 

1750 FOR I - S1 * 1 TO Cl 

1760 AS = DS(I - 1,82) 


1770 IF MID$ (A$,2,1) = "Z" T 
HEN 1790 

1780 AS = LEFTS (AS,1) + CHRS 
( АЗС ( МІЮ$ (А$,2,1)) + 1) + 
MIDS (A$,3) 

1790 IF MIDS (A$,5.1) - "2" T 
HEN 1810 

1800 AS * LEFT$ (A$,4) + CHRS 
( ASC ( MID$ (A$,5,1)) * 1) * 
MIDS (AS,6) 

1810 D$(I,S2) = AS: NEXT 

1820 IF Cl > CX THEN СХ = Cl 
1830 GOTO 2080 

1840 IF Cl < » Sl THEN 2090 
1850 AS = VAL ( MID$ (D$(CC,CR 
),3,2)): IF AS + C2 - 82 > 30 7 


HEN C2 - 30 * 82 - AS 

1860 AS = VAL ( MID$ (DS(CC,CR 
),6)): IF AS + C2 - 82 > 30 THE 
N C2 - 30 * S2 - A8 

1870 D$(81,82) * DS(CC,CR) 


1880 FOR I = S2 * 1 TO C2 

1890 AS = D$(S1,I - 1) 

1900 IF MIDS$ (A$,2,1) = "2” T 

HEN 1920 

1910 У = VAL ( MIDS (AS,3,2)) 
+ 1: ТЕ V € 10 THEN AS = LEFTS 
(A$,2) * " " * STRO (V) + MI 
D$ (A$,5): GOTO 1920 

1915 A$ = LEFTS (A$,2) + STRS 
(V) + MIDS (AS,5) 

1920 IF MIDS (A$,5,1) = "2" T 
HEN 1940 

1930 V = VAL ( MIDS (A$,6,2)) 
+ 1: IF V € 10 THEN AS = LEFTS 
(A$,5) +” ” + STR$ (V) * MI 


D$ (A$,8): GOTO 1920 


1935 A$ = LEFTS (AS,5) + STRS 
(V) + MIDS (AS,8) 

1940 D$(S1,I) = AS: NEXT 

1950 IF C2 > RX THEN RX = C2. 
1960 GOTO 2080 





O que é uma planilha integrada? 

Os usuários de microcomputadores 
com maior disponibilidade de memória 
RAM — entre eles os da linha PC e al- 
guns modelos da linha Apple — podem 
ter o privilégio de utilizar os programas 
integrados de planilha eletrônica. Eles 
recebem esta denominação por incluí- 
rem, além do programa de planilha de 
cálculo propriamente dito, outros pro- 
gramas, como os de elaboração de grá- 
ficos (a partir dos dados da planilha), 
montagem e gestão de bancos de da- 
dos relacionais, e, em alguns tipos, pro- 
cessamento de texto. 

A grande vantagem de sistemas 
desse tipo é a perfeita integração de da- 
dos em cada uma das aplicações. Além 
disso, eles tornam dispensável trocar 
programas, quando se deseja utilizar 
um outro aplicativo. 

Para os micros da linha Apple que 
têm memória RAM de 128 Kbytes ou 
mais, já existe um pacote integrado: o 
Totalworks. Mas os pacotes mais di- 
fundidos são os disponíveis para os mi- 
cros da linha PC (de dezesseis bits), tais 
como o Lotus 1-2-3, o Framework e o 
Symphony. 








A 


1970 IF DC = 1 THEN 2030 

1980 IF C2 « > CR THEN 2090 
1990 FOR I - CC * 1] TO Cl 
2000 DS(T,CR) = DS(I - 1,CR): N 
EXT 
2010 
2020 
2030 
2040 
2050 
EXT 
2060 
2070 
2080 
2085 


ІР СІ > CX THEN CX = Cl 
сото 2080 

IF Cl < > CC THEN 2090 
FOR I * CR * 1 TO C2 
D$(CC,I) * D8(CC,T - 1): N 


IF C2 > RX THEN RX = C2 
GOTO 2080 

MO = 1: GOSUB 70 
VTAB 23: HTAB 1: 
958: RETURN 

2090 УТАВ 23: НТАВ 1: САМ. - 
958: PRINT "ERRO NA DESTINACAO" 


CALL - 


FOR D = 1 TO 1000: NEXT 
2100 GOTO 2080 
2500 ТЕ PEEK (222) = 5 THEN 
GOTO 1470 
2510 END 
3000 HOME PRINT "TERMINO O P 
ROGRAMA? (S/N) ";: GET AS 
3010 IF A$ < > "S" THEN GOSU 
B 70: RETURN 
3020 END 











FAMILIAS DE CURVAS 
п ENVOLTÓRIAS 
B 


Ho 03$ _ FO0C0S E CUSPIDES 
m PADRÕES DE PONTOS 
DINÂMICA DE POPULAÇÕES 


Com rotinas gráficas muito simples, 
podemos criar uma variedade 
surpreendente de desenhos — todos 
eles estruturados a partir de padrões 
fornecidos pela natureza. 





A utilização do computador para de- 
senhar a trajetória de objetos em queda 
livre sob a ação da gravidade foi exami- 
nada nos artigos publicados nas páginas 
766 e 781. Com os programas apresen- 
tados, ilustramos alguns aspectos de um 
velho ramo da Física chamado dinâmi- 
ca e vimos como traçar parábolas, cír- 
culos e elipses. Neste artigo, aprendere- 
mos a desenhar outros tipos de curva 
usando técnicas semelhantes. Rotinas 
gráficas bastante simples se encarrega- 
rão dessa tarefa. 

Nos últimos anos, a dinâmica rece- 
beu um novo impulso enquanto campo 
de pesquisa. Um dos motivos para isso 
foi o reconhecimento de que seus prin- 
cípios matemáticos não se aplicam so- 
mente ao movimento dos corpos sob a 
ação de determinadas forças. Cientistas 
ópticos, interessados na refração da luz 
das estrelas na atmosfera, químicos in- 
dustriais que estudam o desencadeamen- 
to de reações e biólogos preocupados 
com o crescimento de populações ani- 
mais que competem entre si — todos 
têm recorrido aos conhecimentos acu- 
mulados por esse ramo da Física. Além 
disso, os computadores — permitindo 
a repetição rápida de operações elemen- 
tares — favoreceram a revelação de fun- 
ções de uma complexidade estrutural 
que os antigos métodos de cálculo se- 
quer sugeriam. Com freqüência, um pa- 
dráo ou curva tem que ser repetido inü- 
meras vezes antes que possamos notar 
a presenca de uma estrutura subjacen- 
te. Os programas abaixo demonstram 
isso. 


FAMILIAS DE CURVAS 


Algumas curvas, isoladamente sim- 
ples, criam padróes bastante complexos 
quando sáo reunidas, constituindo uma 
família. Veja um exemplo em que se uti- 
lizam parábolas. 





5 LET A$-"": FOR N-1 TO 64: 
LET A$-AS*" ": NEXT N 
10 BRIGHT BORDER 0: 
PAPER 0: CLS 
20 LET NMAX=81 
30 LET DELT=.05 
40 LET SX=170/SQR 3: 
175 
50 FOR N=1 TO NMAX 
60 LET A-PI*(-1*2*N/NMAX) 
70 PLOT 128,80 
80 FOR T=0 TO 3 
90 LET X=T*COS A: 
SIN A-T/2) 
100 IF Y<=-.4 THEN GOTO 120 
110 LET DX=SX*X+128: LET DY=SY 
*7+80 
111 IF DX<O OR DX>255 OR DY<O 
OR DY>175 THEN GOTO 120 
115 DRAW DX-PEEK 23677 DY-PEEK 
23678 
117 PRINT AT 19,0;A$ 
120 NEXT T 


INK 5: 


EP DELT 
LET Y-T*( 


130 NEXT N 


nu 


10 COLOR 15,1,1:SCREEN 2 

20 NM-81:PI-4*ATN(1) 

30 05 

40 SX=160/SQR (3) :SY=230 

50 FOR N=1 TO NM 

60 A-PI*(-1*2*N/NM) 

70 DRAW"BM127,118" 

80 FOR T=0 TO 3 STEP DE 

90 X=TACOS(A) :Y=T*(SIN(A)-T/2) 
100 IF Y>-.4 THEN LINE- (SX*X+12 
7,118-SY*Y) ELSE T=3 

110 PEXT T 

120 NEXT N 

130 GOTO 130 


Га С5) 


10 HGR2 
NM = 81:PI = 4 * 
30 DE = .05 
Sx = 160 / SQR 
FOR N * 1 TO NM 


4 (1) 


(3):8Y * 180 


60 A = PI * ( - 1 + 2 * N / NM) 
70 HCOLOR= 3:X1 = 139:Y1 = 118 
80 FOR T - 0 TO 3 STEP DE 
90.X T* COS (A):Y = T* CB 
IN (A) * T Z 2) 

100 IF Y > - .35 THEN HPLOT 
Xl,Yl TO SX * X * 139,118 - SY 
* Y:Xl - SX * X * 139:Y1 - 118 
- SY * Y: GOTO 110 

105 T = 3 

110 NEXT T 

120 NEXT N 


10 PMODE 4,1:PCLS 1:SCREEN 1,0 
20 NM-81:PI-4*ATN(1) 

30 DE=.05 

40 SX=160/SQR(3):SY=230 

50 FOR N=1 TO NM 

60 A=PI* (-142*N/NM) 

70 DRAW"BM127,118" 

80 FOR T=0 TO 3 STEP DE 

90 X-T*COS (A) :Y-T* (SIN(A) -T/2) 
100 IF Y»-.4 THEN LINE- (SX*X*12 





7,118-SY*Y),PRESET ELSE T-3 
110 NEXT T 

120 NEXT N 

130 GOTO 130 


O programa simula as trajetórias de 
jatos de água lançados por um esguicho 
de jardim, ou, em uma interpretação 
mais moderna, de nêutrons lançados de 
um tubo fino ligado a um reator. Em 
ambos os casos, a família de curvas é 
constituída por todas as trajetórias pa- 
rabólicas que emergem no mesmo pon- 
to, em direções variadas mas com a mes- 
ma velocidade. O padrão formado por 
essa família é a curva exterior que to- 
das as curvas tocam. A curva exterior, 
chamada de envoltória, é também, nes- 
te caso, uma parábola. Em balística, 
usa-se o termo parábola limitante para 
uma curva desse tipo, pois ela define os 
limites da região que pode ser alcança- 
da por projéteis que tenham uma deter- 
minada velocidade inicial. 

É importante notar que a envoltória 
é uma propriedade da família de curvas 
como um todo, não tendo nenhum sig- 
nificado para uma trajetória em parti- 
cular. Trata-se de um bom exemplo de 
que o todo pode ser mais do que a sim- 
ples soma de suas partes. 

No programa, a equação das curvas 
aparece na linha 90. X é a distância ho- 
rizontal; Y, a distância vertical; T cor- 
responde ao tempo (começando por ze- 
ro no instante do lançamento) e cada 
trajetória tem uma direção determina- 
da por A, o ângulo ou inclinação do lan- 
çamento. O programa desenha NMAX 
ou NM inclinações; tente mudar o va- 
lor dessa variável na linha 20. 


FOCOS E CUSPIDES 


Este programa mostra como também 
as linhas retas podem constituir famílias 
com envoltórias interessantes. 


10 BORDER 0: 
CLS : LET N=2 
30 LET Y0=80/N/N 

40 PLOT 0,-6-Y0*2 

50 FOR X=0 TO 255 STEP 2 

60 LET Y-169-YO-YO*COS (N*2* 
PI*X/255) 

70 DRAW X-PEEK 23677,175-Y- 
PEEK 23678 

80 LET XTeX*2*YO*N*PI*Y/255* 
SIN (N*2*PI*X/255) 

85 LET Y1=0: IF XT<O THEN 

LET XT=0: LET Yl-Y*255*X/(2*N 
RPIXYOXSIN (N*2*PI*X/255)) 

86 IF XT>255 THEN LET XT-255 
: LET Yl-Y-(255-X)*255/ (2*N* 
PI*YO*SIN (N*2*PI*X/255)) 


INK 7: PAPER 0: 


90 DRAW XT-PEEK 23677,175-Y1- 
PEEK 23678 

100 PLOT X,175-Y 

110 NEXT X 

120 GOTO 120 


Y 


10 COLOR 15,1,1:SCREEN 2 

20 N=2:PI=4*ATN(1) 

30 Y0-80/N/N 

40 DRAW"BMO,”+STRS (INT (186-Y0*2 


50 FOR X=0 TO 255 STEP 2 
60 Y-186-Y0-YO*COS (N*2*PI*X/255 


70 LINE -(X,Y) 

B0 XT-X*2*YO*N*PI*Y/255*SIN(N*2 
*PI*X/255) 

85 Y1=0:IF XT<O THEN XT=0:Yl=Y+ 
255*X/ (2*N*PI*YO*SIN(N*2*PI*X/2 
55)) 

86 IF XT>255 THEN XT-255:Yl-Y-( 
255-X) *255/ (2*N*PI*YO*SIN(N*2*P 
1*X/255)) 

90 LINE -(XT,Y1) 

100 DRAW"BM"*STRS(X)*","*STRS (I 
NT(Y)) 

110 NEXT 

120 GOTO 120 


[el id] 


10 HGR2 

20 N = 2:PI = 4 * 
30 Y0 = 80 / N/N 
40 HCOLOR= 3:XX = 0:YY = 186 - 
Yo * 2 

50 FOR X - 0 TO 279 STEP 2 

60 Y = 186 - YO - YO * COS (N 
* 2 * PI * X / 279) 
70 HPLOT XX,YY TO 
80 XT = X +2 * YO 


ATN (1) 


X.Y 
ияртү 


/:279:% HIN ((W* 2* PL * X 7 
279) 
85 Yl = 0: IF XT < 0 THEN XT = 
0:431» Y * 27) k* XY / (2 * N * P 
I *Y0* SIN (N * 2 * PI * x /” 
279)) 


86 IF XT > 279 THEN XT = 279:Y 


1 = ү = (279 - X) ^ 279 7 (2 * 
N * PI * YO * SIN (N * 2 * PI 
* X / 279)) 


90 HPLOT Х,Ү ТО ХТ,Ү1 
Xx = x:YY = Y 
110 NEXT 





10 PMODE 4,1:PCLS1:SCREEN 1,0 
20 N=2:PI=4*ATN(1) 

30 Y0-80/N/N 

40 DRAW"BMO,"*STRS(INT(186-YO*2 


50 FOR X=0 TO 255 STEP 2 
60 Y2186-Y0-YO*COS (N*2*PI*X/255 


70 LINE -(X,Y),PSET 

B0 XT-X*2*YO*N*PI*Y/255*SIN(N*2 
*PI*X/255) 

85 Y1-0:IF XT<O THEN XT=0:YZ=Y+ 
255*X/ (2*N*PI*YO*SIN(N*2*PI*X/2 
55)) 

86 IF XT>255 THEN XT=255:Y1=Y-( 


255-X) *255/ (2*N*PI*YO*SIN (N*2*P 
1*X/255)) 

90 LINE -(XT,YQ) , PRESET 

100 DRAW"BM"*STRS$(X)*","*STR$ (I 
NT(Y)) 

110 NEXT 

120 GOTO 120 


O programa simula o reflexo de raios 
de luz sobre uma superfície ondulada — 
como o sol batendo nas águas de uma 
lagoa. Esta família é composta somen- 
te por linhas retas, que formam ángu- 
los retos com uma curva senóide. A en- 
voltória consiste na curva constituída 
pelos pontos focais. Estes, no caso dos 
raios, são mais intensos nos vales da se- 
nóide, onde a envoltória tem pontos bri- 
lhantes chamados cispides. A existên- 
cia de cúspides pode ser prevista atra- 
vés de um novo ramo da Matemática de- 
nominado Teoria das Catástrofes (esse 
nome dramático vem da aplicação da 
teoria ao desabamento de pontes e em- 
borcação de navios). 

No programa, a senóide é especifica- 
da na linha 60 e os raios de luz, na 80. 
O número de vales da senóide é N (me- 
nos no Apple). Tente mudar o valor de 
N na linha 20 (recomendamos N = 1). 

Senóides também podem constituir 
uma família de curvas. Veja o progra- 
ma apresentado a seguir. 


10 BORDER 0: 
CLS 

20 LET QM=SQR (2*LN (3)) 

30 FOR Q--QM TO QM*1.001 STEP 
QM/30 

40 PLOT 0,75+0*75/0M 

50 FOR T-0 TO 3*PI STEP .2 
60 LET X-Q*COS (EXP (-Q*Q/2)* 
T 

70 DRAW (T*240/3/PI)-PEEK 
23677,75+(X*75/0M) -PEEK 23678 
80 NEXT T 

90 NEXT Q 


nu 


10 COLOR 15,1,1:SCREEN 2 

20 QM*SQR(2*LOG(3)) : PI*4*ATN(1) 
30 FOR Q--QM TO QM*1.001 STEP Q 
M/30 

40 DRAW "BMO,"*STR$(INT(100-Q*9 
0/0м)) 

50 FOR T=0 TO 3*PI STEP .2 

60 X=Q*COS (EXP (-Q*Q/2) *T) 

70 LINE- (T*240/3/PI,100-X*90/QM 
) 

B0 NEXT T 

90 NEXT Q 

100 GOTO 100 


(41%) 


PAPER 0: INK 7: 


10 HGR2 
20 ом = SQR (2 * LOG (3)):PI 
= 4 * ATN (4) 








30 FOR Q* - QM TO QM * 1.001 
STEP QM / 30 
40 HCOLOR= 3:X1 = 0:Y1 = 100 - 


Q * 90 / QM 

50 FOR T = 0 TO 3.5 * PI STEP 
42 
бох-ох 
past 
70 HPLOT Xl,Yl TO T * 240 / 3 


cos ( EXP (- Q* Q 


/ PI,100 - X * 90 / QM:X1 = T * 
240 / 3 / PI:Y1 = 100 - Х * 90 
/ QM 

80 NEXT T 

90 NEXT Q 


10 PMODE 4,1:PCLS 1:SCREEN 1,0 
20 QM-SQR(2*LOG (3)) : PI-4*ATN(1) 
30 FOR Q=-QM TO QM*1.001 STEP Q 
M/30 

40 DRAW"BMO,"*STR$ (INT(100-Q*90 
/0M)) 

50 FOR T=0 TO 34PI STEP .2 

60 X=Q*COS (EXP (-0*Q0/2)*T) 

70 LINE -(T*240/3/PI,100-X*90/Q 
M) ,PRESET 

80 NEXT T 

90 NEXT Q 

100 GOTO 100 


Simulamos aqui raios de luz atraves- 
sando uma fibra óptica cujo índice de 
refração varia ao longo de sua largura. 
Em uma escala microscópica, poderí: 
mos estar representando também “'tra- 
jetórias" de elétrons entre dois planos 
de átomos de um cristal colocado sob o 
canhão de um microscópio eletrônico. 
A família é composta por senóides que 
começam no canto esquerdo do vídeo, 
paralelas umas às outras; o período de 
cada curva depende de sua posição ini- 
cial. Embora esta família seja bem di- 
ferente da anterior, a envoltória também 
tem focos e cúspides. 

No programa, as órbitas são espec: 











Raios de luz em uma fibra óptica. 


ficadas na linha 60, que contém a dis- 
tância X do eixo principal no tempo T. 
As senóides são definidas por Q. Como 
está, o programa desenha trinta senói- 
des; para obter um número maior ou 
menor, modifique a linha 30. 


AS 


Juntar curvas em famílias náo é a 
única maneira de obter padróes interes- 
santes. Um outro caminho é seguir uma 
órbita por um longo tempo, de modo 
que uma estrutura complexa possa se re- 
velar, ainda que a fórmula matemática 
da curva seja relativamente simples. Pa- 
ra desenhar esse tipo de curva, náo de- 
vemos fazer um tragado contínuo, pois, 
após alguns segundos, teremos preenchi- 
do a tela com um emaranhado de cur- 
vas. O mais conveniente é traçar a órbi- 
ta por meio de pontos, dispostos na te- 
la a intervalos regulares — como se a 
trajetória fosse observada sob luz estro- 
boscópica. Os três programas seguintes 
exemplificam essa técnica. A posição 
dos pontos na tela nem sempre equiva- 
le à posição real do objeto de estudo; o 
que o programa fornece, muitas vezes, 
é uma representação abstrata, na qual 
a coordenada horizontal corresponde à 
posição real e a coordenada vertical, à 
velocidade. 
ste programa leva vários minutos 
para completar o desenho: 











10 BORDER O: PAPER O: INK 7: 
сіз 

30 ГЕТ А=76.11 

40 LET ALF-A*PI/180: LET C- 


COS (ALF) 


50 LET S-SIN (ALF) 


60 LET 
70 LET 
B0 FOR 
90 LET 
100 FOR 
110 LET W-X 

120 LET X-X*C- (Y-X*X) *8 
-W*S*(Y-W*W) *C 

130 IF ABS (X)>4 OR ABS 
THEN GOTO 860 

135 IF X>1 OR Y>1 THEN 
150 

140 PLOT X*128+128,Y*B5+85 
150 NEXT N 

160 NEXT J 


NMAX=200 

M=52 

J=1 TOM 

X-0: LET Y-J/M 
N=1 TO NMAX 


LET Y 
(Y)>4 


сото 


10 COLOR 15,1,1:SCREEN 2 
20 A=76.11:PI=4*ATN(1) 
30 AL=A*P1/180:C=COS(AL) 
40 S=SIN(AL) 

50 200 

60 M=52 

70 FOR J=1 TO M 

80 X=0:Y=J/M 

90 FOR N=1 TO NM 

100 W=X 
110 XeX*C 
мыс 

120 IF ABS(X)>4 OR ABS(Y)>4 
N 160 

125 IF ABS(Y)>1 OR ABS(X)>1 THE 
N 140 

130 PSET(128*X*128,96-Y*96) 

140 NEXT N 

150 NEXT J 

160 GOTO 160 






(Y-X*X)*S:Y=W*S+(Y-W* 


THE 


10 HGR2 
20 А = 76.11:РІ = 4 * АТМ 
30 AL = А * РІ / 180:С = 
AL) 

40 S = SIN 
50 NM = 200 
60 M = 52 
70 FORJ= 


a) 
cos ( 


(AL) 





*“Hhas de pontos'' ou linhas de força. 








B0 X= 0:Y =J/M 

90 FOR N = 1 TO NM 

100 W =X 
110X*X*C-(Y-X*X)*8 
T W^ 8S t (Y -Q* M) w Ç 
120 IF ABS (X) > 4 OR ABS (Y 
) > 4 THEN 160 

125 IF ABS (X) > 1 OR ABS (Y 
) > 1 THEN 140 

130 HPLOT 128 * X * 128,96 - Y 
* 96 

140 NEXT N 

150 NEXT J 

160 GOTO 160 

10 PMODE 4,1:PCLS1:SCR ,0 
20 A=76.11:PI=4*ATN(1) 


30 AL*A*PI/180:C 
40 S*SIN(AL) 

50 NM-200 

60 M=52 

70 FOR J=1 TO M 
80 X=0:Y=J/M 

90 FOR N=1 TO NM 

100 W=X 

110 X-X*C- (Y-X*X) *8: Y-W^S* (Y-W* 
м) жс 

120 IF ABS(X)>4 
N 160 

125 IF ABS(Y)>1 
N 140 

130 PRESET(128*X*128,96-Y*96) 
140 NEXT N 

150 NEXT J 

160 GOTO 160 





OS (AL) 





OR ABS(Y)>4 THE 


OR ABS(X)>1 THE 


O programa simula o movimento de 
partículas subatómicas (como prótons e 
elétrons) em um acelerador ou, ainda, 
linhas de forca de um campo magnéti- 
co. Sua atuação, em termos matemáti- 
cos, consiste em tomar uma série de 
pontos iniciais e movê-los pela tela, se- 
guindo esta regra: “'faça uma rotação 
em torno do centro da tela, segundo um 
ângulo fixo, só que com uma ligeira mo- 





Uma regra simples produz o caos. 


ІШІНЕН cesso o2 PROGRAMÁFAO BASIC COS. ER GR E HA RE LI 


dificação”. Sem esta “ligeira modifica- 
ção”, todas as curvas seriam círculos 
concêntricos — e, de fato, as mais pró- 
ximas do centro se assemelham a círcu- 
los. O efeito dessa modificação tem 
maior impacto sobre as curvas externas, 
que acabam formando um conjunto de 
“ilhas”. Se pudéssemos ampliar mais o 
desenho, distinguiríamos várias ilhas 
menores, distribuídas entre as que po- 
demos observar agora. 

No programa, o número de pontos 
iniciais é M, na linha 60: caso você não 
queira esperar tanto para ver o desenho 
completo, diminua esse valor. Cada 
ponto é desenhado NMAX ou NM ve- 
zes; o valor é especificado na linha 50. 
A regra fica nas linhas 100 e 110, que 
determinam de que modo as coordena- 
das vertical e horizontal serão modifi- 
cadas a cada repetição. O ângulo fixo 
de rotação é dado por A em graus, na 
linha 20; experimente valores diferentes 
(recomendamos 90). 

O programa apresentado a seguir ge- 
ra um padrão surpreendente, a partir de 
um ponto inicial: 








20 LET K=51.3: BORDER O: INK 
7: PAPER 0: CLS 

30 LET X=1/PI: LET P=0 

40 LET A-1/SQR 5 

50 FOR TO 10000 

60 LET -.5: LET X-X*A-INT 
(X*A) 

70 LET P-P-Y 

80 PLOT X*255,P*K*85 

90 NEXT N 


10 COLOR 15,1,1:SCREEN 2 
20 К-60:Х-1/(4%АТМ(1)):Р-0 
30 А-1/508(5) 


Mudangas em uma populagáo de peixes. 





40 FOR N=1 TO 10000 


50 Y=X-.5:X=X+A-INT(X+A) 
60 P=P-Y 

70 PSET(X*255,128-P*K) 
80 NEXT N 

90 GOTO 90 





10 HGR2 :K = 40 


20Х = 1 / (4 * ATN (1)):P = 0 
30 A= 1 / SQR (5) 

40 FOR N = 1 TO 10000 

509 Y= X- .SX=X+A - INT 
(X + A) 

60 P =P - Y 

70 HCOLOR= 3: HPLOT X * 279,10 
0-Px*K 

80 NEXT N 


10 PMODE 4,1:PCLS1:SCREEN 1,0:K 
=60 

20 X=1/(4*ATN(1)) 
30 /80й (5) 

40 FOR N-1 TO 10000 


p=0 









50 -.5:Х=Х+А-1МТ(Х+А) 
60 zv 
70 PRESET (X*255,128-P*K) 
B0 NEXT N 


90 GOTO 90 


Esse programa é uma simulacào da 
ressonáncia, que ocorre quando dois fe- 
nómenos físicos tém freqüéncias coin- 
cidentes ou múltiplas. Por exemplo, um 
dos fenômenos pode ser a órbita de um 
asteróide em torno do sol; o segundo, 
a perturbação dessa órbita pela atração 
gravitacional de Júpiter. Podemos nos 
perguntar: as perturbações causadas pe- 
lo grande planeta serão capazes de ar- 
rancar o asteróide de sua órbita? Tudo 
depende da razão entre as duas freqüén- 
cias (a razão é obtida dividindo-se uma 
pela outra). As partículas dos anéis de 








Saturno estáo sujeitas a esse tipo de 
efeito. 

No programa, a razáo é chamada de 
A e seu valor (menor que 1) está na li- 
nha 30. O número de repetições da res- 
sonância é 10000 (final da linha 40); re- 
duza esse valor caso não queira esperar 
muito. A transformação da ressonância, 
nas linhas 50 e 60, é obtida por meio de 
uma regra que modifica as posições ho- 
rizontal (X) e vertical (P) dos pontos na 
tela. 

Um delicado padráo em “cortina” é 
obtido com A = 1/SQR(5), ou seja, 
0.4472136. Como esse valor não corr 
ponde à razão entre dois números intei- 
ros (em termos do computador, trata- 
se de um número irracional), ele é não- 
ressonante. Para chegar à ressonância, 
temos que atribuir a A um valor que se- 
ja a razão entre dois números inteiros 
— como 9/20, que vale 0.45. Tente tam- 
bém um outro número irracional, como 
1/PI. Se quiser reduzir a escala vertical, 
diminua o valor de K. 


CAOS 


Observe que certas regras simples nào 
produzem nenhum padráo. O próximo 
programa ilustra o fenómeno. $, 


10 BORDER 0: 





PAPER 0: INK 7: 
LET X=1/PI 

LET Y-1/PI 

FOR M=1 TO 10000 

LET X=X+Y-INT (X+Y) 

LET Y-X*Y-INT (X*Y) 

PLOT X*255,Y*175 

NEXT M 


nu 


COLOR 15,1,1:SCREEN 2 
PT=4*ATN (1) :X=1/PI 
Y=1/PI 

FOR M=1 TO 10000 
X=X+Y- INT (X+Y) 

Y =X+Y- INT (X+Y) 


70 PSET(X*255,192-Y*191) 

80 NEXT M 

90 GOTO 90 

10 HGR2 

20 PI * 4 * ATN (1):X * 1 / PI 
30Y *1/ PI 

40 FOR M = 1 TO 10000 
5S0X-X-*Y- INT (X * Y) 
60Y-2X-*Y- INT (X * Y) 

70 HCOLOR- 3: HPLOT X * 279,19 


2 - Y * 191 
80 NEXT M 





РМОПЕ 4,1:РСІ,51:5СВЕЕМ 1.0 
PI-4*ATN(1):X-1/PI 

Y=1/PI 

FOR M=1 TO 10000 
X2X*Y-INT (X*Y) 

Y=X+Y-1NT (X+Y) 

PRESET (X*255,192-Y*191) 
NEXT M 

GOTO 90 


Esse programa simula o vaivém errá- 
tico das bolas de um fliperama, o mo- 
vimento das moléculas de um gás, ou 
qualquer outro sistema de órbita táo im- 
previsível que se torna impossível distin- 
gui-la de um processo aleatório. Con- 
vém notar, porém, que os 10.000 pon- 
tos desenhados na tela náo sáo aleató- 
rios, resultando da repetigáo de uma re- 
gra determinística, ou seja, que nào 
abriga nenhum elemento de acaso. A re- 
gra considera a tela como um quadra- 

lo unitário onde as coordenadas verti- 
cais e horizontais variam entre zero e 
um. Ela opera em três etapas, nas linhas 
50 e 60 do programa. Primeiro, as coor- 
denadas X e Y do último ponto são so- 
madas para produzir um novo X; de- 
pois, esse X é somado a Y, resultando 
em outro Y; finalmente, se X ou Y fo- 
rem maiores que 1, um nümero inteiro 
apropriado é subtraído para que as 
coordenadas permaneçam no intervalo 
válido. 


POPULAÇÕES DE PEIXES 


Como a população de peixes de um 
lago varia ao longo das gerações? Isto 
depende dos fatores que condicionam as 
mudanças populacionais de uma gera- 
ção para a outra. Para definir uma re- 
gra, devemos considerar tanto a tendên- 
cia ao crescimento populacional resul- 
tante da reprodução, como a tendência 
à redução, determinada pela quantida- 
de de alimento disponível no lago. Con- 
forme o equilíbrio estabelecido entre es- 
ses dois fatores, a população pode ficar 
estável, alternar entre um ou mais valo- 
res, ou variar de tamanho ao acaso, ao 
longo das gerações. 

O programa dado a seguir ilustra o 
fenômeno. A posição horizontal, A, 
corresponde à razão entre disponibilida- 
de de alimento e taxa de natalidade, re- 
presentando assim as sucessivas gera- 
ções. A posição vertical Y corresponde 
ao tamanho da população, que aumen- 
ta ou diminui alguns pontos conforme 
as gerações se sucedem. O tamanho da 
população Y só é colocado na tela quan- 
do se encontra em equilíbrio, isto é, 
quando assume um valor estável ou al- 
terna entre dois ou mais valores, que são 


denominados pontos de atração. No 
Spectrum e no TRS-Color, um som de 
freqüéncia proporcional ao tamanho da 
população é emitido. 


10 BORDER 0: 
сіз 

20 LET 87.03: 
LET NMAX-80 
30 FOR A=2.8 TO 4 STEP S 

40 LET Y=1/PI 

50 FOR N=1 TO NMAX 

60 LET Y-A*Y*(1-Y) 

70 IF N>NMIN THEN PLOT 255*( 
A-2.8)/1.2,Y*175 

80 SOUND .0075,Y*20 


INK 7: PAPER 0: 


LET NMIN=50: 





90 NEXT N 

100 NEXT À 

10 COLOR 15,1,1:SCREEN 2 
20 8=1/127:NN=5 X-80 
30 FOR A=2.8 TO 4 STEP S 
40 Ү-.25/АТМ(1) 

50 FOR N=1 TO NX 


Y-A*Y* (1-Y) 

IF N»NN THEN PSET(255*(A-2.8 
.)/1.2,192-Y*191) 

90 NEXT N 

100 NEXT A 

110 GOTO 110 


19] 


10 HGR2 

208 -1 / 127:NN - 50:NX - 80 
30 FOR A = 2.8 TO 4 STEP S 

40 Y = .25 / ATN (1) 

50 FOR N - 1 TO NX 

BD Y» AT TY UY) 

70 IF N > NN THEN HPLOT 279 * 
(А = 2.8) / 1.2,192 - Y * 192 
90 NEXT N 

100 NEXT À 





PMODE 4,1:PCLS1:SCREEN 1,0 
8=1/127:NN=50 :NX=80 

FOR A=2.8 TO 4 STEP S 
Y=.25/ATN(1) 

FOR N=1 TO NX 

Y-A*Y* (1-Y) 

IF N>NN THEN PRESET (255*(A- 


70 
2.8)/1.2,192-Y*191) 
80 SOUND 1+255*Y,1 
90 NEXT N 

100 NEXT A 

110 GOTO 110 


Como vocé pode observar, os pontos 
de atração modificam-se drasticamente 
à medida que a disponibilidade de ali- 
mento aumenta. No início (lado esquer- 
do da tela), só há um valor de atração, 
indicando uma população estável. Isso 
significa que o alimento é suficiente pa- 
ra os peixes sobreviverem e se reprodu- 
zirem. Se a população crescer demais, 


haverá menos alimento e alguns peixes 
morrerào. Com a maior disponibilida- 
de de alimento para os sobreviventes, à 
população volta a crescer, podendo, em 
seguida, passar por uma nova fase de es- 
tabilidade 

Subitamente, quando A assume um 
certo valor, a quantidade de alimento ul- 
trapassa determinado limite. Passam a 
existir, então, dois pontos de atração e 
a curva se bifurca — indicando que o 
tamanho da população agora se alterna 
entre dois valores. Mais tarde, quando 
a quantidade de alimento se torna ain- 
da maior, a curva se bifurca mais uma 


vez, aumentando o número de pontos 
de atração. Mais e mais divisões vão 
ocorrendo em uma segiiência infinita, 
da qual o programa só tem resolução 
para mostrar os primeiros passos. As bi- 
furcações se acumulam e infinitos pon- 
tos de atração passam a corresponder a 
um certo valor finito de A. Em conse- 
quiência, a população varia sem nunca 
se estabilizar. 

A descoberta dessa “árvore de bifur- 
cações””, que acaba num completo caos, 
despertou grande interesse na comuni- 
dade científica, por ter diversas aplica- 
ções. Ela retrata, por exemplo, a modi 


sa de um estágio moderado (ponto de 
atração estável) para um turbulento 
(caos), conforme a velocidade aumen- 
ta. O mesmo efeito pode ser observado 
na fumaça de um cigarro, que sobe sua 
vemente e de repente desenvolve espi- 
rais, terminando em turbulência. 

No programa, a lei de evolução está 
na linha 60. Para ampliar a resolução, 
altere a linha 20 de forma que S = .005, 
NMIM ou NM = 200 e NMAX ou NX 
= 300. No Spectrum e no TRS-Color, 
apague a linha 80 para aumentar a ve- 
locidade do programa. 








AVALANCHE: 


A parte do programa aqui apresen- 
tada permite que Willie se movimente 
para cima e para baixo, no mesmo lu- 
gar — ou seja, nosso pobre personagem 
aprende, a tempo, a saltar sobre as pe- 
dras que se aproximam. 

Willie já pode andar, mas isso nào o 
ajudará muito na hora de enfrentar a 
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OS SALTOS DE WILLIE 


avalanche. Vamos fazë-lo saltar, de mo- 
do que as pedras passem rolando sob 
suas pernas, sem atingi-lo. 


org 59336 
mp 1d de,6 
ld h1,759 
call 949 

ld a, (57335) 
cpl 

jr nz,mjb 
inc a 

14 (57335),а 
1d hl,(57332) 
ld de,32 

sbc hl,de 

ld (57332) ,h1 
ld bc,57048 
ld a,40 

ld de,259 
call 58970 
ret 

mjb cp 2 

jr nz,mjc 
inc a 

14 (57335),а 
ld hl,(57332) 
1d bc,57000 
14 а,40 

1d de,258 
call 58970 
ld de,64 

add hl,de 

ld a,45 

ld bc,15616 
call 58217 
ret 

пос cp 3 

jr nz,mjd 

inc a 

1d (57335),a 
ld hl1,(57332) 
ld bc,57048 
14 а,40 


ВЕМ 
ВЕМ 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


20 
30 
40 
50 
60 
70 
80 
90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
*280 
290 
300 
310 


330 
340 
350 
360 
370 
380 
390 
400 





Nosso personagem náo pode mesmo 
confiar em sua sorte. Surpreendido por 
uma avalanche táo logo comecou à 
caminhada, conta apenas com um recurso 
para escapar das pedras: saltar sobre elas. 





REM 
REM 


ld de,259 { 
са11 58970 
14 de,32 

add hl,de 

ld (57332),hl 
ret 

mjd cp 4 

jr nz,mfj 

14 а,0 

ld (57335),а 
ld hl,(57332) 
1d de,32 

sbc hl,de 

ld bc, 15616 
1d a,45 

call 58217 

Jp 59153 

mfl ret 


410 
420 
430 REM 
440 REM 
450 REM 
460 REM 
4/0 REM 
480 REM 
490 REM 
500 REM 
510 REM 
520 REM 
530 REM 
540 REM 
550 REM 
560 REM 
570 REM 
580 REM 


Para montar essa rotina na mes- 
ma seqüéncia da que demos no ar- 
tigo anterior, elimine o ret que foi 
colocado temporariamente como 
ültimo comando. Em seu lugar, en- 
tra o rótulo jmp, que significa salto. 

Assim que começa a ser executa- 
da, nossa rotina faz o computador 
emitir um sinal sonoro. Para isso, 
chama a rotina BEEP da ROM, que 
fica no endereço 949. Os parâme- 
tros adequados são mostrados nos 
pares de registros HL e DE. 


A rotina dousalto compõe-se de 
quatro partes; gada uma delas é exe- 
cutada a seu, tempo, quando a roti- 
na de movimentação é chamada. 

No últimó Artigo, mostramos 
queo processador é direcionado pa- 
ra a rotina [Mp $ o conteúdo da po- 
sição de memória 57335 não é ze- 
ro. Expliçamos fimbém como еха- 
minar offeclado para detectar qual- 
quer pressao sobreas teclas M e N. 


а» 
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44 CODIGO DEMAQUINA 44 






























4 п AS QUATRO PARTES AJUSTAMENTO 
DA ROTINA DE SALTO DOS APONTADORES DE TELA 
a _SALTO VERTICAL WILLIE ESTÁ NO AR 
) ü E SALTO DIAGONAL DE VOLTA AO SOLO 
п EFEITOS SONOROS FIM DO SALTO 
— 

























































Se apenas a tecla N foi pressionada 
e Willie deve saltar, a posigáo de memó- 
ria 57335 é carregada com 1, que irá di- 
recionar o processador para a rotina 
aqui apresentada na próxima vez que o 
programa principal — que controla o jo- 
go — chamar a rotina de movimenta- 
gáo. Caso as teclas M e N tenham sido 

ressionadas, Willie deve saltar para a 

rente (em diagonal); 129 é, entáo, car- 
regado em 57335. Esta situação será de- 
vidamente analisada no próximo artigo 
da série Avalanche. 

Por hora, imagine apenas que a roti- 
na de movimentação de Willie consta- 
tou que houve uma pressão sobre a te- 
cla N, na última vez que foi chamada. 
Agora ela voltou a ser chamada, o que 
fez o processador direcionar-se exata- 
mente para nossa rotina. Depois da 
emissão do som que caracteriza o início 
de sua execução... 

O conteúdo da posição de memória 
57335 é carregado no acumulador ou- 
tra vez. Embora ele já estivesse ali quan- 
do esta rotina foi chamada, é provável 
que a rotina BEEP tenha utilizado o 
acumulador para realizar o efeito sono- 
ro do salto. Assim, convém carregar o 
valor em A novamente. 

Depois, o conteúdo de A é compara- 
do com 1. Naturalmente, esse valor es- 
tá presente; em conseqüéncia, a próxi- 
ma instrução, jr nz,mjb, não é executa- 
da e o processador continua com inc a. 
Isto incrementa o conteúdo do acumu- 
lador para 2, valor que é colocado de 
volta em 57335 por Id (57335),a. Incre- 
menta-se, assim, o contador de salto, 
para que a rotina de movimentação 
acione a rotina jmp na próxima vez que 
for chamada. Nesse ponto, porém, a 
primeira parte do salto será deixada de 
lado; o processador executa a segunda 
parte. Como você devc ter reparado, ca- 
be à instrução cp 1, seguida da instru- 
ção jr nz,mjb, fazer o processador sal- 

tar para a segunda parte. 

A posição de Willie na tela é en- 
tão carregada dos endereços 57332 
€ 57333 para o par de registros HL. 
O valor 32 é subtraído dessa posi- 
ção e colocado em DE. Com a exe- 


2 cucáo de sbc hl, de, o apontador se 











move para a posição imediatamen- 
łe acima de Willie na tela. O resul- 












tado é carregado de volta nos enderecos 
57332 e 57333, que contém a posigáo do 
personagem na tela. 

Embora essa posição tenha sido co- 
locada nos endereços, ela ainda perma- 
nece no par HL. Todos os ld são essen- 
cialmente operações de cópia que colo- 
cam o valor na nova posição ou regis- 
tro, mantendo esse valor na posição ou 
registro de origem. No nosso caso, isso 
é importante, pois, para chamar a roti- 
na de impressão de bloco em 58970, a 
posição de impressão na tela precisa es- 
tar no par de registros HL. 

O par BC, com o apontador de da- 
dos para a primeira figura de Willie sal- 
tando, é carregado em 57048. Esses da- 
dos foram apresentados em um artigo 
anterior de Avalanche e podem ser lidos 
numa tabela de dados na memória. 

A é carregado com 40 — código de 
azul sobre ciano, a cor de Willie — e 
DE, com 259. Isso faz com que a rotina 
de impressão de bloco imprima um blo- 
co um por três — 259 carrega 1 no re- 
gistro D e 3 no registro E; 1 x 256 + 3 
= 259. A rotina de impressáo de bloco 
em 58970 é entáo chamada e imprime a 
figura de Willie saltando. 

Em seguida, o processador retorna da 
rotina. 


WILLIE ESTÁ NO AR 


A próxima párte da rotina de salto é 
chamada quando se aciona novamente 
a rotina de movimentação. Mais uma 
vez, essa seção começa verificando se a 
posição de memória 57335 contém 2 — 











o que acontecerá se ela estiver sendo 
chamada pela segunda vez. 

Lembre-se de que o conteúdo de 
57335 está no acumulador quando o 
processador salta para essa parte da ro- 
tina; portanto, você não precisa carregá- 
lo de novo. Se o valor 2 está presente, 
o processador continua com a rotina e 
torna a incrementar o contador de sal- 
to com as instruções inc a e Id (57335),a. 
Assim, quando a rotina for chamada na 
próxima vez, a instrução cp 2 não irá en- 
contrar um valor 2 e a instrução jr 
nz,mjc mandará o processador para a 
terceira parte. 

Se o 2 estiver presente e esta parte da 
rotina for acionada, a nova posição de 
Willie no ar é carregada dos endereços 
57332 e 57333 para o par de registros 
HL. BC é carregado com 57000, que 
corresponde ao endereço inicial dos da- 
dos para a figura de Willie de pé com 
as pernas juntas. Esta é a figura que se- 
rá impressa quando, ao saltar, Willie es- 
tiver no alto. 

A é carregado com 40 — azul sobre 
ciano, a cor de Willie. DE é ajustado 
com 258 para imprimir um bloco de um 
por dois — 1 x 256 + 2 = 258. A roti- 
na de impressão em 58970 imprime Wil- 
lie no ar com as pernas juntas. 

O par DE é carregado com 64 e adi- 
cionado ao apontador de tela em HL — 
o que move esse apontador duas linhas 
para baixo. O par HL aponta agora pa- 
ra a cabeça de Willie. Lembre-se de que, 
subtraindo 64 (32 para cada linha), fa- 
zemos com que ele aponte para a posi- 
ção abaixo dos pés do personagem. A 
é carregado com 45 — ciano sobre cia- 
no, apenas um pedaço comum de céu. 
O apontador de dados BC é carregado 
com 15616, o início do conjunto de ca- 
racteres para um espaço em branco. 

A rotina print, no endereço 58217, é 
chamada, imprimindo um espaço em 
branco para apagar a parte da figura de 
Willie que restou da primeira seção da 
rotina de salto. Lembre-se de que um 
bloco de um por três foi impresso ali, 




















e, agora, apenas um bloco de um por 
dois. O processador retorna de novo, até 
a rotina voltar a ser chamada. 


DESCEI 


Na próxima vez, o processador acio- 
nará a terceira parte da rotina de movi- 
mentação. Antes de mais nada, ele ve- 
rifica se é necessário acionar a quarta 
parte da rotina de salto. Em seguida, o 
contador de salto, que ainda está no 
acumulador, é incrementado e armaze- 
nado novamente em 57335, para que 0 
processador pule para a quarta parte da 
rotina na próxima vez. 

O apontador da posição de Willie na 
tela é carregado de volta em HL. O 
apontador de dados em BC é ajustado 
com o mesmo valor utilizado na primei- 
ra parte da rotina de salto. Willie des- 
cerá ao chão pelo mesmo processo que 
subiu. 

A é carregado de novo com 40 — 
azul sobre ciano; DE volta a ser ajusta- 
do com 259 — um por três. A rotina de 
impressão de bloco em 58970 é chama- 
da e imprime Willie descendo. 

O par DE é carregado com 32, valor 
adicionado ao par HL. O resultado é 
carregado de volta em 57332 e 57333. Is- 
so move o apontador de tela uma posi- 
ção para baixo. 

O processador retorna agora com as 
posições dos dados ajustados para a 
próxima parte. 


FIM DO SALTO 


Mais uma vez a rotina comeca com 
um cp, para verificar se esta é a parte 
necessária da rotina de salto. Mas, ago- 
ra, estamos diante da última seção da 
rotina que faz Willie pular. Para que o 
processador chegue até aqui, o conteú- 
do do acumulador deve ser 4 (parte que 
finaliza o salto) ou 129, valor que indi- 
ca que Willie irá saltar para a frente, 
Nesse caso, jr nz,mfj manda o proces- 
sador para outra instrução de retorno, 
no final deste programa. O retorno se- 
rá apagado mais tarde, servindo para in- 
dicar o local onde se inicia a rotina de 
salto à frente, que será fornecida no pró- 
ximo artigo de Avalanche. Desta vez, 
entretanto, nenhum teste será feito e nào 
precisaremos incrementar o contador de 
salto. É necessário que se ajuste o con- 
tador com 0, para que, quando a rotina 
de movimentação for novamente cha- 
mada, o processador execute a parte da- 
da no artigo anterior e verifique se al- 
guma tecla foi pressionada. Isso é feito 
por ld a,0 e Id (57335),a. 


A posição de Willie volta a ser carre- 
gada de 57332 e 57333 para o par de re- 
gistros HL, onde 32 é subtraído através 
do par DE, fazendo o apontador se mo- 
ver uma posição acima na tela. 

BC é carregado com o endereço de 
um espaço vazio e A, com o código de 
ciano sobre ciano. A rotina print, em 
58217, é chamada de novo. Apaga-se, 
assim, o caractere adicional ocupado 
por Willie, impresso na terceira parte da 
rotina de salto. 

A instrução jp 59153 faz o processa- 
dor voltar para o início da rotina de mo- 
vimentação, dada no artigo anterior. 
Como o contador de salto contém ago- 
ra o valor 0, o processador executa a ro- 
tina que imprime Willie parado, apagan- 
do o que restou da antiga figura. 

A última instrução ret da listagem 
tem a função de prevenir que ocorra um 
erro no programa, caso a rotina de sal- 
to para a frente venha a ser chamada. 
Essa instrução será apagada na próxi- 
ma parte do programa. 





10 ORG 20140 

20 JUM JSR CLICK 
30 LDA 18261 

40 CMPA 41 

50 BNE MJA 

60 INC 18261 

70 LDX 18249 

80 PSHS X 

90 LEAX 256,X 
100 LDU $1536 
110 258 CHARPR 
120 PULS X 

130 LEAX -256,X 
140 STX 18249 
150 LDU 417814 
160 JSR CHARPR 
170 LEAX 254,X 
180 LDU 417846 
190 JSR CHARPR 
200 RTS 

210 МЈА СМРА 42 
220 BNE MJB 

230 INC 18261 
240 LDX 18249 
250 LEAX -256,X 
260 LDU $17870 
270 JSR CHARPR 
280 LEAX 254,X 
290 JSR CHARPR 
300 LEAX 254,X 
310 JSR CHARPR 
320 RTS 

330 МЈВ СМРА 43 
340 BNE MJC 

350 INC 18261 
360 LDX 18249 
370 LEAX -256,Х 
380 LDU 41536 
390 JSR CHARPR 
400 LEAX 254,X 
410 LDU 417926 

















420 JSR CHARPR 
430 LEAX 254,X 
440 LDU 417958 
450 JSR CHARPR 
460 LEAX 254,X 
470 LDU 417990 
480 JSR CHARPR 
490 RTS 

500 МЈС СМРА 44 
510 ВМЕ МЕЈ 

520 СІВ 18261 
530 LDX 18249 
540 PSHS X 

550 LDU $1536 
560 JSR CHARPR 
570 PULS X 

580 LEAX 256,X 
590 STX 18249 
600 LDU 417774 
610 JSR CHARPR 
620 LEAX 254,X 
630 JSR CHARPR 
640 RTS 

650 MFJ RTS 

660 CHARPR EQU 19402 
670 CLICK EQU 20847 


A primeira coisa que a rotina JUM 
(ou de salto) faz é chamar a sub-rotina 
CLICK, que toca uma das notas do efei- 
to sonoro do salto. Se vocé ainda náo 
tiver digitado essa rotina, adicione um 
retorno em 20847 por meio da instrução 
POKE, com 57 nesse endereço. Assim, 
não haverá erro quando o programa for 
testado. 


PULANDO POR ETAPAS П 


O acumulador é carregado com o 
conteúdo da posigáo de memória 18261, 
que contém a variável do salto. Inicial- 
mente, ela está carregada com 1 ou 129 
— dependendo de qual tecla foi pressio- 
nada — indicando, portanto, se Willie 
deve pular verticalmente ou dar um sal- 
to á frente. Cada um desses tipos de pu- 
lo é dividido em quatro etapas, execu- 
tadas uma por vez, quando a rotina de 
movimentação é chamada. Para garan- 
tir o acionamento da etapa correta, a va- 
riável do salto é incrementada na exe- 
cução de cada parte. 

Se a variável do salto é 0, utiliza-se 
a seção da rotina que examina o tecla- 
do para ver se uma ordem de pular foi 
dada. Caso a variável de movimentação 
contenha qualquer outro valor que não 
seja 0, o processador vem para esta par- 
te do programa e executa uma das roti- 
nas de salto. 

Se for 1, a primeira parte da rotina 
é acionada. Durante sua execução, a va- 
riável de salto é incrementada, para que, 
na próxima vez que a rotina de movi- 
mentação for chamada, essa seção seja 
evitada e o processador passe para a par- 


te dois. Assim, sempre que a rotina de 
movimentação for acionada, ela chama- 
rá a próxima parte — até que a última 
(a quarta) seja executada e a variável do 
salto volte a ser ajustada com 0. 

Se a última rotina ajustou a variável 
do salto com 129, esta parte é ignora- 
da. A rotina do salto para a frente, que 
daremos no próximo artigo de Avalan- 
che, é então acessada. 


O conteúdo do acumulador é compa- 
rado com 1. Se 1 nào está presente, o 
processador passa para MJA. Caso con- 
trário, o processador continua com es- 
ta parte da rotina. 

A primeira coisa que ela faz é incre- 
mentar a variável em 18261, deixando- 
a pronta para a próxima vez. 

X é carregado com a posição de Wil- 
lie, que está no endereço 18249 e é ar- 
mazenado temporariamente na pilha. O 
apontador em X é incrementado com 
256, movendo-se um caractere para bai- 
xo. U é carregado com 1536, o endere- 
ço do canto superior esquerdo da tela. 
O processador chama então a rotina 
CHARPR, que imprime um bloco de 
céu azul sobre a metade inferior de Wil- 
lie. Se não fizermos isso, as pernas de 
Willie aparecerão em sua posição an- 
terior. 

A posição de Willie é novamente 
guardada na pilha e movida um carac- 
tere para cima pela subtração de 256. O 
resultado é armazenado de volta em 
18249. U é carregado com 17814, ende- 
reço inicial para os dados de Willie com 
as pernas abertas. Em seguida, a rotina 
CHARPR é chamada para imprimir a 
metade superior. 

O apontador de tela é incrementado 
com 254, passando a apontar para o iní- 
cio da metade inferior de Willie. U é re- 
carregado e a rotina CHARPR volta a 
ser chamada para imprimir sua metade 
inferior. 

O processador retorna depois de ter 
imprimido Willie com as pernas abertas 
um caractere acima do chão. 


Quando a rotina de movimentação de 
Willie for novamente chamada, o núme- 
ro no endereço 18261 será 2. Portanto, 
o processador irá pular a primeira par- 
te da rotina publicada no artigo anterior 
ea parte desta rotina que foi dada até 
agora. Mas, quando ele saltar de novo 
para MJA, o conteúdo de 18261, que 





ainda está no acumulador, será compa- 
rado com 2. Na chamada seguinte da ro- 
tina de movimentação, quando o con- 
teúdo do endereço 18261 tiver sido in- 
crementado mais uma vez, a instrução 
BNE MJB mandará o processador ve- 
rificar se seu valor é 3, 4, 129, 130, 131 
ou 132. Desta vez ele executará a próxi- 
ma seção da rotina, imprimindo a figu- 
ra de Willie no segundo estágio do pulo. 

Essa seção também começa incre- 
mentando o conteúdo de 18261, acer- 
tando-o para a próxima chamada da ro- 
tina de salto. Depois, a nova posição de 
Willie é carregada de 18249 para X e de- 
crementada de 256 — o que faz o pêr- 
sonagem se mover um caractere acima 
na tela. Mas agora o resultado não é co- 
locado de volta em 18261. Willie está no 
alto de seu pulo. 

U é carregado com 17870, endereço 
inicial dos dados da nova figura de Wil- 
lie. Desta vez, ele tem três caracteres de 
altura, impressos em três posições — 
CHARPR precisa ser chamada três ve- 
zes e X é decrementado com 254 para 
mover o apontador uma linha abaixo 
em cada chamada. 

Feito isso, o processador retorna. 


Quando a rotina de movimentação 
volta a ser chamada, o conteúdo de 
18261 é 3 e o processador executa a ro- 
tina MJB. Ela começa, mais uma vez, 
incrementando 18261, carregando 18249 
em X e subtraindo 256. 

Só que agora a figura anterior de 
Willie deve ser apagada. U é carregado 
com 1536, o endereço do canto superior 
esquerdo da tela, e a rotina CHARPR 
é chamada, imprimindo a cabeça de 
Willie na tela. O apontador X é incre- 
mentado para indicar a posição inferior 
na tela e U é carregado com o endereço 
dos dados para a impressão do resto da 
figura. 


Se nosso personagem está pulando na 
vertical, mais cedo ou mais tarde o pro- 
cessador irá executar MJC. As instru- 
ções CMPA +4 e BNE chamaráo МЈЕ 
apenas quando Willie for saltar na dia- 
gonal. Mas aquela pequena rotina será 
sempre executada. 

Como chegamos á quarta e última 
parte da rotina que faz Willie pular ver- 
ticalmente, o conteúdo da posição 18261 
não é incrementado. A instrução CLR 
18261 ajusta essa variável com 0; a ro- 





tina de movimentação de Willie é, por- 
tanto, executada e verifica-se, pelo exa- 
me do teclado, se ele deve pular de novo. 

A posição de Willie é carregada em 
X e colocada na pilha de máquina para 
armazenamento temporário. Como a fi- 
gura tem apenas dois caracteres de al- 
tura quando está parada ou andando, 
e três, quando está pulando, o caracte- 
re mais alto tem que ser apagado de no- 
vo. Note que, agora, Willie está numa 


posição intermediária, usada para tor- 
nar O pulo mais suave. 

U é carregado com 1536, que aponta 
para uma parte do céu no topo da tela. 
Quando é chamada, a rotina CHARPR 
apaga a cabeça da figura anterior. 

A posição de Willie é recuperada da 
pilha e adicionada a 256, o que faz a fi- 
gura se mover um caractere abaixo na 
tela. Lembre-se de que sua posição ti- 
nha sido decrementada com 256 no iní- 





cio desta rotina, quando Willie começou 
o salto. Assim, quando o novo valor é 
armazenado em 18261, o personagem 
simplesmente volta para a posição an- 
terior ao do pulo. 

U é então carregado com 17774, en- 
dereço inicial dos dados para a figura de 
Willie com as pernas juntas. CHARPR 
é chamada duas vezes e X é adicionado 
com 254, imprimindo a figura comple- 
ta de Willie na tela. 





































































340 
350 


370 
380 
390 
400 


org 54854 

pl ld a, (-5202) 
cp 1 

jr nz,pb 

inc a 

14 (-5202),а 
1d h1,(-5205) 
1d de,32 

sbc hl,de 

ld (-5205),hl 
ld de, (62407) 
add hl,de 

ld a,10 

push hl 

call 77 

pop hl 

ld de,32 

add hl,de 

14 а,11 

push hl 

call 77 

pop hl 

14 4е,32 

add hl,de 

14 а,255 
са11 77 

ret 

pb cp 2 

jr nz,pc 

inc a 

ld (-5202),a 
ld hº,(-5205) 
ld de, (62407) 
add hl,de 

14 а,0 

push hl 

call 77 

pop hl 

ld de,32 

add hl,de 
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410 14 а,1 
420 са11 77 
430 гес 
440 pc cp 3 
450 jr nz,pd 
460 inc a 
470 14 (-5202),а 
480 ld hl,(-5205) 
490 ld de, (62407) 
500 add hl,de 
510 1d a,10 
520 push hl 
530 call 77 
540 pop hl 
550 14 4е,32 
560 add hl,de 
570 14 а,11 
580 са11 77 
590 ret 
600 pd cp 4 
610 jr nz,mp 
620 ld a,0 
630 14 (-5202),а 
640 ld h1,(-5205) 
650 push hl 
660 1d de, (62407) 
670 add hl,de 
680 14 а,255 
690 call 77 
700 pop hl 
710 ld de,32 
720 add hl,de 
730 ld (-5205),h1 
740 jp 54603 
750 mp ret 
760 end 

SUBINDO 





A rotina de salto é dividida em qua- 
tro partes; cada uma delas é executada 
separadamente quando a rotina de mo- 


т 


vimentação de Willie é chamada. No úl- 
timo artigo, vimos como o processador 
é direcionado para a rotina pl quando 
o conteúdo da posição de memória 
— 5202 não é zero. Vimos também co- 
mo examinar o teclado para descobrir 
se as teclas de controle M e N foram 
pressionadas, individualmente ou ao 
mesmo tempo. 

Se a tecla M foi pressionada e Willie 
deve saltar, a posição de memória 
— 5202 é carregada com 1. Isso fará com 
que o processador seja direcionado pa- 
ra esta rotina na próxima vez que a ro- 
tina principal do jogo chamar a rotina 
de movimentação. 

Se M e N foram pressionadas, Willie 
deve saltar na diagonal e 129 é carrega- 
do em — 5202. Este caso será examina- 
do no próximo artigo. 

Por enquanto, suponhamos que a ro- 
tina de movimentação detectou que a te- 
cla N foi pressionada na última vez que 
foi chamada. Agora, ela voltou a ser 
chamada, o que fez o processador dire- 
cionar-se para a rotina do salto, cuja 
execução se inicia... 

O conteúdo da posição — 5202 da 
memória é carregado novamente no acu- 
mulador. Em seguida, o valor em A é 
comparado com 1. Como a suposição 
feita exige que o valor seja 1, a instrução 
seguinte, jr nz,pb, não é executada e o 
processador continua com inc a. Com is- 
so, o conteúdo do acumulador passa a 
ser 2 — valor que é colocado de volta 
em — 5202 pela instrução Id ( — 5202), a. 
Incrementa-se, assim, o contador de sal- 
to para que, na próxima vez que a rotina 
de movimentação for chamada, ela acio- 
ne a rotina pl. Neste ponto, porém, a pri- 
meira parte do salto é deixada de lado 
e o processador executa a segunda. 

A posição de Willie na tela é carre- 
gada dos enderecos — 5205 e — 5204 no 
par HL. O nümero 32 é subtraído dessa 
posição e colocado em DE; a instrução 
sbe h1, de é executada. Isso coloca o 
apontador de posição um caractere aci- 
ma de Willie na tela. O resultado é car- 
regado de volta nos endereços que 
contêm a posição de Willie, — 5205 

e —5204, 

Embora esse valor tenha sido 
colocado nos endereços, ele per- 
manece no par HL. Todos os ld 

são essencialmente operações de 
ópia, que colocam o valor na nova 
posição ou registro, mantendo esse va- 
lor na posição ou registro de origem. No 
nosso caso isso é importante, pois o va- 
lor em HL é somado ao endereço inicial 
da Tabela de Nomes da VRAM, passan- 
do a apontar para a posição de Willie 
na TN. 
O acumulador é carregado com 10, 














ІШІНЕН I 


código do primeiro padrào da figura de 
Willie subindo, com as pernas abertas. 
O apontador no par HL é guardado na 
pilha e a rotina 77 da ROM é chamada. 
Essa rotina escreve o valor de A no en- 
dereco da VRAM apontado por HL — 
o que equivale, aqui, a colocar o padrão 
na tela. 

O apontador é recuperado da pilha 
e somado com 32, voltando-se para uma 
posição abaixo da anterior. A é carre- 
gado com 11, código do segundo padrão 
da figura de Willie. O apontador é no- 
vamente guardado na pilha e a rotina 77 
da ROM é chamada. 

A figura de Willie saltando já está 
completa. Falta só apagar uma parte da 
figura anterior. Para isso, recupera-se o 
apontador da pilha e adiciona-se 32, fa- 
zendo-o apontar para o padrão que se 
pretende eliminar. O código do padrão 
de céu, 255, é colocado em A e a rotina 
77 é chamada, apagando parte da figu- 
ra anterior. Em seguida, o processador, 
retorna. 


WILLIE ESTÁ NO AR 


A segunda parte da rotina de salto é 
chamada assim que se aciona a rotina 
de movimentaçào. Como as outras par- 
tes, ela comega verificando se a posigáo 
de memória —5202 contém 2 — o que 
acontece se esta parte ainda nào foi exe- 
cutada. 

Lembre-se de que o conteüdo de 

— 5202 está no acumulador quando o 
processador aciona esta parte — portan- 
to, nào é necessário carregá-lo outra vez. 
Se o valor 2 está presente, o processa- 
dor continua com a rotina e incrementa 
o contador de salto com as instruções 
inc a e ld ( — 5202), a. Quando esta par- 
te for acessada na próxima vez, cp 2 nào 
irá encontrar o valor 2 e jr nz,pe man- 
dará entáo o processador para a ter- 
ceira parte do salto, 

Se o valor 2 estiver presente e esta 
parte da rotina foi acionada, a atual po- 
sição de Willie é transferida dos ende- 
reços — 5205 e — 5204 para o par de re- 
gistros HL. O par DE é carregado com 
o endereço inicial da TN da VRAM e so- 
mado em HL. O acumulador é carrega- 
do com 0, o código do primeiro padrão 
da figura de Willie parado. O aponta- 
dor em HL é guardado na pilha e a ro- 
tina 77 da ROM é chamada. 

O apontador é recuperado da pilha 
e somado com 32 por meio de DE, o que 
o faz se mover uma posição para bai- 
xo. A é carregado com 1, o código do 
segundo padrão da figura. A rotina 77 
é chamada de novo. Neste ponto, Wil- 
lie está impresso no ar com as pernas 








juntas. Observe que agora não é preci- 
so apagar nada, pois a figura foi impres- 
sa sobre a anterior. 

O processador retorna da rotina até 
a próxima chamada. 


DESCENDO 


Desta vez, o processador executa a 
terceira parte da rotina de salto. Primei- 
ro, ele verifica se é necessário acionar a 
quarta parte do salto. 

Em seguida, o contador de salto, que 
ainda está no acumulador, é incremen- 
tado e devolvido a — 5202, para que o 
processador passe para a quarta parte 
na próxima vez. 

O apontador de Willie na tela é car- 
regado no par HL. O par DE é carrega- 
do com o endereco inicial da TN da 
VRAM e somado em HL. Em seguida, 
a mesma figura da primeira parte é im- 
pressa de maneira idéntica, utilizando a 
rotina 77 da memória ROM. O proces- 
sador retorna desta parte. 


FIM DO SALTO 


Mais uma vez a rotina inicia com um 
ep, verificando se esta é a parte neces- 
sária da rotina de salto. Para que o pro- 
cessador chegue até aqui, o conteúdo do 
acumulador deve ser 4 ou 129. Se for 4, 
esta é a última parte da rotina do salto; 


se for 129, Willie irá saltar na diagonal. | 


Nesse caso, a instrucáo jr nz,mp man- 































da o processador para a instrugáo de re- 
torno do final deste programa. Essa ins- 
trução será apagada pela rotina de sal- 
to diagonal, que apresentaremos no pró- 
ximo artigo de Avalanche. 

Nenhum teste será feito, nem preci- 
saremos incrementar o contador de sal- 
to. É necessário, porém, ajustar esse 
contador com zero, para que, quando 
a rotina de movimentação for chamada 
de novo, o processador execute a primei- 
ra parte, dada no artigo anterior, que 
verifica se alguma tecla foi pressionada. 
Isso é feito pelas instruções Id a,0 e Id 
(-5202),а. 

A posição de Willie é mais uma vez 
carregada no par HL, sendo armazena- 
da na pilha. O endereço inicial da TN 
da VRAM é colocado em DE e somado 
ao valor de HL. O acumulador é carre- 
gado com 255, o código do padrão de 
céu. A rotina 77 da ROM é chamada, 
apagando parte da figura anterior. 

A posição de Willie é recuperada da 
pilha para HL, somada com 32 através 
de DE e, finalmente, devolvida aos en- 
dereços — 5205 e — 5204. 

A primeira rotina de movimentação 
de Willie é chamada por jp 54603. Não 
se preocupe com o que restou de sua fi- 
gura, pois nossa rotina apagará todos os 
vestígios indesejáveis. 

O último ret da listagem é colocado 
apenas para prevenir possíveis erros, que 
ocorreriam se a rotina de salto diagonal 
fosse chamada sem estar presente na me- 
mória. Essa instrução será apagada pe- 
la parte do programa dada no próximo 
artigo de Avalanche. 







Para ganhar a quina da loto, basta 
escolher cinco nümeros ao acaso — 
os cinco números certos, é claro. 

Veja aqui algumas dicas estatísticas 
para programar eventos aleatórios. 








Os engenheiros constroem modelos 
em miniatura, para testar suas proprie- 
dades. Quando fazem isso, estáo simu- 
lando um sistema. O programa do arti- 
go da página 1121 executa algo bem pa- 
recido: ele simula um evento, oferece: 
do resultados compatíveis com a reali 
dade. Veremos agora como combinar os 
princípios da simulação e da estatística 
para resolver problemas de ordem prá- 
tica e para acrescentar a nossos jogos 
uma dose de realidade. 


OS DE MODELO 


Um modelo é uma representação sim- 
plificada de um sistema real, por meio 
da qual se procura explicar ou prever as 
características e o comportamento des- 
se sistema. Existem três tipos de mode- 
lo — icônico, análogo e simbólico —, 
nem todos úteis aos usuários de micro- 
computadores. 

Modelos icônicos não possuem par- 
tes móveis. Maquetes de estradas e pré- 
dios incluem-se nessa categoria. Ao pro- 
jetar a construção de uma ponte sobre 
um estuário, por exemplo, engenheiros 
civis providenciam uma maquete da 
ponte e da área adjacente, a fim de es- 
tudar os efeitos da maré, da correnteza 
e do vento. Embora se utilizem compu- 
tadores para interpretar os resultados, 
a necessidade de coletar dados através 
de um experimento torna a simulação 
dispensável, 

Modelos análogos representam um 
fenômeno — ou quantidade — por ou- 
tro. É o caso de um economista que, pa- 
ra representar o fluxo de dinheiro na 
economia mundial, utiliza o fluxo de 
água de um conjunto de tanques cheios 
até diferentes níveis. Esse tipo de repre- 
sentação pode ser feito eletronicamente 
— empregando-se computadores analó- 
gicos e não digitais. 

O terceiro tipo de modelo, o simbó- 
lico, é o que apresenta particular inte- 
resse para o usuário do micro. 


Num modelo simbólico, representa- 
se determinado sistema por meio de uma 







































































































fórmula matemática. Para estudar a dis- 
tância S percorrida por um carro que se 
desloca à velocidade constante Y por um 
certo período de tempo T, um modelo 
adequado seria S = V*T. Essa equação 
é chamada determinística, pois não 
comporta nenhum elemento de incerte- 
za ou acaso. 

Existem, contudo, eventos que não 
podem ser previstos com tal grau de pre- 
cisão. Temos um bom exemplo disso no 
programa apresentado no artigo da pá- 
gina 776, que simula o lançamento de 
uma moeda. Modelos que descrevem fe- 
nômenos que incluem um elemento de 
acaso são chamados estocásticos. Este 
é o tipo de evento que se costuma simu- 
lar, especialmente em jogos. 

Algumas variáveis só podem assumir 
valores discretos como 0, 1, 2, 3... O nú- 
mero de gols em uma partida de fute- 
bol pertence a essa categoria. Quando 





mulamos variáveis aleatórias como es- 
sa, precisamos sempre levar em conta 
que certos processos aparentemente di- 
ferentes têm, na realidade, a mesma es- 
trutura. 

Tomemos como exemplo o programa 
que simula o lancamento da moeda. Ele 
poderia ser facilmente modificado a fim 
de fornecer os resultados de um jogo de 
dados ou da cobranga de pénaltis. Em 
todas essas circunstáncias há um certo 
número de eventos independentes, cada 
qual com uma probabilidade definida. 
No caso de langarmos uma moeda qua- 
tro vezes, vários resultados sáo possí- 
veis: quatro caras, trés caras e uma co- 
roa, duas caras e duas coroas, uma ca- 
ra e trés coroas, quatro coroas. Cada um 
dos resultados, porém, tem uma proba- 
bilidade definida. Os processos desse ti- 
po, conhecidos como processos de Ber- 
noulli, são formados por variáveis alea- 






















































tórias discretas. Eles nào se prestam, por 
exemplo, para descrever o nümero de 
acidentes do campeonato mundial de 
' Fórmula-1 ou o número de chamadas te- 
lefónicas que chegam a uma central em 
meia hora. Nessas situações, os eventos 
ocorrem ao acaso durante um certo pe- 
ríodo de tempo e não são o resultado de 
experimentos sucessivos. Tais processos 
são denominados processos de Poisson. 
Para obter uma distribuição de Pois- 
son, digite este programa: 


10 BORDER 0: PAPER 0: INK 7: 
cLS 
20 POKE 23658,0 
40 PRINT AT 1,6; 
) IMULACAO DE POISSON ": 
PRINT 


50 INPUT "QUAL E O VALOR MEDI 


INVERSE 1;”S 
PRINT 







































= TIPOS DE MODELO M “SIMULAÇÕES 
m INCERTEZAS Ш DISTRIBUICÁO UNIFORME 
" PROBABILIDADE E Ш DISTRIBUIÇÃO NORMAL 

COMPORTAMENTO ALEATÓRIO W DISTRIBUIÇÃO EXPONENCIAL 
= VARIÁVEIS ALEATÓRIAS Ш COMPARAÇÃO DE EVENTOS 








о "ja 
70 INPUT "TAMANHO DA AMOSTRA 
"in 

80 FOR 
90 LET 
100 LET 


ї=1 TO n 

c=0: LET t=1 
в=ЕХР (-а) 

110 LET t-t* (RND*1) 

120 IF t<=s THEN PRINT " 
т, GOTO 150 

LET c=c+l 

GoTo 110 

150 NEXT à 

160 INPUT " OUTRA AMOSTRA 
N) ?";98 

170 IF g$-"s" 
180 STOP 








130 
140 


(8/ 


THEN GOTO 10 


10 R=RND (-TIME) 

30 CLS:WIDTH 40 

40 PRINT "Distribuão de Poisson 
"PRINT: PRINT 

50 INPUT "Qual é o valor da méd 
1a";A 

60 PRINT 

70 INPUT "Tamanho da amostra”;N 
80 FOR I=1 TO N 

90 C=0:T=1 

100 S=EXP(-A) 

110 T=TXRND(1) 

120 IF T<=S THEN PRINT LEFTS(ST 
R$(C)*" ",8);:GOTO 150 
130 C=C+1 

140 GOTO 110 
150 NEXT 1 

160. PRINT: INPUT 
(Y/N) "¡65 
170 IF GS="y" 
180 END 


"Outra amostra 


THEN 30 


30 HOME 
40 PRINT TAB( 9);"DISTRIBUICA 
O DE POISSON": PRINT PRINT 


50 INPUT "QUAL O VALOR DA MEDI 
А "А 
60 PRINT 

"TAMANHO DA AMOSTRA " 


70 INPUT 


iN 
80 FOR I 1 TON 
90 C =0:T = 1 


100 S = EXP ( - A) 

110 T = T * RND (1) 

120 IF T< = S THEN PRINT L 

EFT$ ( STR$ (C) * " *,8)1 
бото 150 

130 C€ = C + 1 

140 GOTO 110 

150 NEXT I 

160 PRINT INPUT "OUTRA AMOST 

RA (S/N) ":65 












170 IF G$ - "S" THEN 30 
180 END 
30 cLS 


40 PRINT €6,"simulacao de poiss 
on" :PRINT:PRINT 

50 INPUT"QUAL E O VALOR MEDIO " 
¡A 

60 PRINT 

70 INPUT"TAMANHO DA AMOSTRA 7;М 
80 FOR I=1 TO N 

90 C=0:T=1 

100 S=EXP(-A) 

110 T=T*RND(0) 

120 IF T<=S THEN PRINT LEFTS(ST 
R$(C)*" 7,8) ::GOTO 150 
130 C=C+1 

140 GOTO 110 

150 NEXT I 

160 PRINT:INPUT"OUTRA AMOSTRA ( 
S/N) ";G$ 

170 IF GS-"S" THEN 30 

180 END E 


Ao ser executado, o programa soli- 
cita o valor médio, bem como o nüme- 
ro de elementos da amostra. A parte 
principal do programa (linhas 80 a 150) 
usa uma equação para gerar as variáveis 
de Poisson. A variável S recebe o valor 
de e (uma constante matemática) eleva- 
da ao valor de A (valor da média). A li- 
nha 110 escolhe um número aleatório 
entre 0 e T. A linha 120 compara as va- 
riáveis S e T para decidir se imprime ou 
nào uma variável C. 

Suponhamos que você queira criar 
um jogo onde uma nave espacial enfren- 
ta uma chuva de meteoritos. Se o núme- 
ro médio de ‘‘colisões” em um período 
de um minuto é dois, e vocé precisa de 
cinco simulações de um minuto, o com- 
putador poderá fornecer o resultado 2, 
3,2, 1,0 como amostra do número de 
choques que a nave sofrerá em um mi- 
nuto. Cada valor não é muito diferente 
de 2 (a média) e há cinco valores — o 
tamanho da amostra. 

Poderíamos usar a mesma técnica pa- 
ra simular os resultados de uma série de 
partidas de futebol? É claro que sim. Es- 
taremos lidando com uma variável dis- 
creta, pois o número de gols em uma 
partida só pode assumir valores inteiros. 
Gols são eventos que ocorrem ao aca- 
so, em determinado espaço de tempo — 
e não o resultado de um certo número 


de experimentos repetidos. Portanto, 
nesse caso, um processo de Poisson é 
adequado. 

Além do número de partidas, preci- 
saremos escolher a média de gols por 
partida. Este é o momento de buscar da- 
dos no mundo real. A tabela abaixo 
mostra a média de gols por partida nos 
campeonatos da primeira divisão ingle- 
sa entre 1977 e 1983. 


da casa 
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2222. 
25822 
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Baseados nesses valores, podemos es- 
timular uma média de 1.7 gols por par- 
tida para o time da casa e de 1.0 para 
o time visitante. Dividindo esses núme- 
ros por dois, obteremos as médias de 
0.85 e 0.5 para meio tempo de jogo. De 
posse desses dados, fica fácil elaborar 
o programa: 


20 DIM a$(25,10): DIM h$(25, 
10): DIM h(50): DIM a(50): 
DIM £(50): DIM q(50) 
30 BORDER 0: PAPER 0: 
cLs 

50 PRINT AT 0,8; 
PLACAR FINAL " 
70 INPUT " QUANTAS PARTIDAS ( 
1-25)? "іп 

75 IF n<l OR n>25 THEN GOTO 


INK 7: 
INVERSE 1;" 


80 FOR i=l TO n 

PRINT "PARTIDA";i 
INPUT "TIME DA CASA"; 
INPUT "TIME VISITANTE 








NEXT i 

PAUSE 400 

PRINT 

FOR i-1 TO 2*n 

LET c=0: LET t=1 

LET s=EXP (-.85) 

LET t=t*(RND*1) 

190 IF t<=s THEN LET h(i)=c: 
GOTO 220 

200 LET c-c*1 

210 GOTO 180 

220 NEXT i 

230 FOR i-1 TO 2*n 

240 LET c=0: LET t=1 

250 LET s=EXP (-.5) 

260 LET t=t*(RND*1) 

270 IF t<=s THEN LET a(i)=c: 
сото 300 








280 
290 
300 


LET c=c+1 

GoTo 260 

NEXT i 

310 CLS 

320 PRINT TAB (7);"PLACAR PRIM 
EIRO TEMPO";'" 

330 FOR i=l TO n 

340 PRINT h$(1):;h(i);TAB 20;a$ 
(i);a(i): PRINT 

350 NEXT i 

360 PRINT " QUALQUER TECLA PAR 
A CONTINUAR” 

370 IF INKEYS="" THEN GOTO 
370 
375 
380 
390 
400 


сіз 
PRINT TAB 12;"PLACAR FINAL 


FOR i=l TO n 
LET £(1)=h(1)+h(n+1) 

410 LET 9(1)=a(1)+a(1+n) 

420 PRINT h3(1);f(i);TAB 20;a$ 
(1);0(1): PRINT 

430 NEXT i 

440 INPUT " NOVAMENTE ? 
) 7:95 

450 IF g$-"n" THEN СОТО 490 
460 INPUT "MESMOS TIMES (s/n) 
?";p$ 

470 IF ps="n” 
480 GOTO 150 
490 STOP 


sa 


5 R-RND(-TIME) 

20 DIM A$(25),H$(25) ,H(50) , A(50 
),FA(25),FH(25) 

30 CLS:WIDTH 40 

50 PRINT TAB(13);"SCORE FINAL" 
60 PRIN RINT 

70 INPUT"Quantas partidas (1-25 


(в/п 


THEN GOTO 70 





"н 

75 IF N<1 OR N>25 THEN 70 

80 FOR I=1 TO N 

90 PRINT "PALITO";I 

100 INPUT "Time da casa”;HS(1) 
110 INPUT "Time de fora”;AS(1) 
120 NEXT 1 

130 FOR V=1 TO 2000:NEXT V 
140 PRINT 

150 FOR I=1 TO 
160 C=0:T=1 
170 S=EXP(-.85) 
180 T-T*RND(0) 
190 IF T<=S THEN H(1)=C:GOTO 22 
0 


2*N 


200 C=C+1 

210 GOTO 180 

220 NEXT I 

230 FOR I=1 TO 2*N 

240 C=0:T=1 

250 S-EXP(-.5) 

260 T-T*RND(0) 

270 IF T<=S THEN A(1)=C:GOTO 30 


0 

280 C=C+1 

290 GOTO 260 

300 NEXT I 

310 CLS 

320 PRINT TAB(9);"Score temporá 
rio":PRINT:PRINT 

330 FOR I=1 TO N 

340 PRINT H$(I);H(I),AS(I);A(I) 
350 NEXT I 


360 P.INT "Aperte qualquer tecl 
a" 

370 IF INKEYS="" THEN 370 

380 CLS 

390 FOR I-1 TO N 

400 FH(I)*H(I)*H(N*I) 

410 FA(I)*A(I)*A(N*I) 

420 PRINT H$(I);FH(I),AS(I):FA( 
1) 

430 NEXT 

440 PRINT:INPUT"OUTRA VEZ (S/N) 
"16$ 


450 IF G$-"N" THEN END 

460 INPUT "Mesmos times (S/N)"; 
PS 

470 IF PS="N" 
480 GOTO 150 


417%) 


20 DIM A$(25),H$(25) , H(50) , A(5 
0) ,FA(25) , FH(25) 

30 HOME 

50 PRINT TAB( 13);"SCORE FINA 
L^ 


THEN 70 


60 PRINT : PRINT 
70 INPUT "QUANTAS PARTIDAS (1- 
25) ";N 


75 IF N < 1 OR N ? 25 THEN 70 
B0 FOR I = 1 TON 
90 PRINT "PARTIDA ";I 


100 INPUT "TIME DA CASA ";H$(I 

) 

110 INPUT "TIME DE FORA ";AS(I 

) 

120 NEXT I 

130 FOR V - 1 TO 2000: NEXT V 

140 PRINT 

150 FOR t= 1 pO 2 * 8 

160 C = 0:T = 1 

170 8 = ExP ( - .85) 

180 T = T * RND (1) 

190 IF TT < = 5 ТНЕМ Н(І) = C 

* GOTO 220 

200C-C* 1 

210 GOTO 180 

220 NEXT I 

230 FORI-1 TO2*N 

240 C = 0:T = 1 

250 5 = EXP ( - .5) 

260 T= T * ВМ (1) 

270 IF T< = S THEN A(I) = C: 
GOTO 300 

280 C= C +1 

290 GOTO 260 

300 NEXT I 

310 HOME 

320 PRINT "SCORE PARCIAL ": PR 

INT : PRINT 

330 FOR I = 1 TO N 

340 PRINT H$(I);H(I),AS(I);A(I 

) 

350 NEXT I 

360 PRINT "APERTE QUALQUER TEC 

LA " 

370 GET G$ 

375 HOME 

380 PRINT TAB( 13);"SCORE FIN 

AL": PRINT : PRINT 

390 FOR I * 1 TO N 

400 FH(I) = H(I) * H(N * I) 

410 FA(I) * A(I) * A(N * I) 

n PRINT H$(I);FH(I),A$(I);FA 
š 


430 NEXT 

440 PRINT : INPUT "OUTRA VEZ ( 
S/N) "¡PS 

450 IF P$ = "Nº THEN END 

460 INPUT "MESMOS TIMES (S/N) 
"¡GS 

470 IF 65 - "N" THEN 70 

480 GOTO 150 





20 DIM A$(25),H$(25) ,H(50) , A(50 
),FA(25),FH(25) 

30 CLS 

50 PRINT €11,"placar final” 

60 PRINT:PRINT 

70 INPUT"QUANTAS PARTIDAS (1-25 
) "iN 

80 FOR I=1 TO N 

90 PRINT"PARTIDA ";I 

100 INPUT"TIME DA CASA ";H$(I) 
110 INPUT"VISITANTE ";AS(I):PRI 
NT 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 


NEXT I 
FOR V=1 
PRINT 
FOR I=1 
C=0:T=1 
S=EXP (-.85) 

T=TXRND (0) 

IF T<=S THEN H(1)=C:GOTO220 
C=c+1 

GOTO 180 
NEXT I 

FOR I=1 TO 
C=0:T=1 
8-ЕХР(-.5) 
T*T*RND (0) 
IF T<=S THEN A(1)=C:GOTO300 
C=C+1 

GOTO 260 

NEXT I 

310 CLS 

320 PRINT €5,"placar primeiro t 
empo" : PRINT: PRINT 

330 FOR I=1 TO N 

340 PRINT H$(I);H(I);AS(I);A(I) 
350 NEXT I 
360 PRINT" 
CONTINUAR" 
370 IF INKEYS="" THEN 370 

375 CLS 

380 PRINT €10,"placar final":PR 
INT:PRINT 

390 FOR I=1 TO N 

400 FH(I)=H(I)+H(N+I) 

410 FA(I)-A(I)*A(N*I) 

420 PRINT H$(I);FH(I),AS(I);FA( 
1) 

430 NEXT 

440 PRINT:INPÜT"NOVAMENTE 
) ":65 

450 IF GS="N" THEN END 
460 INPUT"MESMOS TIMES 
iPS 

470 IF P$-"N" THEN 70 
480 GOTO 150 


Da linha 20 a 120 o programa solici- 
ta as informações iniciais. Para evitar 
muita digitação, podemos substituir os 
nomes dos times por letras. As linhas 
150 a 300 usam o algoritmo de Poisson, 


TO 2000:NEXT V 


TO 2*N 


2*N 


QUALQUER TECLA PARA 


(S/N 


(S/N) " 


idéntico ao do programa anterior, para 
gerar os resultados parciais e finais dos 
jogos. As linhas 320 a 350 cuidam da 
saída dos resultados parciais e as linhas 
390 a 430, dos resultados finais. 

A simulagáo de Poisson funciona 
bem com variáveis discretas. Algumas 
vezes, porém, precisamos utilizar variá- 
veis fracionárias ou contínuas. Em uma 
simulagáo de competigáo de salto em 
distáncia, por exemplo, podemos obter 
uma medida qualquer entre sete e nove 
metros — o comprimento do salto é 
uma variável aleatória, contínua. 

Embora a fungáo RND seja adequa- 
da para simulagóes de Poisson com nú- 
meros inteiros, será necessário modificá- 
la um pouco para utilizá-la com variá- 
veis contínuas. O quadro da página 1180 
compara as distribuicóes obtidas com os 
dois tipos de variáveis: variáveis discre- 
tas resultam em distribuições uniformes, 
enquanto variáveis contínuas resultam 
em distribuições exponenciais e distri- 
buições normais. 

Digite o próximo programa para 
transformar os números aleatórios uni- 
formemente distribuidos, criados pela 
função RND do computador, em núme- 
ros distribuídos exponencialmente. 





10 BORDER 0: INK 7: PAPER 0: 
CLS 

20 POKE 23658,0 

30 PRINT AT 0,4; INVERSE 1;" 


SIMULACAO EXPONENCIAL "'' 
50 INPUT "QUAL E O VALOR MEDI 
о? "а 
70 INPUT 
? "in 
B0 FOR i=l TO n 


"TAMANHO DA AMOSTRA 


90 LET x=(-a)*LN (RNDX1): LET 
y=INT (x*10): PRINT * en 
.l*y, 

100 NEXT i 

110 INPUT " OUTRA SIMULACAO (s 
/n) ? "19$ 

120 IF g$-"s" THEN GOTO 30 
130 STOP 


nu 


10 R=RND(-TIME) 

30 CLS:WIDTH 40 

40 PRINT TAB(8);"Simulação expo 

nencial":PRINT:PRINT 

50 INPUT "Qual o valor da média 

"A 

60 PRINT 

70 INPUT "Tamanho da amostra";N 

80 FOR [=1 TO N 

90 X=(-A)*LOG(RND(1)):Y=INT(X*1 

0): PRINT LEFTS(STRS (Y/10)+" 
7,8); 

100 NEXT I 

110 PRINT:INPUT "Outra vez (S/N 

)":6$ 


120 IF G$-"S" THEN 30 
130 END 


(41%) 


30 НОМЕ 

40 PRINT TAB( 7);"SIMULACAO E 
XPONENCIAL": PRINT : PRINT 

50 INPUT "QUAL O VALOR DA MEDI 
A "iA 

60 PRINT 
70 INPUT "TAMANHO DA AMOSTRA "” 


IN 
80 FOR I= 1 TON 


90 X * ( - A) * LOG ( RND (1) 
:Y = INT (X * 10): PRINT LEFT 
$ ( STRS (Y / 10) +” ”,8 
di 

100 NEXT I 

110 PRINT : INPUT "OUTRA SIMUL 
ACAO (8/N) ";G$ 

120 IF 09 - "S" THEN 30 

130 END 





30 CLS 

40 PRINT 65,"simulacao exponenc 

ial":PRINT:PRINT 

50 INPUT"QUAL E O VALOR MEDIO " 

¡A 

60 PRINT 

70 INPUT"TAMANHO DA AMOSTRA ";N 

80 FOR I=1 TON 

90 X=(-A) *LOG (RND(0)) : Y=INT(X*1 

0) : PRINT LEFTS (STRS$(Y/10)+" 
”,8)% 

100 NEXT I 

110 PRINT:INPUT"OUTRA SIMULACAO 
(S/N) "¡GS 

120 IF G$-"S" 

130 END 


Devemos informar ao programa, as- 
sim que o executamos, o valor da mé- 
dia. Feito isso, os valores da amostra 
sáo exibidos. A linha 90 realiza toda a 
tarefa, utilizando um recurso matemá- 
tico chamado método da transformação 
inversa, para mudar a distribuição das 
variáveis. Esse programa pode ser usa- 
do para simular, por exemplo, o tempo 
de espera em um lava-rápido ou a du- 
ração das reservas de combustível em 
um jogo espacial. Em ambos os casos, 
o tempo decorrido é o elemento central. 


DISTRIBUICAO NORMA 


A curva normal é o tipo mais conhe- 
cido de distribuigáo estatística. Tem nu- 
merosas aplicações, descrevendo toda 
espécie de fenômeno natural — como a 
estatura e o peso de homens adultos. 
Além disso, constitui o meio mais apro- 
priado para a representação de uma dis- 
tribuição de erros. 

Como exemplo do uso da distribui- 
ção normal em um modelo, considere- 
mos esta situação: as vendas (S) de uma 





THEN 30 














empresa dependem de um valor-base 
(So) e do total gasto em propaganda (A). 
A relagáo poderia ser resumida na ex- 
pressão S = So + (B*A) + desvio nor- 
mal, onde B é uma constante conhecida. 

Digite o programa a seguir para ver 
como funciona. 


10 BORDER 0: PAPER 0: INK 7: 
CLS 

20 DIM u(50): DIM y(50): DIM 
z(50) 

50 PRINT AT 0,7; INVERSE 1;" 


SIMULACAO NORMAL "'" 

60 INPUT " QUAL E O VALOR MED 
IO ? ";a 

70 INPUT " QUAL E O VALOR MIN 
IMO ? ";m 

80 INPUT " TAMANHO DA AMOSTRA 
7. in 

90 LET b=(a-m)/2.5 





100 
110 
120 
130 


FOR 
LET 
FOR 
LET 


i=1 TO n 

t=0 

3=1 TO 15 

y (3) -RND*1 

140 LET tet*y (3): NEXT j 

150 LET u(i)*((t/15)-.5)/SQR ( 
1/(12*15)) 


160 LET z(i)*a*(b*u(i)) 

170 LET p-INT (10*z(i)): PRINT 
"i .1*p, 

180 NEXT i 

190 INPUT " OUTRA AMOSTRA ? "i 
as 

200 IF g$-"s" THEN GOTO 50 
210 STOP 


10 R=RND(-TIME) 

30 CLS:WIDTH 40 

40 DIM U(50),Y(50),2(50) 

50 PRINT "Simulação normal":PRI 
NT:PRINT 
60 INPUT 
"ТА 

70 ІМРОТ 


"Qual o valor da média 
"Qual o valor mínimo”; 


M 

B0 INPUT "Tamanho da amostra";N 
90 В-(А-М)/2.5 

100 FOR I=1 TO N 

110 T=0 

120 FOR J=1 TO 15 

130 Y(J)*RND(1) 

140 T=T+Y(J) :NEXT J 

150 U(1)=((T/15)-.5)/SQR(1/(12% 
15)) 

160 Z(I)-A*(B*U(I)) 

170 P=INT(10*Z(1)):PRINT LEFTS( 
STRS (P/10)+” ”,8); 

180 NEXT I 

190 PRINT:INPUT"Outra amostra"; 
Gs 
200 
210 


IF G$-"S" THEN 50 
END 


30 HOME 
40 DIM U(50),Y(50),Z(50) 


50 PRINT TAB( 9);"DISTRIBUICA 
O NORMAL": PRINT : PRINT 
60 INPUT "QUAL O VALOR DA MEDI 


А "А 


INPUT "QUAL O VALOR MINIMO 





80 INPUT "TAMANHO DA AMOSTRA " 

IN 

90 B = (A - M) / 2.5 

100 FOR I * 1 TON 

110 T= 0 

120 FOR J = 1 TO 15 

130 Y(J) = RND (1) 

140 T = T + Y(J): NEXT J 

150 U(I) = ((T / 15) - .5) / 8 

QR (1/ (12 * 15)) 

160 Z(1) = A+ (B * U(I)) 

170 р = INT (10 * Z(I)): PRINT 
LEFTS ( STRS (Р / 10) +” 


7,8); 
180 NEXT I 
190 PRINT INPUT "OUTRA AMOS 
TRA (S/N) ";G$ 
200 IF G$ - "S" THEN 50 
210 END 





30 CLS 

40 DIM U(50),Y(50),Z (50) 

50 PRINT 67,"distribuicao norma 
1":PRINT:PRINT 

60 INPUT"QUAL E O VALOR MEDIO " 
¡A 

70 INPUT"QUAL E O VALOR MINIMO 
"м 

80 INPUT"TAMANHO DA AMOSTRA ";N 
90 B-(A-M)/2.5 

100 FOR I-1 TO N 
110 T-0 

120 FOR J=1 TO 15 
130 Y(J)*RND(0) 

140 T-T*Y(J):NEXT J 
150 U(I)*((T/15) -.5) /SQR (1/ (12* 
15)) 

160 Z(1)=A+(B*U(1)) 

170 P-INT(10*Z(I)):PRINT LEFTS$( 
STRS$ (P/10) *" ^,8); 

180 NEXT I 

190 PRINT:INPUT"OUTRA AMOSTRA " 
165 

200 IF G$- 
210 END 





S" THEN 50 


Execute o programa e forneça o va- 
lor médio e o valor mínimo, bem como 
o tamanho da amostra. Tecnicamente, 
o intervalo de uma distribuição normal 
é infinito, o que deixa uma chance mui- 
to pequena de se obter um valor menor 
que o mínimo especificado. 

As linhas 120 a 150 usam a função 
RND para criar quinze números entre 
0 e 1, somando-os em seguida. A linha 
160 calcula a média e o fator de escala. 
Depois de ter sido escalonado, o resul- 
tado é impresso. 

Para maior clareza, poderá ser útil 
criar duas distribuições com a mesma 
média e aproximadamente o mesmo in- 
tervalo, mas com formatos diferentes. 
Execute o programa e forneça os valo- 
res 100 para a média, 50 para o mínimo 
e 40 para o tamanho da amostra. Se os 
valores obtidos fossem plotados, tería- 
mos um gráfico semelhante ao da figu- 
ra C (quadro da página 1180). 

Agora, apague a linha 90 e as linhas 
120 a 160. Substitua a linha 110 pela se- 
guinte: 


110 Z(I)*M*RND(1)*2* (A-M) 


No TRS-Color, use RND (0) no lu- 
gar de RND (1). 

Com essas alteracóes, a distribuigáo 
normal é convertida em distribuigáo uni- 
forme. Execute o programa novamente 
e entre os valores especificados, compa- 
rando os resultados. Desta vez, os va- 
lores levariam a um gráfico como o da 
figura A (página 1180). 

Observe que a simulacáo normal acu- 
mula maior nümero de resultados pró- 
ximos à média. 














COMO SIMULAR O CLIMA 


| 94  PROGRAMACÁO BASIC 94 = 
VARIÁVEIS DE 


MODELOS E розаш 
SIMULACAO ы n 


Retomando nossos estudos sobre o uso 
de modelos, apresentamos neste artigo 
um programa que se vale de alguns 
princípios económicos para simular o 
balanco de uma empresa comercial. 


No artigo da página 1176, examina- 
mos o papel da simulacáo em várias 
áreas de pesquisa. Vimos também como 
gerar diferentes variáveis aleatórias, ca: 
da qual adequada a uma determinada si 
tuação. Como demonstrou nosso pro- 
grama de simulação normal, a geração 
de variáveis normalmente distribuídas é 
muito simples, mas não tão eficiente — 
foram necessários quinze números alea- 
tórios para criar uma única variável. O 
programa deste artigo usa um método 
mais eficaz, que permite simular diver 
sos aspectos de uma pequena empresa 





comercial. Este programa também po- 
de ser utilizado como um jogo (até bem 
divertido), mas constitui, de fato, um 


modelo de uma situação real 


10 POKE 23658,8: POKE 23609, 
12 
20 PAPER 0: BORDER 0: INK 7 





30 PRINT AT 0,8; INVERSE 1l;" 

BATATA QUENTE 

40 DIM A$(4,12): DIM L(2): 

DIM D(10): DIM W(2): DIM Q(2) 
DIM P(2) 

50 LET AS(1)-"QUENTE E SECO": 

LET D(3)=150: LET D(4)=300 

60 LET AS(2)="QUENTE E UMIDO” 
LET D(5)=100: LET D(6)=200 

70 LET AS(3)="FRIO E SECO” 

LET D(7)=250: LET D(8)=160 

80 LET AS(4)="FRIO E UMIDO” 

LET D(9)=200: LET D(10)=100 

580 DIM C(4,2): LET C(1,1)= 

LET C(1,2)=.15 

590 LET C(2,1)=0.5: LET C(2,2) 

=0.25 

600 LET C(3,1)=0.01: LET C(3,2 





1: 





)=0.12 

610 LET C(4,1)=10: LET C(4,2)= 
10 

620 INPUT "QUANTOS JOGADORES ( 
1-6) ? "iN 


625 IF N<1 OR N>6 THEN GOTO 
620 
































627 DIM K(N): DIM 
0(2,N) 

630 FOR I=1 TO 2: 
640 LET T(I,J)-0 
650 NEXT J: NEXT I 
700 FOR K=1 TO 10 
710 LET Pl-INT (10*(.3*(RND*1/ 





DIM T(2,N): 


FOR J=1 TO N 


2)))/10 

720 LET P2=INT (10*(.2+(RND*1/ 
2)))/10 

730 PRINT INK BRIGHT 











740 PRINT "Prob. de um dia que 
nte e seco ";100*P1;"3" 

750 PRINT "Prob. de um dia sec 
о: ";100*P2;"t1" 

760 GOSUB 1400 

770 LET Ul=RND*1: LET U2=RND*1 
780 LET Vl-SQR (2*(LN (1/U1))) 
790 LET V2=COS (2*PI*U2): LET 
V3-SIN (2*PI*U2) 

800 LET 21=ІМТ (0102): LET 22 
=INT (V1*V3) 

810 LET Al=P1*P2: LET A2=P1 
820 LET A3=P1+P2-Al: LET A4=1 
LET F=RND*1 

821 PRINT IF F<Al THEN LET 
R=1 

822 IF F>Al AND F<=A2 THEN 
LET R=2 

823 IF F>A2 AND F<=A3 THEN 
LET R=3 

824 IF F>A3 AND F<=A4 THEN 
LET R=4 

830 CLS PRINT "O TEMPO ESTA 
";AS (R) 


840 LET D(1)=INT (D(1+R*2)+21* 


25): LET D(2)*INT (D(2*R*2)*22 
*40) 

850 PRINT "Demanda de batatas 

assadas =";D(1) 

860 PRINT "Demanda de latas de 
coca =";D(2) 

990 PRINT '' 

1000 PRINT INK 5; INVERSE 1;"J 


OGADOR GANHO CUSTÓS LUCRO ” 
1010 GOSUB 1600 

1020 NEXT K 

1030 PAUSE 200 

1090 CLS 

1100 PRINT " RESULTADO FINAL A 
POS 10 DIAS "'" 

1110 PRINT "JOGADOR","LUCRO TOT 


FOR J=1 TO N 


1130 PRINT J,K(J): NEXT J 

1140 PRINT '': PRINT "FIM DE JO 
Go" 

1150 STOP 

1400 PRINT "SEU PEDIDO POR FAVO 
R ": PRINT 

1410 FOR J=1 TO N 

1420 PRINT "JOGADOR";J: PRINT 
1430 INPUT "NUMERO DE BATATAS Q 
UENTES ";0(1,J) 

1440 INPUT "NUMERO DE LATAS DE 
COCA СОГА" ;0(2,Ј) 


1450 МЕХТ Ј 
1460 RETURN 
1600 FOR J=1 TO N 





































































1610 
1620 
1630 
1650 
1670 
1680 
00 
1690 LET Q(I)*Q(I)-C(3,I)*(O(I, 
J)-D(I1)) 

1700 LET P(I)*W(I)-Q(I) 

1710 LET T(I,J)*T(I,J) *P(I) 
1720 NEXT I 

1730 LET K(J) *T(1,J) *T(2,J) -200 
1740 LET E-W(1)*W(2) 

1750 LET C=Q(1)+0(2)+20 

1760 LET P=P(1)+P(2)-20 

1770 PRINT INK 6;TAB 3;J;TAB 9 
;E;TAB 18;C;TAB 25;P;'" 

1780 NEXT J 

1790 RETURN 


FOR I=1 TO 2 

LET L=0(I,J) 

IF D(I)<L THEN LET L=D(I) 
LET W(I)*C(2,I)*L 

LET Q(I)*C(1,I)*O(I,J) 

IF D(I)>L(I) THEN GOTO 17 





5 R*RND(-TIME) 

10 PI-4*ATN(1) 

20 CLS 

30 PRINT TAB(13);"Batata quente 
":PRINT:PRINT 


580 C1(1)=.1:C1(2)=.15 

590 C2(1)=.5:C2(2)=.25 

600 C3(1)=.01:C3(2)=.12 

620 INPUT"QUANTOS JOGADORES 
6) ";N 

625 IF N<1 OR N>6 THEN 620 
630 FOR I=1 TO 2:FOR J=1 TO N 
640 TP(1,J)=0 

650 NEXT J,1 

700 FOR K=1 TO 10 

710 P1=INT(10*(.3+RND(1)/2))/10 
720 P2=INT(10*(.2+RND(1)/2))/10 
725 PRINT" QUALQUER TECLA PARA 
CONTINUAR" 

726 IF INKEYS="" THEN 726 

730 PRINT"dia";K:PRINT 

740 PRINT"PROB. DE UM DIA QUENT 
E :";100*P1;"t" 
750 PRINT"PROB. 
:^;100*p2;"t" 
760 GOSUB 1400 
770 Ul-RND(1):U2*RND(1) 

780 V1-SQR(2*(LOG(1/U1))) 

790 V2-COS (2*PI*U2) :V3-SIN(2*PI 
*U2) 

800 Z1=INT(V1*U2) :Z2=INT(V1*V3) 
810 Al=P1*P2:A2=P1 
820 A3=P1+P2-Al:A4=1:F=RND(1) 





(1- 


DE UM DIA SECO 






































































































































































































































































821 CLS:IF F<=Al THEN 830 
822 IF F>Al AND F<=A2 THEN 870 
823 IF F>A2 AND F<=A3 THEN 810 
a 824 IF F>A3 AND F<=A4 THEN 950 
830 PRINT"O TEMPO ESTA QUENTE E 
SECO” 
840 D(1)=150+21*25:D(2)=300+Z2* 
40:GOTO 970 
870 PRINT"O TEMPO ESTA QUENTE E 
UMIDO” 
880 р(1) =100+21*25:0(2) =200+22* 
40:GOTO 970 
910 PRINT"O TEMPO ESTA FRIO E S 
ECO" 
920 D(1)=250+Z1*25:D(2)=160+22* 
40:GOTO 970 
^ 950 PRINT"O TEMPO ESTA FRIO E U 
MIDO" 
960 D(1)=200+21*25:D(2)=100+22* 
40 


970 PRINT"DEMANDA DE BATATAS AS 
SADAS*" ;D(1) 

980 PRINT"DEMANDA DE LATAS DE C 
OCA=";D(2) 

1000 PRINT"JOGADOR GANHO CUST 
OS LUCRO" 

1010 GOSUB 1600 

1020 NEXT K 











FOR 
CLS 
PRINT” RESULTADO FINAL APO 
DIAS ”:PRINT:PRINT 

PRINT" JOGADOR”, "LUCRO TOTA 


I=1 TO 2000:NEXT 





FOR J=1 TO N 
PRINT J,TT(J):NEXT J 
PRINT:PRINT:PRINT"FIM DE J 


END 

1400 PRINT:PRINTTAB(5);"seu ped 
ido por favor":PRINT 

1410 FOR J=1 TO N 

1420 PRINT" JOGADOR” ;J: PRINT 
1430 INPUT"NUMERO DE BATATAS” ;O 
(1,3) 

1440 INPUT"NUMERO DE LATAS DE C 
ОСА COLA”;0(2,J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J=1 TO N 

1610 FOR I-1 TO 2 

1620 L=0(1.J) 

1630 IF D(I)<L THEN L=D(I) 

1650 RV(I)=C2(1)*L 

1670 ТС(І) =С1 (1) *0(1,Ј) 

1680 IF D(I)<=L THEN RC(I)=TC(I 
)-C3(I) *(0(I,J) -D(I)) 

1700 P(I)*RV(I)-TC(I) 

1710 TP(I,J) -TP(I, J) *P(I) 

1720 NEXT I 

1730 TT(J)-TP(1,J) *TP (2,J) -200 
1740 Е-ВУ(1)%8У(2) 

1750 C-TC(1)*TC(2)*20 
1760 P-P(1)*P(2)-20 
1770 PRINTUSING" ' 
O ES 
1780 NEXT J 

1790 RETURN 


“. 


10 PI-4*ATN(1) 

20 HOME 

30 PRINT TAB(13);"BATATA QUENTE 
":PRINT:PRINT 





580 C1(1)=.1:C1(2)=.15 
590 C2(1)=.5:C2(2)=.25 
600 C3(1)=.01:C3(2)=.12 


620 INPUT"QUANTOS JOGADORES (1- 
6) "iN 

625 IF N<1 OR N>6 THEN 620 

630 FOR I=1 TO 2:FOR J=1 TO N 
640 TP(1,J)=0 

650 NEXT J,I 

700 FOR K=1 TO 10 

710 Pl*INT(10*(.3*RND(1)/2))/10 
720 P2=INT(10*(.2+RND(1)/2))/10 
725 PRINT" QUALQUER TECLA PARA 
CONTINUAR” 

726 GET WS 

730 PRINT"DIA";K:PRINT 

740 PRINT"PROB. DE UM DIA QUENT 
E :";100*P1;^t" 

750 PRINT^PROB. DE UM DIA SECO 
:";100*p2;"1" 

760 GOSUB 1400 

770 Ul=RND(1) :U2=RND(1) 

780 Vl=SQR(2* (LOG (1/U1))) 

790 V2-COS (2*PI*U2) :V3=SIN(2*PI 
*U2) 

800 Z1-INT(V1*V2) :22=1МТ (0103) 








А1=Р1*Р2: 

A3=P1+P2-Al:A4=1:F=RND(1) 

HOME: IF F<=Al THEN 830 

IF F>Al AND F<=A2 THEN 870 

IF F>A2 AND F<=A3 THEN 810 
824 IF F>A3 AND F<=A4 THEN 950 
830 PRINT"O TEMPO ESTA QUENTE E 
SECO" 

840 D(1)7150*21*25:D(2) *300*22* 
40:GOTO 970 

870 PRINT"O TEMPO ESTA QUENTE E 
UMIDO" 

880 D(1)*100*21*25:D(2) *200*22* 
40:GOTO 970 

910 РАІМТ”О TEMPO ESTA FRIO E 8 
ECO" 

920 D(1)*250*21*25:D(2) *160*22* 
40:GOTO 970 

950 PRINT"O TEMPO ESTA FRIO E U 
MIDO" 

960 D(1)*200*21*25:D(2) *100*22* 

40 

970 PRINT"DEMANDA DE BATATAS AS 

SADAS*" ;D(1) 

980 PRINT"DEMANDA DE LATAS DE C 

OCA-" ;D(2) 

1000 PRINT"JOGADOR GANHO CUST 

os LUCRO" 

1010 GOSUB 1600 

1020 NEXT K 

1030 FOR I=1 TO 2000:NEXT 

1090 HOME 

1100 PRINT" RESULTADO FINAL APO 

S 10 DIAS ":PRINT:PRINT 

1110 PRINT"JOGADOR","LUCRO TOTA 

1” 

1120 

1130 

1140 

осо” 


1150 END 

1400 PRINT:PRINTTAB(5);"SEU PED 
IDO POR FAVOR":PRINT 

1410 FOR J=1 TO N 

1420 PRINT" JOGADOR” ;J: PRINT 


1430 INPUT"NUMERO DE BATATAS" ;0 
(1,3) 

1440 INPUT"NUMERO DE LATAS DE C 
OCA СОГА" ;0(2,Ј) 

1450 МЕХТ Ј 


1460 RETURN 

1600 FOR J=1 TO N 

1610 FOR I=1 TO 2 

1620 L*0(I,J) 

1630 IF D(I)<L THEN L=D(I) 
1650 RV(I)*C2(I)*L 

1670 TC(I)*Cl(I)*O(I,J) 
1680 IF D(I)<=L THEN RC(I)*TC(I 
)-C3(1) * (O(I,J) -D(I)) 
1700 P(I)*RV(I)-TC(I) 

1710 TP(I,J) *TP(I,J) *P(I) 
1720 NEXT I 


1730 TT(J)-*TP(1,J) *TP(2,J) -200 
1740 E-RV(1)*RV(2) 

1750 C-TC(1)*TC(2)*20 

1760 P-P(1)*P(2)-20 

1770 PRINT TAB(2);J;TAB(9) ; E; TA 
B(17) iC; TAB(25) ;P 

1780 NEXT J 

1790 RETURN 





820 
821 
822 
823 


FOR Jel TO N 
PRINT J,TT(J):NEXT J 
PRINT:PRINT:PRINT"FIM DE J 

















BE 1150 





10 PI-4*ATN(1) 

20 CLS 

30 PRINT 610,"batata quente":PR 
INT:PRINT 

580 C1(1)=.1:C1(2)=.15 

590 C2(1)=.5:C2(2)=.25 

600 C3(1)=.01:C3(2)=.12 

620 INPUT"QUANTOS JOGADORES (1- 
6) "iN 

625 IF N<1 OR N>6 THEN 620 

630 FOR I=1 TO 2:FOR J=1 TO N 
640 ТР(І,Ј) =0 

650 МЕХТ Ј,І 

700 FOR K=1 TO 10 

710 P1=INT(10*(.3+RND(0)/2))/10 
720 P2=INT(10*(.2=RND(0)/2))/10 
725 PRINT” QUALQUER TECLA PARA 
CONTINUAR” 

726 IF INKEY$-"" THEN 726 





730 PRINT"dia";K:PRINT 

740 PRINT"PROB. DE UM DIA QUENT 
E :";100*P1;"8" 

750 PRINT"PROB. DE UM DIA SECO 


:^;100*p2;"t1" 

760 GOSUB 1400 

770 Ul=RND(0) :U2=RND(0) 

780 V1=SQR(2* (LOG(1/U1))) 

790 Y2=C0S(2*PI*U2) :VI=SIN(2XPI 
*02) 
800 
810 
820 
821 
822 
823 


Z1=INT(V1*V2) :Z2=INT(V1*V3) 
Al=P1*P2:A2=P1 
A3=P1+P2-A1:A4=1:F=RND(0) 
CLS:IF F<=Al THEN 830 

IF F>Al AND F<=A2 THEN 870 
IF F>A2 AND F<=A3 THEN 810 
824 IF F>A3 AND F<=A4 THEN 950 
830 PRINT"O TEMPO ESTA QUENTE E 
SECO" 

840 D(1)=150+21*25:D(2)=300+22* 
40:GOTO 970 

870 PRINT"O TEMPO ESTA QUENTE E 
UMIDO" 

880 D(1)7100*21*25:D(2) *200*22* 
40:GOTO 970 

910 PRINT"O TEMPO ESTA FRIO E 8 
ECO" 

920 D(1)2250*21*25:D(2) *160*22* 
40:GOTO 970 

950 PRINT"O TEMPO ESTA FRIO E U 
MIDO" 

960 D(1)=200+Z1*25:D(2)=100+22* 
40 

970 PRINT"DEMANDA DE BATATAS AS 
SADAS=";D(1) 

980 PRINT"DEMANDA DE LATAS DE C 


ОСА=” ;0 (2) 

1000 PRINT"JOGADOR GANHO CUST 
OS LUCRO" 

1010 GOSUB 1600 

1020 NEXT K 

1030 FOR I-1 TO 2000:NEXT 

1090 cLS 

1100 PRINT" RESULTADO FINAL APO 
S 10 DIAS ":PRINT:PRINT 


1110 PRINT"JOGADOR","LUCRO TOTA 
1” 

1120 FOR J*1 TO N 

1130 PRINT J,TT(J):NEXT J 

1140 PRINT:PRINT:PRINT"FIM DE J 
осо” 


END 


1400 PRINT:PRINTTAB(5);"seu ped 
ido por favor":PRINT 





1410 FOR J=1 TO N 

1420 PRINT” JOGADOR” ;J: PRINT 
1430 INPUT"NUMERO DE BATATA: 
(1,3) 


1440 INPUT"NUMERO DE LATAS DE C 
OCA COLA";O(2,J) 

1450 NEXT J 

1460 RETURN 

1600 FOR J=1 TO N 

1610 FOR I=1 TO 2 

1620 L=O(I,J) 

1630 IF D(I)<L THEN L=D(I) 

1650 RV(I)=C2(I)*L 

1670 TC(I)-Cl(I)*O(I,J) 

1680 IF D(I)<=L THEN RC(1)=TC(I 
)-C3(1) * (0(1,J) -D(I)) 

1700 P(I)-RV(I)-TC(I) 

1710 TP(I,J)-TP(I,J)*P(I) 

1720 NEXT I 

1730 TT(J)-TP(1,J)*TP(2,J) -200 
1740 E=RV(1)+RV(2) 

1750 C=TC(1)+TC(2)+20 

1760 P=P(1)+P(2)-20 

1770 PRINTUSIN: 
BRAD FRA; 









1780 NEXT J 
1790 RETURN 


O programa focaliza os lucros e per 
das de uma empresa do setor de alimen- 
tos, oferecendo ao usuário a opção de 
atuar sozinho ou de negociar com até 
cinco outros “*comerciantes”. 

O usuário também pode jogar no lu- 
gar de outras pessoas, tomando decisões 
diferentes conforme o papel assumido 
— o que lhe dá a oportunidade de com- 
parar os resultados que obtém, agindo 
cautelosamente ou se arriscando em lan- 
ces ousados. Tendo feito sua escolha, ele 
deve fornecer o número de participan- 
tes ao programa. 


ELEMENTO DE ACASO 


Cada jogador administra um bar que 
vende batatas assadas e latas de refrige- 
rante. A demanda por um ou por outro 
produto depende do clima. Se está fa- 








m 


zendo frio, aumenta a procura pelas ba- 
tatas; se faz calor, compra-se mais re- 
frigerante. Infelizmente, o gerente pre- 
cisa adquirir o estoque na véspera, des- 
conhecendo, portanto, o tempo que vai 
fazer. Pode contar, até certo ponto, com 
o serviço de meteorologia, que costuma 
acertar, em média, 70% de suas prev 
sões. Após dez dias de compras e ven- 
das, o administrador que obtiver maior 
lucro vence. 


PREVISÕES 


A primeira parte do programa (até a 
linha 650) cuida das variáveis que con- 
trolam a tela e as condições de compra 
e venda. Você paga um aluguel de $ 20 
por dia. As batatas custam $ 0,10 ca- 
da e sáo vendidas a $ 0,50. O refrige- 
rante custa $ 0,15 para compra e $ 0,25 
para venda. As sobras do estoque de 
um dia para outro sáo vendidas a um 
prego mais baixo — $ 0,01, as batatas 
e $ 0,12, o refrigerante. Cada partida 
dura dez dias. 

O indicador da demanda de 
duto, conforme o clima, está na tabela 
da página 1185. Aqui entra um elemen- 
to importante do modelo. Naturalmen- 
te, os dias melhores para a venda de ba- 
tatas assadas sáo os piores para a ven- 
da de refrigerantes e vice-versa. Contu- 
do, há uma demanda suficiente para 
manter as vendas de ambos os produ- 
tos. Tudo depende de como aproveita- 


interv 


n 


mos as informações fornecidas pelo ser- 

o de meteorologia, sempre tendo em 
mente, porém, que as previsões não são 
totalmente confiáveis. As probabilida- 
des para um dia quente e seco são de- 
terminadas nas linhas 710 e 720, e de- 
pois utilizadas para simular as condições 
do tempo (linhas 810 a 824). 


VARIÁVEIS ALEATÓRIAS 


As linhas 770 a 800 contêm um mé- 
todo sofisticado para gerar variáveis 
aleatórias de distribuição normal. Elas 
são empregadas para simular a deman- 
da na linha 840. A linha 770 cria duas 
variáveis aleatórias (U1 e U2), proces- 
sadas por meio de três fórmulas mate- 
máticas. Na linha 780, U1 é invertida e 
depois elevada ao quadrado; em segui- 
da, calculamos o seu logaritmo natural 
e a raiz quadrada deste V1. A linha 790 
faz V2 igual ao co-seno de uma circun- 
ferência de raio U2, e V3 igual ao seno 
dessa circunferência. V1, V2 e V3 so- 
frem um processamento adicional na 
nha 800 para resultar nas variáveis nor- 
mais Z1 e Z2. 

As linhas restantes do programa cui- 
dam da entrada e da impressáo dos re- 
sultados na tela. 

Para ser bem-sucedido neste jogo é 
preciso cuidar de cada centavo. Os gas- 
tos podem ser assustadoramente pró 
mos dos ganhos — mesmo após dez dias 
de atividade. 
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AVALANCHE: 
MAIS SALTOS 

















































Esta é a parte final da série de roti- 
nas que cuidam dos movimentos de Wil- 
lie. Finalmente, veremos nosso persona- 
gem nào só subir a encosta e se desviar 
das pedras, como também saltar sobre 
0s buracos e as cobras. 


REM org 59472 
REM mfj cp 129 
REM jr nz,mfb 
REM inc a 

REM ld (57335),а 
REM ld hl, (57332) 
REM 1d de,22561 
REM add hl,de 
REM ld a, (hl) 
REM cp 43 

REM jp z,mdy 

REM cp 44 

REM jr nz,mfa 
REM ld hl, (57332) 
REM dec hl 

REM 1d (57332),h1 
REM mfa ld hl, (57332) 
REM ld de,32 

REM sbc hl,de 
REM ld (57332),hl 
REM ld bc,57072 
REM ld de,515 
REM ld a,40 

REM call 58970 
REM ret 

REM mfb cp 132 
REM jr z,mfd 

REM inc a 

REM 19 (57335),a 
REM ld a, (57334) 
REM cp 1 

REM jr z,mfc 

REM 1d hl, (57332) 
REM ld bc,16384 
REM 1d a,45 

REM ld de,515 
REM call 58970 
inc hl 


Até agora, Willie só podia pular ; 
verticalmente. A rotina deste artigo 

vai torná-lo capaz de saltar à 

frente, ultrapassando os obstáculos 

como um ágil cabrito montés. 


-— тат 


390 REM 1d (57332),hl ! 
400 REM ld bc,57000 
410 REM ld a,40 
420 REM ld de,258 
430 REM call 58970 | 
440 ВЕМ 14 а,1 

450 REM 1d (57334).a 

460 REM ret 

470 REM mfc 1d hl, (57332) 

480 REM ld bc,57016 

490 REM 14 а,40 | 
500 REM ld de,514 | 
510 REM call 58970 
520 REM inc hl 

530 REM ld (57332),h1 
540 REM ld de,22592 
550 REM add hl,de 
560 REM 1d a, (h1) 

570 REM cp 44 

580 REM jr nz,mcf 
590 REM ld а,0 

600 REM 1d (57335).а 
610 REM ld a,3 

620 REM ld b,5 

630 REM call sci 

640 REM mcf ld a,0 
650 REM 14 (57334),а 
660 REM ret 

670 REM mfd ld a,0 
680 REM ld (57335),a 
690 REM 1d hl, (57332) 
700 REM dec hl 

710 REM ld bc,16384 | 
720 REM ld a,45 $ 
730 REM 1d de,514 

740 REM call 58970 | 
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750 REM 1d de,33 

760 REM add hl,de 

770 REM 1d (57332),hl 

780 REM jp 59153 | 
790 REM org 59895 

800 REM sci ret 
810 REM org 59330 
mdy * 
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SAINDO DO CHÁO 
SALTO À FRENTE 


DA SEGURANCA 
AVANCANDO POSICÓES 





SUBIDA DA ENCOSTA 
TERRA FIRME 
CHECAGEM 








ALTERAÇÕES DO 
ESCORE 
п AJUSTES FINAIS 








Quando o programa chama esta ro- 
tina pela primeira vez, o acumulador 
contém 129. Esse valor é armazenado na 
posição 57335 da memória quando as te- 
clas M e N são pressionadas juntas. 


SAINDO DO CHÀO 


Antes de mais nada, esta rotina veri- 
fica se o acumulador contém o valor 
129. O nümero também poderia ser 130, 
131 ou 132 — e, se qualquer um deles 
estiver presente, os comandos cp 129 e 
jr nz, mfb desviam o programa para o 
rótulo mfb. Na primeira vez que se cha 
ma a rotina, porém, o nümero no acu- 
mulador é 129. 

A tarefa seguinte consiste em incre- 
mentar o acumulador e carregá-lo de 
volta em 57335. A instrução 14 
h1,(57332) transfere para a posição de 
Willie de 57332 para o par HL. O par 
DE é carregado com 22561 e adiciona- 
do em HL, para que obtenhamos a cor 
da posição adiante dos pés de Willie. A 
instrução ld a,(hl) carrega no acumula- 
dor o código dessa cor. Em seguida, o 
código é comparado com 43, a cor da 
cobra. Se esse valor é encontrado, Wil- 
lie está saltando sobre a língua da co- 
bra, e, fatalmente, leva uma picada e 
morre, A instrução jp z,mdy desvia en- 















tão a rotina para o rótulo mdy, que pro- 
videncia a eliminação de Willie 

Se ele não morreu, o programa com- 
para a cor da posição adiante de seus pés 
com 44, a cor da terra. Se não há essa 
cor na frente de Willie, a instru jr 
nz,mfa desvia o programa para a roti- 
na mfa. Caso contrário, a posição de 
Willie é diminuída de um. 

Em mfa, a posição de Willie é colo- 
cada em HL. DE é carregado com 32 e 
subtraído de HL, para mover o apon- 
tador um caractere acima na tela. Esse 
valor é colocado de volta em 57 

O par BC é carregado com 57072, о 
endereço inicial para os dados de uma 
das figuras de Willie no salto para a 
frente. O par DE é carregado com 515, 
para especificar que um bloco dois por 
três será impresso — 2 x 256 + 3 = 515 
A cor de Willie — 40, azul sobre ciano 
— é carregada com A, e a rotina de im- 
pressáo é chamada 

Na próxima vez que ela for chama- 
da, o acumulador conterá 130. Logo, o 












processador pulará a primeira parte, 
executando-a a partir do zótulo mfb 
Essa pequena rotina comeca com um 


































teste. O conteúdo do acumulador é com- 
parado com 132. Se esse valor está pre- 
sente, a rotina mfd é chamada. Portan- 
to, caso o acumulador contenha 130 ou 
131, a rotina acionada é a mfb. 

A primeira coisa que mfb faz é incre- 
mentar A e carregar o resultado de vol- 
ta em 57335. 

Em seguida, a variável da caminha- 
da é carregada da posição de memória 
57334 para o acumulador. Com isso, in- 
forma-se ao processador qual das duas 
figuras de Willie é necessária. 

O conteúdo do acumulador é compa- 
rado com 1. Se 1 está presente, o pro- 
grama salta para o rótulo mfe e impri- 
me a figura de Willie com as pernas 
abertas. Antes que ela seja impressa, 
qualquer vestígio da figura anterior de- 
ve ser apagada. Para isso, a posição de 
Willie é transferida de 57332 para o par 
HL. O par BC é carregado com 16384, 
o início da tela. A é carregado com 45, 
para selecionar a cor ciano sobre ciano, 
eo par, DE, com 515, para selecionar um 
bloco dois por trés — 2 x 256 + 3 = 
515. A rotina de impressáo de bloco em 
58970 é chamada, apagando a figura an- 
terior de Willie. 

HL é incrementado, movendo o 
apontador de tela para a próxima posi- 
çào. Esse valor é colocado de volta no 
apontador do endereço 57332, ajustan- 
do-o também. BC é carregado com 
57000, que é o início dos dados para a 
figura de Willie com as pernas juntas. 
A é ajustado com 40 — cor azul sobre 
ciano. DE é ajustado com 258 — o blo- 
co de um por dois caracteres. 

Impressa a figura de Willie, A é car- 
regado com 1. Esse valor é armazenado 
em 57334, para que, na próxima vez, a 
outra figura seja impressa. 


WILLIE AVANÇA 


Quando a rotina for chamada nova- 
mente, a variável da caminhada em 
57334 conterá 1 e o processador irá di- 
retamente para o rótulo mfc. Nessa ro- 
tina, o par HL é carregado mais uma vez 
com a posição de Willie. BC é carrega- 
do com 57016, o endereço inicial para 
os dados da figura do personagem com 
as pernas abertas. A é ajustado de no- 
vo com 40, e DE, com 515 — a figura 
de Willie com as pernas abertas ocupa 
um bloco de dois por dois. A rotina de 
impressão é chamada, e Willie é impres- 
so com as pernas abertas. 

Observe que HL não foi incrementa- 
do nesta parte da rotina porque Willie 
ocupa, agora, duas posições. Ele avan- 
çou, portanto, aproximadamente meta- 
de de um caractere. 





Uma vez que a figura tenha sido im- 
pressa, o apontador de tela em HL e 
57332 é incrementado, fazendo com que 
Willie efetivamente avance. 


SUBI ENCOSTA 


Em seguida, devemos verificar se 
Willie está pisando na encosta ou nào. 
DE é carregado com 22592, que é adi- 
cionado á posigáo de tela em HL. Com 
isso, ele passa a apontar para a cor da 
posição abaixo dos pés de Willie. A ins- 
trução 14 a,(hl) carrega essa cor no acu- 
mulador, onde é comparada com 44. Se 
a cor da encosta não se encontra em A, 
Willie está no espaço aberto — e a ins- 
trução jr nz,mef manda o processador 
para o rótulo mef. 

Mas, se o acumulador contém a cor 
da encosta, Willie conseguiu subir um 
aclive, merecendo um número adicional 
de pontos. É preciso, então, interrom- 
per o salto e atualizar o escore. Para is- 
so, O é carregado em A e armazenado 
no endereço 57335. O valor 3 é carrega- 
do em A e 5 em B. Esses parámetros se- 
rào utilizados por outra rotina, sci — ou 
incremento do escore. Na verdade, adi- 
cionaremos o valor 50 ao escore. O nú- 
mero 5 será adicionado à coluna das de- 
zenas, que é a terceira a partir da esquer- 
da. Em seguida, a rotina sei é chamada 
— como ela ainda não foi digitada, co- 
locamos um ret provisório em seu ende- 
reço inicial. 

Uma vez marcados os pontos, A é 
carregado com 0 e armazenado em 
57334, quer Willie esteja pisando na en- 
costa ou não. Indica-se, assim, que a 
próxima figura a ser impressa é a do per- 
sonagem com as pernas juntas. 


TERRA FIRME 


Quando todas as figuras de Willie sal- 
tando já tiverem sido exibidas na tela, 
a variável de salto em 57335 terá o va- 
lor 132. Portanto, na próxima vez que 
a rotina de movimentação for chama- 
da, o programa irá direto para a última 
rotina que começa com o rótulo mfd. 
Essa rotina começa igualando a variá- 
vel de salto a 0. O valor O é carregado 
também em A e armazenado em 57335. 
A seguir, a posição de Willie na tela é 
decrementada. 

O par BC é carregado com 16384, en- 
dereço do início da tela. A é igualado 
a 45, o código de ciano sobre ciano, e 
o par DE traz 514 para um bloco de dois 
por dois. 

Chamando a rotina de impressão de 
bloco, apagaremos Willie da tela. O par 








DE é carregado com 33 e adicionado em 
HL. Com isso, movemos o apontador 
uma linha para baixo, colocando Wil- 
lie de novo em terra firme. O resultado 
é armazenado em 57332. 

Finalmente, a rotina de movimenta- 
ção é acessada pela instrução jp. Essa 
rotina imprimirá Willie novamente de pé 
em sua posição sobre o solo, e pesqui- 
sará o teclado. 


10 ORG 20321 

20 MFJ CMPA 4129 
30 BNE MFB 

40 INC 18261 

50 LDX 18249 

60 LEAX 290,X 

70 LDA ,X 


80 СМРА 4557 
90 LBEQ MDY 


100 JSR MFZ 
110 LDX 18249 
120 LEAX -255,Х 
130 STX 18249 
140 LDU 417814 
150 JSR CHARPR 
160 LEAX 254,X 
170 LDU %17846 
180 JSR CHARPR 
190 RTS 

200 МЕВ СМРА $130 
210 ВМЕ МЕС 
220 ІМС 18261 
230 JSR MFZ 
240 LDX 18249 
250 LEAX -255,X 
260 STX 18249 
270 LDU 417870 
280 JSR CHARPR 
290 LEAX 254,X 
300 JSR CHARPR 
310 LEAX 254,X 
320 JSR CHARPR 
330 LDX 18249 
340 LEAX 864.Х 
350 LDA ,X* 
360 СМРА 4SFF 
370 BEQ MFF 
380 LDA ,X 

390 СМРА #SFF 
400 BEQ MFF 
410 RTS 

420 MFF LDA 44 
430 LDB 45 
440 JSR SCI 
450 RTS 

460 MEC CMPA 4131 
470 BNE MFD 
480 INC 18261 
490 JSR MFZ 
500 LEAX 254,X 
510 LDU 41536 
520 JSR CHARPR 
530 LDX 18249 
540 LEAX 257,X 
550 STX 18249 
560 LDU 417814 
570 JSR CHARPR 
580 І.ЕАХ 254,Х 








590 LDU $17846 
600 JSR CHARPR 
610 RTS 

620 MFD CMPA 4132 
630 BNE MFE 

640 JSR MFZ 

650 LDX 18249 
660 PSHS X 

670 LEAX 512,Х 
680 LDY ,X 

690 PULS X 

700 СМРҮ %55555 
710 BNE MFE 

720 LEAX 1,X 

730 STX 18249 
740 MFE CLR 18261 
750 CLR 18251 

760 LDX 18249 
770 LDU 417774 
780 JSR CHARPR 
790 LEAX 254,X 
800 JSR CHARPR 
810 RTS. 

820 MFZ LDX 18249 
830 LDU #1536 
840 JSR CHARPR 


850 LEAX 254,X 
860 JSR CHARPR 


870 RTS 

880 CHARPR EQU 19402 
890 SCI EQU 20751 
900 MDY EQU 20126 


Quando o processador executar esta 
rotina pela primeira vez, o acumulador 
conterá o número 129. Esse número é 
armazenado na posição de memória 
18261 pela primeira parte da rotina de 
movimentação de Willie, quando M e N 
foram pressionadas simultaneamente. 


PREPARACAO DO SALTO 

De início, a rotina verifica se o valor 
129 se encontra no acumulador. Se em 
seu lugar estiverem os números 130, 131 
ou 132, as instruções CMPA #129 e 
BNE MFB desviam o programa para 
MFB. Na primeira vez que se chama es- 
ta rotina, porém, A contém 129. 

O acumulador é incrementado e car- 
regado de volta em 18261; em conse- 


(Y 


qúéncia, a segunda parte desta rotina se- 
rá chamada na próxima vez. 

A instrução LDX 18249 transfere a 
posição de Willie de 18249 para X. O 
número 290 é adicionado para indicar 
o byte adiante dos pés do personagem. 
LDA ,X carrega o conteúdo desse byte 
no acumulador e a instrução CMPA 
**$57 compara-o com $57, a cor gráfi- 
ca para a língua da cobra. Se houver es- 
sa cor na frente de Willie no momento 
do salto, ele será picado e morrerá. Ca- 
berá à instrução LBEQ MDY comandar 
a execução da rotina da morte. 

Se nosso personagem ainda está vi- 
vo, O processador vai para a rotina 
MEZ, que apaga os dois caracteres abai- 
xo de Willie — para que os pés da figu- 
ra anterior nào permanecam ali. 

A posição de Willie, transferida ou- 
tra vez de 18249 para X, é subtraída de 
255, para mover a posição um caracte- 
re para cima. A nova posição na tela é 
armazenada de volta em 18249. 

O registro U é então carregado com 
17814, endereço inicial para os dados da 
figura com as pernas abertas. Lembre- 
se de que U é usado como apontador de 
dados pela rotina CHARPR. Essa roti- 
























na, que utiliza os dados como pilha do 
usuário, é chamada; X é somado a 254, 
movendo-se para a posição inicial da 
metade inferior de Willie. U é carrega- 
do com 17846, o início dos dados para 
a metade inferior da figura, e CHARPR 
é chamada mais uma vez, imprimindo 
Willie sobre a encosta. 


SAINDO DO CHÀO 


Quando a rotina de movimentação 
for chamada de novo, o acumulador 
conterá 130, e a rotina MFB será exe- 
cutada. Nas chamadas posteriores, o 
acumulador conterá um valor maior e 
as instruções CMPA #130 e BNE MFC 
desviarão o fluxo de processamento pa- 
ra a próxima parte do programa. Como 
sempre, a primeira coisa que a rotina faz 
é incrementar o conteúdo de 18261. De- 
pois, salta para MFZ, onde a metade in- 
ferior de Willie é apagada. 

A posiçãọ seguinte do personagem é 
carregada em X e subtraída de 255 uma 
vez mais. Isso move o apontador de te- 
la um caractere acima. O registrador U 
é carregado com 17870 e CHARPR é 








chamada trés vezes. Entre cada chama- 
da, X é incrementado com 254. Impri- 
me-se, assim, uma nova figura de Wil- 
lie, em trés caracteres. Embora sua al- 
tura permaneca a mesma, o personagem 
Ocupa um caractere adicional porque foi 
deslocado meio caractere para cima. 


SAL 





DA PEDRA 


Willie recebe mais pontos quando se 
desvia de uma pedra, pulando por cima 
dela. É necessário, portanto, verificar se 
há uma pedra sob a figura. 

A posição de Willie é transferida de 
18249 para X, sendo somada a 864, de 
modo a indicar a posição imediatamen- 
te abaixo. A é carregado com o valor do 
byte da tela apontado por X, e esse re- 
gistrador é incrementado. 

O byte da tela no registrador A é 
comparado com $FF, a cor gráfica da 
pedra. Se ela estiver presente, o proces- 
sador vai para o rótulo MFF. Caso con- 
trário, o próximo byte é carregado e 
comparado. Se a pedra estiver ali, o pro- 





cessador passa para o rótulo MFF; se 
náo, ele retorna. 

A rotina MFF atualiza os pontos. A 
é carregado com 4, para indicar o dígi- 
to que será ajustado — o quarto a par- 
tir da esquerda (dezenas). B é carrega- 
do com 5. A seguir, o programa salta 
para a rotina SCI, que tem a função de 
adicionar S0 pontos ao escore. Como 
ainda não digitamos essa rotina, convém 
colocar RTS em sua posição inicial, pa- 
ra evitar um erro no programa. 


WILLIE AVA! 


Na próxima vez que a rotina de mo- 
vimentação é chamada, o acumulador 
contém 131. Caso esse valor não esteja 
presente, o programa é mandado para 
o rótulo MFD, pois o salto de Willie se 
encontra numa etapa mais adiantada. 

Novamente, a primeira coisa que a 
rotina faz é incrementar a variável de 


salto em 18261. Quando a rotina voltar 
a ser chamada, o processador irá execu- 
tar diretamente a parte seguinte. 

Na seqüéncia, o programa salta pa- 
ra a rotina MFZ, que apaga os caracte- 
res superior e intermediário de Willie. 
Seus pés seráo apagados com um carac- 
tere do céu pela próxima rotina. Esse 
trabalho de limpeza adicional precisou 
ser feito porque Willie tinha trés carac- 
teres de altura na ültima vez. 

A posição em X, que foi ajustada du- 
rante a execução da rotina MFZ, é in- 
crementada com 254, movendo o apon- 
tador para os pés de Willie. O aponta- 
dor de dados em U é carregado com 
1536, o endereço do céu limpo, no can- 
to superior esquerdo da tela. CHARPR 
é chamada e imprime o caractere de céu. 

A posição anterior de Willie é carre- 
gada de 18249 para X e adicionada a 257, 
movendo-se um caractere para baixo. 
























O apontador de dados em U é nova- 
mente carregado com o endereço inicial 
da figura de Willie com as pernas aber- 
tas em 17814. A rotina CHARPR im- 
prime sua metade superior. O aponta- 
dor de tela em X é incrementado, mo- 
vendo-se para a linha de baixo. U é car- 
regado com o endereço dos dados para 
a metade inferior da figura e CHARPR 
é chamada, realizando a impressão. 


TERRA FIRME 


O valor 132 no acumulador desvia o 
processador para a rotina que faz Willie 
pisar novamente em terra firme. Se não 
houver esse valor em A, o processador 
vai para o rótulo MFE — o que nunca 
deve ocorrer. Um conteúdo de A menor 
que 132 indica que o processador ficou 
executando alguma das rotinas anterio- 
res. Isso acontece se a variável de salto 
em 18261 — endereço de onde vem o va- 
lor de A — ainda não foi incrementada. 
Temos, assim, um bom dispositivo de 
prevenção de erros: caso haja um valor 
incorreto em 18261, o processador sal- 
ta diretamente para a instrução de lim- 
peza, que. reajusta esse endereço com 0. 

Se o número em A é 132, o processa- 
dor continua com esta rotina. inicial- 
mente, ele vai para a rotina MFZ, que 
apaga a última figura de Willie. Em se- 
guida, a posição de Willie é carregada 
de 18249 para X. O apontador de tela 









































em X é guardado na pilha, e somado a 
512, passando a apontar para o carac- 
tere imediatamente abaixo dos pés de 
Willie. Os dois bytes sào carregados no 
registrador Y e o apontador de tela ori- 
ginal é recuperado da pilha de volta pa- 
ra X. 

O conteúdo de Y é comparado com 
$5555, o valor de um espaço amarelo na 
tela — ou seja, de um buraco. Se esse 
valor nào estiver presente, o processa- 
dor vai para o rótulo MFE 

Se há um buraco ali, nosso persona- 
gem precisa de ajuda. X é entào incre- 
mentado e colocado de volta em 18249, 
onde está o apontador de posição. 

Como você notará, nenhuma verifi- 
cação é feita quando Willie volta ao so- 
lo num nível mais alto. Depois de saltar 
e avançar, ele sempre aterrissa num ní- 
vel mais alto. 





O salto agora está completo. Preci- 
samos, no entanto, limpar o contador 
de salto e a posição que contém o tipo 
de figura que deve ser impressa. Como 
essas posições são ajustadas com 0, o 
processador irá para a primeira parte da 
rotina de movimentação. 

A seção do programa apresentada 
neste artigo finaliza imprimindo Willie 
de pé, em sua nova posição. X é carre- 
gado com a posição contida em 18249 
e U, com a contida em 17774. A rotina 
CHARPR é chamada duas vezes. A úl- 
tima rotina, MFZ, é chamada para apa- 
gar a figura. X é carregado com a posi- 
ção de Willie em 18249 e U é carregado 
com 1536, que equivale a um espaço 
vazio. 

Para testar o programa, digite as se- 
guintes linhas: 

10 POKE 30000,57:POKE 20847,57: 
POKE 20751,57 

20 EXEC 19426 

30 FOR L=1 TO 8:POKE 18261,129: 
FOR Jel TO 5:EXEC 19902 

40 FOR K=1 TO 100:NEXT K,J,L 

50 GOTO 50 


17: PRA 


O programa destinado ao MSX foi 
dividido em duas partes para facilitar a 
montagem. 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


org 55009 

mp cp 129 

jr nz,mb 

inc a 

14 (-5202),а 
1d hl, (62407) 
ld de, (-5205) 
add hl,de 

ld de,33 

add hl,de 
call 74 

cp 36 

JP 2,54848 
cp 52 

jr nz,ma 

ld hl, (-5205) 
dec hl 

1d (-5205),hl 
ma ld hl,(-5205) 
1d de, (62407) 
add hl,de 
push hl 

ld de,32 


add hl,de 
14 а,255 
push hl 
call 77 
pop hl 
inc hl 

14 а,255 
са11 77 
pop hl 

1d a,5 
push hl 
call 77 
pop hl 
inc hl 

14 а,7 
push hl 
call 77 
pop hl 

14 4е,32 
sbc hl,de 
1d a,6 
push hl 
call 77 
pop hl 
dec hl 

14 а,4 
са11 77 
ld hl,(-5205) 
14 4е,32 

sbc hl,de 

1d (-5205),hl 
ret 

mb cp 132 

3р 2.55275 
inc a 

ld (-5202),a 
ld a, (-5203) 
cp 1 

3p 2,55194 
1d hl,(-5205) 



























640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 





1d de, (62407) 
add hl,de 

14 а,255 
push hl 

call 77 

pop hl 

14 4е,32 

add hl,de 

1d a,255 
push hl 

call 77 

pop hl 

inc hl 

14 а,1 

ризһ Һ1 

са11 77 

pop hl 

1d de,32 

sbc hl,de 

ld a,0 

call 77 

18 Һ1, (-5205) 
inc hl 

ld (-5205),h1 
14 а,1 

14 (-5203),а 
ret 

end 








Complete agora o programa, digitan- 
do as seguintes linhas: 


10 org 55194 

20 mc ld hl,(-5205) 
30 ld de, (62407) 

40 add hl,de 


50 14 а,4 

60 push hl 
70 call 77 
80 pop hl 

90 inc hl 

100 ld a,6 
110 push hl 
120 call 77 
130 pop hl 
140 ld de,32 
150 add hl,de 
160 1d a,7 
170 push hl 
180 call 77 
190 pop hl 
200 dec hl 
210 1d a,5 
220 call 77 
230 ld Һ1, (-5205) 
240 inc hl 


250 1d (-5205),hl 
260 ld de, (62407) 
270 add hl,de 
280 ld de,64 

290 add hl,de 
300 call 74 

310 cp 52 

320 jr nz,ms 

330 14 а,0 

340 ld (-5202),a 
350 1d a,3 

360 ld b,5 

370 call 57000 
380 ms ld a,0 
390 14 (-5203),а 
400 гес 

410 md ld a,0 


1d (-5202),a 
ld h1, (-5205) 


440 ld de, (62407) 
450 add hl,de 
460 push hl 

470 ld a,255 

480 call 77 

490 pop hl 

500 dec hl 

510 ld a,255 

520 push hl 

530 call 77 

540 pop hl 

550 ld de,32 

560 add hl,de 
570 14 а,255 

580 push hl 

590 call 77 

600 pop hl 

610 inc hl 

620 18 а,255 

630 са11 77 

640 1d hl,(-5205) 
650 14 4е,32 

660 add hl,de 
670 ld (-5205),h1 
680 3р 54603 

690 ret 

700 end 


Na primeira vez que o processador 
chama a rotina, o acumulador contém 
129. Esse nümero é armazenado na po- 
sição de memória — 5202 quando as te- 
clas M e N sáo pressionadas juntas. 


SAINDO DO C 


Antes de mais nada, a rotina verifi- 
ca se o valor que está no acumulador é 
129. O número em A poderia ser tam- 
bém 130, 131 ou 132. Caso um desses 
números esteja presente, as instruções cp 
129 e jr nz,mb desviam o programa pa- 
ra o rótulo mb. Porém, quando a roti- 
na é chamada pela primeira vez, o nú- 
mero no acumulador é 129. 

Depois dessa checagem, o acumula- 
dor é incrementado e carregado de vol- 
ta em — 5202. A seguir, o endereço ini- 
cial da Tabela de Nomes da VRAM é 
carregado em HL. A posição de Willie 
na tela é transferida de — 5205 e — 5204 
para DE e somada em HL. Adiciona-se 
o valor 33 nesse par de registros através 
de DE. Com isso, HL passa a apontar 
para o endereço na TN ocupado pelo có- 
digo do padrão que está adiante dos pés 
de Willie. A rotina 74 da ROM é cha- 
mada, devolvendo a A o conteúdo da 
posição da VRAM apontada por HL — 
ou seja, ela faz a leitura na VRAM. 

O código do padrão que se encontra 
adiante dos pés de Willie é comparado 
com 36, o código da língua da cobra. Se 
esse valor estiver presente, Willie fatal- 
mente morrerá, pois está saltando sobre 
a língua da cobra e será picado. A ins- 
trução jp z, 54848 manda então o pro- 
cessador para a rotina da morte, apre- 
sentada anteriormente com o rótulo 
mre. Se Willie não morreu, o processa- 
dor compara o código do padrão à fren- 
te de seus pés com 52, que é o padrão 
da encosta. Se o valor não estiver pre- 
sente, a instrução jr nz,ma desvia о pro- 
grama para a rotina ma. Caso contrá- 
rio, a posição do personagem em — 5205 
é decrementada. 

A rotina ma coloca a posição de Wil- 
lie em HL. DE é carregado com o ende- 
reço inicial da TN da VRAM e somado 
em HL. Esse valor é guardado na pilha. 
Em seguida, o número 32 é somado em 
HL através de DE, e o apontador passa 
a indicar os pés na figura anterior de 
Willie. O número 255, código do padrão 
de céu, é carregado em A. O apontador 
em HL é preservado na pilha e a rotina 
77 da ROM é chamada, escrevendo o 
valor de A no endereço da VRAM apon- 
tado por HL. Apagamos, assim, os pés 
da figura anterior de Willie. 

O último valor de HL é recuperado 
da pilha e incrementado. A é carregado 


com 255 e a rotina 77 é novamente cha- 
mada. Procedemos dessa maneira por- 
que a posição de Willie poderia ter sido 
decrementada no começo da rotina — 
a operação nos dá a certeza de que os 
pés de Willie foram apagados. 

O apontador inicial é recuperado da 
pilha. Em seguida, os padrões 4, 5, 6e 
7 são impressos, formando a figura de 
Willie com as pernas abertas. Acompa- 
nhe o apontador em HL e verifique co- 
mo isso foi feito. A posição de Willie em 
— 5205 e — 5204 é atualizada, já que foi 
deslocada uma posição acima. Depois, 
o programa retorna partindo desse pon- 
to da rotina. 

Quando a rotina for chamada outra 
vez, o acumulador conterá 130. O pro- 
cessador pula, então, a primeira parte, 
indo para o rótulo mb. 

Essa pequena rotina começa verifi- 
cando o conteúdo do acumulador. Se ele 
contiver 132, a rotina md é chamada; se 
contiver 130 ou 131, o processador con- 
tinua executando mb. A primeira coisa 
que essa rotina faz é incrementar А е 
carregar o resultado de volta em — 5202. 
Em seguida, a variável da caminhada é 
carregada no acumulador. Isso indica ao 
processador qual das figuras de Willie 
é necessária. 

O conteúdo do acumulador é compa- 
rado com 1. Se esse valor está presente, 
o processador vai para o rótulo me, em 
55194, e imprime a figura de Willie com 
as pernas abertas. Se a variável é 0, o 
processador imprime a figura de Willie 
com as pernas juntas. 

Antes de imprimir qualquer uma das 
figuras, porém, devemos apagar todos 
os vestígios da imagem anterior. Para is- 
so, a posição de Willie é transferida de 
— 5205 e — 5204 para HL. DE é carre- 
gado com o endereço inicial da TN da 
VRAM e somado em HL. A é carrega- 
do com 255, o código do padrão de céu. 
O apontador HL é guardado na pilha e 
a rotina 77 é chamada, apagando o 
quarto superior esquerdo da figura de 
Willie. O apontador é recuperado da pi- 
lha e somado com 32. A é carregado 
com 255. O apontador é guardado na pi- 
lha e a rotina 77 é chamada, apagando 
o quarto inferior esquerdo da figura. 
Com isso, apagamos a metade esquer- 
da da antiga figura de Willie. A outra 
metade desaparece com a impressão da 
nova figura — desta vez, com as pernas 
abertas. 

O apontador é recuperado da pilha 
e incrementado. A é carregado com 1, 
o código de um dos padrões da figura. 
O apontador é novamente colocado na 
pilha e a rotina 77 é chamada. Finali- 
zando, o apontador é recuperado da pi- 
lha e subtraído de 32, movendo-se um 





caractere para cima. A é carregado com 
0, o código do outro padráo da figura. 
A rotina 77 é chamada e Willie é impres- 
so com as pernas juntas. 

A posição de Willie é transferida pa- 
ra HL, decrementada e devolvida em 
— 5205 e — 5204. O acumulador, carre- 
gado com 1, é armazenado em — 5203, 
para que, na próxima vez, a outra figu- 
ra de Willie seja impressa. 


SALTO À DISTÂNCIA 


Quando a rotina for chamada de no- 
vo, a variável da caminhada conterá 1 
eo processador irá diretamente para o 
rótulo me. Nessa rotina, a figura de Wil- 
lie com as pernas abertas é impressa da 
mesma maneira que na rotina ma, só 
que sua posição foi incrementada — ou 
seja, Willie avança no ar! 

Os padrões 4, 5, 6e 7, que compõem 
a figura do personagem com as pernas 
abertas, são colocados na TN (na tela) 
pela rotina 77, que é chamada quatro ve- 
zes. Em seguida, a posição de Willie em 
— 5205 e — 5204 é colocada em HL, in- 
crementada e devolvida aos endereços, 
o que faz a figura avançar mais uma 
posição. 


UBIDA DA ENCOSTA 


Depois disso, devemos verificar se 
nosso personagem está pisando na en- 
costa ou não. Lembre-se de que HL já 
contém a posição de Willie. DE é carre- 
gado com o endereço inicial da TN e si 
mado em HL. O número 64 também é 
somado em HL através de DE. O apon- 
tador está indicando a posição sob os 
pés de Willie. A rotina 74 é chamada e 
faz a leitura da VRAM nessa posição. 
O valor é comparado com 52, o código 
da encosta. Se esse valor estiver presen- 
te, Willie subiu um lance na montanha. 
Para interromper o salto, coloca-se 0 em 
— 5202. O número 3 é carregado em A 
eo 5, em B. Esses parámetros seráo uti- 
lizados por outra rotina, chamada na se- 
qüéncia, que realiza a contagem de pon- 
tos; o valor 50 será adicionado no esco- 
re. Mas, como ainda nào digitamos es 
sa rotina, convém colocar uma instru- 
ção ret provisória nesse endereço, o que 
podemos fazer por meio do comando 
BASIC POKE 57000.201. 

Se o padrão da encosta não estiver 
presente, as intruções anteriores são ig- 
noradas e o processador continua a par- 
tir do rótulo ms. 

A é carregado com 0 e armazenado 
em — 5203. Isso é feito independente- 
mente de Willie estar pisando na encos- 
ta ou não, e indica que a próxima figu- 











ra a ser impressa é a do personagem com 
as pernas juntas. 


TERRA FIRME 


Quando todas as outras figuras de 
Willie já tiverem sido impressas na te- 
la, a variável do salto terá o valor 132. 
Assim, quando a rotina de movimenta- 
ção for chamada novamente, o proces- 
sador irá direto para a última rotina, 
que começa no rótulo md. 

Em primeiro lugar, md ajusta a va- 
riável de salto com 0. Esse valor é car- 






















































regado no acumulador e armazenado 
em — 5202. Em seguida, a figura ante- 
rior de Willie com as pernas abertas é 
apagada — para isso, coloca-se o pa- 
drão 255 nas quatro posições, por meio 
da rotina 77. A posição de Willie é car- 
regada em HL e somada com 32 atra- 
vés do par DE. Willie volta, com isso, 
a pisar em terra firme. O resultado é ar- 
mazenado em — 5205 e — 5204. 

Finalmente, a instrução jp chama a 
rotina de movimentação. Essa rotina, 
além de imprimir a figura de Willie de 
pé sobre o solo, pesquisará o teclado 
mais uma vez. 
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* FIGURAS 


PROGRAMAÇÃO BASIC 
L2] 
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Desenhar objetos em trés dimensóes, 





mesmo que simétricos, é uma tarefa di 
fícil — mas nào para quem tem um mi- 
crocomputador. Com o programa apre- 
sentado neste artigo, tudo o que vocé 
tem a fazer é desenhar o perfil de um 
dos lados da figura. A máquina comple- 
tará o trabalho, inclusive preenchendo 
as faces do sólido com tracos que per- 
mitirão uma melhor visualização. 

A principal funcào do programa é 
promover a rotação do perfil que você 
definiu em torno de um eixo central. 
Pode-se, portanto, desenhar qualquer 
figura que possua seções circulares — 
como vasos, garrafas, candelabros, co- 
pos, maçãs, laranjas, enfim, uma enor- 
me variedade de objetos. 

Como o programa roda a linha ori- 
ginal, a figura obtida é denominada só- 
lido de revolução. As versões para to- 
dos os micros possibilitam que se veja 
o produto final de qualquer ângulo. As 
do Spectrum e do TRS-Color realizam 
uma pequena animação, girando a figu- 
ra em torno de seu eixo. 


ROTA! IGURA 


Para desenhar o perfil do sólido, mo- 
[us | уітетіагетов шпа Ппһа па 1еіа, 





fixando-a quando atingir uma posi 
considerada satisfatória. Essa técnica, já 
empregada em outros programas de /N- 
PUT, permite a visualização de cada 
uma das etapas do desenho. 

Foi estabelecido um limite de vinte re- 
tas para a definição do perfil desejado. 
Na maioria dos casos, onde se utiliz; 

apenas cinco ou seis retas, essa quanti- 
dade é mais do que suficiente. Porém, 
se vocé quiser tracar curvas, terá que 
construí-las com várias retas bem peque- 
podendo chegar perto daquele 






















Uma grande vantagem do programa 
é permitir ao observador escolher o án- 
gulo do qual quer ver a figura — nào 
só de cima, de baixo ou de frente, mas 
de qualquer ângulo entre 0? e 180º (um 
ângulo de 70º, por exemplo, mostra o 
objeto como se ele estivesse sobre uma 
mesa). Você pode mudar esse ângulo 
quantas vezes quiser e o micro redese- 
nhará o sólido em outra posição. 

O programa armazena as coordena- 


914444444111 


Com a técnica ensinada neste artigo, 
vocé poderá exibir na tela de seu micro 
diferentes objetos geométricos sólidos. 
Тгасе о регїїї да {їдига езсоһїйа е 
ГАЕТЕ СЗ US 


das de todas as linhas. Quando vocé aca- / 
ba o desenho, ele faz a rotação de cada 
linha ao redor do eixo central, de 18º 
em 18º. Executa em vinte etapas a ro- 
tação completa. O ângulo de visão já é 
levado em conta nesta fase; os círculos 
aparecem mais achatados à medida que 
nos aproximamos dos 90%. 

Assim que o desenho fica pronto, o 
computador espera que o usuário pres- 
sione a barra de espacos para escolher 
um outro ángulo. 


A ANIMA! 


No Spectrum e também no TRS- 
Color, vocé poderá ver o objeto execu- 
tar à rotacáo, ao pressionar uma outra 
tecla. Para isso, o computador desenha 
as posições intermediárias da rotação ¢ 
as armazena na memória, recorrendo à 
técnica de páginas gráficas. Depois que 
todas as páginas estão feitas, elas são 
exibidas em seqüéncia, o que produz o 
efeito de animação. 











UTILIZAÇ 





Digite o programa e tente tracar al- 
gumas figuras sólidas. O processo de de- 
senho consiste em movimentar o cursor 
para a posição desejada e marcar o pon- 


евео. 
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DESENHOS EM 





Г] O ÁNGULO DE VISÀO 











TRÊS DIMENSÕES W ВОТАСАО DA FIGURA 
[] CRIE ALGUMAS FIGURAS MI COMO FUNCIONA O PROGRAMA 
a CONSTRUÇÃO DO PERFIL B AS TRÊS ROTINAS 
П COMO ALTERAR PRINCIPAIS 








partir daí, a reta poderá ser 
deslocada para qualquer lugar. Quando 
você estiver satisfeito com sua localiza- 
ção, use uma tecla para fixá-la. Prossi- 
ga assim até terminar o perfil da figu- 
. Para indicar ao micro que o desenho 
está pronto, vocé deverá pressionar uma 
outra tecla, 

No Spectrum, use as próprias teclas 
do cursor para mover a linha, M para 
marcar a posicào inicial e < ENTER > 
para fixar a reta. Pressione Q ao termi- 
nar o desenho. 

No TRS-Color, as teclas do cursor 
também direcionam a linha; «EN- 
TER» marca o ponto inicial, a barra 
de espaços fixa à reta e Y finaliza a 
figura. 

Para o MSX, use as setas para des- 
locar a linha, I para inicializar o dese- 
nho, a barra de espaços para fixar a re- 
ta c F para finalizar. As teclasR e D per- 
mitem que você desenhe mais rápido ou 
mais devagar. 

No Apple e no TK-2000, use Z X ; 
e. para movimentar a linha. Os outros 
comandos são iguais aos do MSX. 


10 PRINT AT 0,10; 














INK 2; 


PAPER 5;"ROTACAO 3D": PAUSE 
100 

20 PAUSE 2500 

30 CLEAR 30000: PAPER 0: INK 


5: CLS : POKE 23658,0 

40 GOSUB 2000: BORDER O 

50 PRINT AT 0,0; PAPER 6; INK 
0;" MOVER LINHA * TECLAS DE C 


URSOR  (CAPSHIFT P/MAIOR VELO 
с.) E 
60 PRINT PRINT PAPER 6; 


INK 0;" FIXAR LINHA * ENTER 
"''" FIXAR CURSOR = 

M FIM = Q гі 

70 INPUT "ANGULO DE OBSERVACA 

о (0-180)”; IF 1<0 OR 1>180 

THEN GOTO 70 

80 PLOT 60,100: DRAW 135,0: 

DRAW 0,-49: DRAW -135,0: DRAW 

0,49 

90 LET 1s-SIN (1/180*PI) 





100 LET bf-0: LET a$-"" 

110 LET x-128: LET y-51 

120 LET xx-x: LET yy-y 

130 ОУЕВ 1 

140 PLOT x.y: DRAW xx-x,YY-Y 
150 PLOT x,y: DRAW xx-x,yy-Y 


160 LET z$-INKEYS: IF z$-"" 


THEN GOTO 140 

170 LET z=CODE z$ 

180 IF z=13 THEN GOSUB 500 
190 IF z-113 THEN GOTO 600 
195 IF z-109 AND bf<>1 THEN 


PLOT 255-x,y: LET x=xx: LET y= 
yy: LET bf=1 

200 IF z=53 AND xx>128 THEN 
LET xx=xx-1l 

210 IF z=8 AND xx>130 THEN 
LET xx=xx-2 

220 IF z=55 AND yy<100 THEN 
LET yy=yy+ 

230 IF z-11 AND yy-*98 THEN 


LET yy=yy+2 
240 IF 2-56 AND xx<195 THEN 
O 

250 IF z-9 AND xx<194 THEN 
LET xx=xx+2 

260 IF 2-54 AND yy>52 THEN 
ПЕТ уу=уу-1 

270 1F z=10 AND yy>51 THEN 
LET уу-уу-2 
280 GOTO 140 
500 OVER 0: 


PLOT x.y: DRAW xx- 


‚УУ-У 
510 PLOT 255-x,y: DRAW x-xx,yy 


520 LET x=xx: LET y-yy: LET a$ 


*a$*CHR$ (x-128)*CHR$ (y-51): 
OVER 1: RETURN 

600 INK 7: CLS : OVER O: DIM a 
(20,2) 


610 FOR a=0 TO 7 

620 PRINT AT 21,7; PAPER 2; 

BRIGHT 1;"DESENHANDO FIGURA "; 

a+1 

630 GOSUB 1000 

640 IF а<>0 ТНЕМ СОТО 670 

650 PRINT AT 19,0; INVERSE 1;" 

<SPACE> P/ ALTERAR ANGULO DE 
OBSERVACAO ~- QUALQUER OUT 

RA TECLA PARA CONTINUAR 


660 LET XS-INKEYS: 
THEN GOTO 650 
662 IF Х5<>" " THEN GOTO 670 
664 INPUT "DIGITE O NOVO ANGUL 
О (0-180)";1 

666 IF 1<0 OR 1>180 THEN GOTO 
662 

668 cLS LET 18=SIN (1/180*PI 
): GOTO 620 

670 GOSUB 1600 

680 сїз 

690 NEXT à 

700 PRINT AT 20,11; 
INK 1;" FIGURA: ^"; 
710 FOR a=128 TO 240 STEP 16 
720 POKE 30114,a: RAND USR 
30112 

730 PRINT AT 20,19;a/16 


асам 


PAPER 7; 





740 
1000 
1010 
1020 
1030 
1040 
1050 
1500 
1510 
Ры 
1515 
0 


1520 


NEXT a: GOTO 710 

FOR b-1 TO LEN a$ STEP 2 
LET x-CODE a$(b) 

LET y*CODE a$(b*1) 

GOSUB 1500 

NEXT b 

RETURN 

FOR c=0 TO 399 STEP 20 


LET d-c*(2.25*a): LET py-i 
IF d>=360 THEN LET d=d-36 
GOSUB 1530: NEXT c 1195 





NU ||| | | | |95 PRocnaMAcAO Basic 


1525 DRAW bx-xd,by-yd: RETURN 
1530 LET yd-SIN (d/180*PI)*x*CO 
S (1/180*PI) 

1532 LET xd=COS (d/180*PI)*x 
1535 LET xd=128+xd: LET yd=90+y 


d+py 

1540 IF c*0 THEN PLOT xd,yd: L 
ET bx=xd: LET by=yd 

1550 DRAW xd-PEEK 23677,yd-PEEK 
23678 

1560 IF b=1 AND bf=1 THEN GOTO 
1580 


1565 IF b=1 THEN РІ.ОТ 128,90: 
DRAW xd-128,yd-90: GOTO 1580 
1570 PLOT a(1+c/20,1),a(1+c/20, 
2): DRAW xd-a(1+c/20,1),yd-a(1+ 
c/20,2) 

1580 LET a(1+c/20,1)=xd 

1585 LET C] 

1590 RETURN 

1600 POKE 30102,128*a*16 

1610 RAND USR 30100 

E Un] 

2000 RESTORE 2050 

2010 FOR a*0 TO 23 

2020 READ b: POKE a*30100,b 
2030 NEXT a 

2040 RETURN 

2050 DATA 17,0,0,33,0,64,1,0,16 
.237,176,201 

2060 DATA 33,0,0,17,0,64,1,0,16 
+237,176,201 


10 PMODE 2,1:PCLEAR 2:CLEAR 200 
.7679:DIM A(19,1) 

20 RD=ATN(1)/45:V=247 

30 PCLS 1:SCREEN 1,0 

40 BX=128:BY=190:DRAW"BM128,190 
aro 

50 LINE (31,191)-(255,140) ,PRES 
ET,B 

60 LINE (BX.BY)- (X, Y) , PRESET 
70 IF PEEK(345)-U GOSUB 500 

80 IF PEEK(339)-191 THEN M-4 EL 
Er 

EJ» LINE (BX,BY)-(X,Y),PSET:IF P 





EEK(338)=191 AND AS="" THEN BX= 
X:By=Y:BF=1:GOSUB 500 

100 IF PEEK(339) *U AND LEN(AS)> 
0 THEN 160 

110 IF PEEK(341)=V AND Y-M>141 
THEN Y=Y M 

120 IF PEEK(342)=V AND Y+M<191 
THEN Y=Y+M 

130 IF PEEK(343)=V AND X-M>127 
THEN X«X-M 

140 IF PEEK(344)*V AND X*M«223 
ТНЕМ Х=Х+М 

150 GOTO 60 

160 GOSUB 2000:SCREEN 1,0:FOR A 


=0 TO 6:PCLS1:FOR G=0 TO A:PRES 
ET(0,G*2) :NEXT 


170 GOSUB 1000 

180 GS=INKEYS 

190 IF A-0 AND G$-"" THEN 180 
200 IF A=0 AND G$=" " THEN 160 
210 МЕХТ 

220 FOR A=0 TO 6:PCOPY 5*A*2 TO 


1:PCOPY 6*A*2 TO 2:NEXT 

230 IF INKEYS-" " THEN 160 ELSE 
220 

500 LINE(BX,BY)- (X, Y) , PRESET 
510 LINE(255-BX,BY)-(255-X, Y), P 
RESET 

520 BX-X:BY-Y:AS-AS*CHRS (X-128) 
*CHR$ (190-Y) : RETURN 

1000 FOR B=1 TO LEN(A$) STEP 2 
1010 X-ASC(MIDS (AS,B,1)) :Y-ASC( 
MIDS(AS,B*1,1)) 

1020 GOSUB 1500:NEXT 

1030 PCOPY 1 TO 5*A*2:PCOPY 2 T 
O 6*A*2 

1040 RETURN 

1500 FOR C-0 TO 360 STEP 20 
1510 D-C*20*A/7:PY«IS*Y 


a LLL 








1520 GOSUB 1530:NEXT:RETURN 


1530 YD*110-SIN(D*RD) *X*COS(I*R 
D) -PY:XD*128*CO8 (D*RD) *X 


1540 1Е C=0 THEN LINE(XD,YD) (X 
b.YD), PRESET: BX*XD: BY-YD 
1550 LINE-(XD, YD) , PRESET 
1560 TF B=1 AND BF=1 THEN 1580 


ELSE JF B=1 THEN LINE(128,110)- 
(XD, YD), PRESET:GOTO 1580 

15/0 LINE(A(C/20,0) ,4(C/20,1)) 
(XD, YD) , PRESET 

1580 A(C/20,0) *XD:A(C/20,1) -YD: 
HETURN 

2000 CLS: INPUT” ANGULO DE OBSER 
VACAO (0-180) ";I 

4010 IF I«0 OR 1>180 THEN 
2020 IS-SIN(I*RD) : RETURN 


10 SCREEN 2:DIM A(19,1) 

20 RD=ATN(1)/45:M=1 

30 LINE (127,66)-(207,126),15,В 
Е 

35 LINE (47,66)-(127,126),14,BF 
40 BX-127:BY-126:X-BX:Y-BY:XX-B 
X:YY-BY 

60 LINE (BX,BY)-(X,Y),8 

70 CS-INKEYS:IF CS-""THEN 70 

75 IF C$-" " THEN GOSUB 500 
80 IF CS="R” THEN M=4 

85 IF C$="D” THEN М=1 

90 LINE(BX,BY)-(X,Y),15:IF C 
I" AND A$="” THEN BX=X:BY=Y: 
1:GOSUB 500 
100 IF C$-"F" 





2000 





AND LEN(A$)20 THE 


N 160 
110 IF C$=CHR$(30) AND Y-M>66 T 
НЕМ Y=Y-M 


120 1F C$=CHR$(31) AND Y+M<126 
THEN Y=Y+M 

130 IF C$=CHR$(29) AND X-M>127 
THEN X-X-M 

140 IF C$-CHRS(28)AND X*M«207 T 
HEN X=X+M 

150 GOTO 60 

160 GOSUB 2000 

170 COLOR,11,11:SCREEN 2:GOSUB 








1000 

190 C$=INKEY$: 
200 GOTO 160 
500 LINE (BX,BY)-(X,Y),1 

510 LINE (255-BX,BY)-(255-X,Y), 
H 

520 BX=X:BY=Y:AS=AS+CHRS(X-126) 
+CHRS (127-Y) : RETURN 

1000 FOR B=1 TO LEN(AS) STEP 2 
1010 X=ASC(MIDS(AS,B,1)) :Y=ASC( 
МІр5(А5,В%1,1)) 

1020 GOSUB 1500:МЕХТ В 

1040 RETURN 

1500 FOR C-0 TO 399 STEP 20 
1510 DsC:PY-IS*(Y*.5) 

1520 GOSUB 1530:NEXT C:RETURN 
E *X*COS (I*RD 
) -PY: XD*127*COS (D*RD) *X 

1540 IF C*0 THEN BX-XD:BY-*YD:XX 
*XD:YY-YD 

1550 LINE (XX, YY) - (XD, YD) , 1: XX*X 
D:YY-YD 

1560 ІР В<1 АМО ВҒ-1 ТНЕМ 1580 
1565 IF B=1 THEN LINE(80,91)-(X 
D,YD),1:GOTO 1580 

1570 LINE(A(C/20,0) ,A(C/20,1))- 
(XD, YD) ,1 

1580 XX=XD:YY=YD:A(C/20,0)=XD:A 
(C/20,1) =YD:RETURN 

2000 SCREEN 0:KEY OFF:COLOR 15, 
4,4:LOCATE 8,8 :INPUT"Angulo de 
visao:";I 

2010 ТЕ 1<0 Ой 1>180 ТНЕМ 2000 
2020 IS-SIN(I*RD):RETURN 


r 


10 HOME 


IF C$-"" THEN 190 


























HGR DIM A(19,1) 

20 RD * ATN (1) / 45:M = 1 

30 HCOLOR- 6: HPLOT 140,90 TO 
220,90 TO 220,149 

40 ВХ - 140:BY - 149:X - BX:Y - 
BY:XX - BX:YY - BY 

50 ЧТАВ (21): PRINT "COMANDOS: 
<I>NICIO-<F>IM 

52 VTAB (22): PRINT "VELOCIDAD 
E DO RISCO: <R>APIDO-<D>EVAGAR” 


54 VTAB (23): PRINT “BARRA DE 
ESPACO: FIXA A RETA" 

56 ЧТАВ (24): PRINT "DIRECAO: 
<2>,<Х>,<;>,<.>"; 


60  HCOLOR- 3: HPLOT BX,BY TO X 


24 
70 GET C$: IF C$ = " " THEN С 
OSUB 500 


80 IF C$ = "R” THEN M = 4 

85 IF C$ = "D” THEN M = 1 

90 HCOLOR= 0: HPLOT BX,BY TO X 
Y: IF C$ PI” AND AS = "” THE 
N BX = X:BY = Y:BF = 1: GOSUB 5 
00 

100 IF C$ - "F" AND 
> 0 ТНЕМ 160 
110 IF C$=" 
THEN Y = Y - M 


LEN (A$) 


" ANNDY- M» 90 





120 IF C$ + М < 15 
O THEN Y = 

130 IF C$ TM? 14 
0 THEN X * 

140 IF C$ *M«22 
0 THEN X * 

150 GOTO 60 

160 HGR GOSUB 2000 


170 GOSUB 1000 

190 GET C$: IF C$ * " " THEN 1 
60 

195 GOTO 190 

500 HCOLOR= 3: 
x,y 

510 HPLOT 281 
X,Y 

520 BX = X:BY = Y:A$ = A$ + CH 


HPLOT BX,BY TO 


- BX,BY TO 281 - 


R$ (X - 140) * CHR$ (149 - Y): 
RETURN 

1000 FOR B = 1 TO LEN (A$) ST 
EP 2 

1010 Х - А5С ( МІр5 (А5,В,1)): 
Y = ASC ( MIDS (AS,B + 1,1)) 
1020 GOSUB 1500: NEXT B 

1040 RETURN 

1500 FOR C - 0 TO 399 STEP 20 


1510 D = C:PY = IS * (Y * .5) 
1520 GOSUB 1530: NEXT C: RETUR 


N 

1530 YD = 80 - SIN (D * RD) * 
X* COS (I * RD) - PY:XD = 140 
+ COS (D * RD) * X 


É possivel realizar em um micro anima. 
ções gráficas em três dimensões como 
as que aparecem na TV? 
Os grafismos animados em três di 
mensões que aparecem em vinhetas de 
são, e nos filmes produzidos por 
computador (TRON, por exemplo), de 
vem sua espantosa qualidade e realis 
mo às máquinas que os elaboram 
geralmente, supercomputadores do ti 
po Cray Il, com capacidade de execu 
tar sessenta milhões de operações em 
ponto flutuante por segundo 
At a utilizada, entretanto, não 
difere da que explicamos neste artigo 
para gerar sólidos de revolução. Super 
complexas são montadas por mi 
“tijolos” regulares, d 
por algoritmos especiais, o 
dá um aspecto contínuo, Ou 
ogramas pintam 
lecionadas, ad 
Iho e sombra etc., tornando o resulta 
do o mais realista possível 
Os micros podem, teoricamente, 
ecutar quase tudo o que um compu: 
d Porém, têm 
gráfica, me- 
nor núme nfim, nào con 
tam com os mesmos rei 
pode esperar, portanto, que produ 
efeitos de igual qualidade 











1540 IF C = O THEN BX = XD:BY 
= YD:XX = XD:YY = YD 

1550 HCOLOR* 3: HPLOT XX,YY TO 
XD.YD:XX = XD:YY = YD 

1560 IF B = 1 AND BF = 1 THEN 
1580 

1565 IF B - 1 THEN HPLOT 80,9 


TERT ГЛ 
КҮҮ ТИЛ 


1 ТО XD,YD: GOTO 1580 


1570 


) 


HPLOT A(C / 20,0),A(C / 2 
0,1) TO XD,YD 
1580 XX = XD:YY = YD:A(C / 20,0 


XD:A(C / 20,1) 


= YD: RETURN 


O microcomputador elabora o desenho 
executando a rotacáo de cada reta. 


PIU 
"¡1 


2000 HOME УТАВ (23): 
ANGULO DE VISAO (0-180): 


2010 IF I € 0 OR I ? 180 THEN 
2000 
2020 IS * SIN (I * RD): RETURN 





Todos os programas funcionam de 
modo muito semelhante. As partes mais 
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O produto final — o sólido de 
revoluçào — é exibido em trës dimensëes. 


importantes são as rotinas que permitem 
o traçado do perfil, criam o sólido de 
revolução e fazem-no girar. 








^ rotina de desenho comeca na linha 
60 (linha 140, no micro Spectrum). Ela 
simplesmente lé as teclas que foram 
pressionadas e atualiza o valor das coor- 
denadas da linha auxiliar. O desenho de- 
finitivo é feito pela rotina da linha 500, 
que também traça o perfil esquerdo da 
figura. 

Cada vez que se fixa uma linha, as 
coordenadas de sua extremidade sào ar- 
mazenadas. Primeiro, subtrai-se um nú- 
mero de cada coordenada para obter 
uma nova coordenada, relacionada ao 
ponto de partida do desenho. Em seg; 
da, esses núrheros sáo convertidos em 
caracteres e adicionados ao final de uma 
variável alfanumérica (A$ ou a$). 

















A rotina da linha 2000 (70, no Spec- 
trum) permite que se defina o ângulo de 
visào. Depois, o programa é desviado 
para a linha 1000, que cria e desenha o 
RITOS 





as coordenadas 
viamente armazenadas e o ángulo de 
ão que você definiu para transformar 
o perfil em um sólido de revolução. A 
técnica matemática usada por esta roti- 
na é a mesma para todos os computa- 
dores, embora os comandos gráficos se- 
jam diferentes. 

Na linha 1000, um laco controlado 
pela variável B seleciona cada uma das 
suas linhas, tomando as coordenadas fi- 
nais da variável A$. O programa salta, 
então, para a rotina da linha 1500. Es- 
sa rotina desloca as coordenadas finais 
de acordo com o ángulo requerido e tra- 
ça as novas retas que irão compor a fa- 


















ce do sólido relativa aquela reta inicial 
LESTE AT 
cial será, portanto, redesenhada vinte 
vezes ao redor de um cireulo. Em segui 
da, à rotina retorna à linha 1000 рага 
fazer o mesmo com a próxima linha, Ao 
executar O programa, você poderá ob 
servar essas etapas da elaboração do 
sólido. 

Como vocé jà deve ter observado, o 
processo empregado para desenhar à 
primeira linha da figura é um pouco di 
ferente do utilizado para as demais, já 
que esta linha possui duas coordenadas, 
a inicial e a fin; 

As linhas 1560 e 1565 verificam se a 
reta a ser trabalhada é a inicial. Se B — 1, 
a reta é realmente a primeira de todas; 
se BF — 1, ela nào deve ser tracada, pois 
corresponde apenas ao deslocamento 
para a definiçào do ponto inicial. Se 
houve um deslocamento, o programa 























armazenará as coordenadas do ponto 
inicial na variável alfanumérica. Essas 
coordenadas serão o ponto de partida 
para a próxima linha. Caso o primeiro 
movimento nào tenha sido um desloc 
тето, о рото іпісізі зега о семго, а 
posição inicial do cursor; O ponto fixa 
do, por sua vez, será a coordenada fi 
nal da primeira reta. 

Através deste processo, cada reta do. 
регі өсі multiplicada” por vinte e to: 
das elas terão suas extremidades ligadas 
por um círculo, gerando o efeito de três 
dimensóes. 























А ВОТАСАО 


O Spectrum e o TRS-Color, como 
dissemos, ainda oferecem o artifício de 
animar a figura na tela, ao toque de uma 
tecla, O número de figuras (A) é con 
trolado pelo laço das linhas 610 a 690, 
no Spectrum, e da linha 220 no TRS 
Color. A variável A controla também a 
rotação parcial de cada figura, por meio 
de uma modificação no ângulo de visão 
(linha 1510). Finalmente, os quadros são 
exibidos em sequência, criando o efeito 
de animacáo. 


DO ы 











VIDEOTEXTO E 





Use o micro para ter acesso a um 
sofisticado sistema de intercâmbio 
de informações: o videotexto. 

Ele colocará à sua disposição uma 
variada gama de serviços. 


Utilizado isoladamente, um micro- 
computador doméstico é capaz de de- 
sempenhar uma grande variedade de ta- 
refas. Estas se multiplicam, porém, 
quando ele passa a integrar uma rede de 
computadores — o que, nos últimos 
anos, se tornou possível no Brasil. 

No artigo da página 561, vimos co- 
mo a tecnologia dos modems (modula- 
dor-demodulador) permite que se recor- 
ra à rede telefônica normal para envio 
e recepção de mensagens, textos, dados, 
programas e gráficos em forma digital. 
Um computador pode, assim, ““conver- 
sar” com outro de uma maneira barata 
e relativamente rápida. 

Existem diferentes tipos de rede de 
computadores que empregam o telefone 
e o modem como meios de comunicação. 
As redes de área local (LAN) ou ampla 
(WAN), compostas apenas por micr 
computadores (como os quadros de a 
sos, ou bulletins boards), serão exami- 
nadas em outro artigo. Aqui, trataremos 
das redes em que o microcomputador 
é usado como terminal de um compu- 
tador maior. 


MO FUNCIONA 


O videotexto é um exemplo desse ti- 
po de rede. O sistema estabelece o con- 
tato do usuário com um computador de 
grande porte, por meio da rede telefô- 
nica normal. O microcomputador não 
é indispensável à rede: o usuário preci- 
sa ter apenas um terminal de videotex- 
to. Este é um pequeno aparelho dotado 
de microprocessador e teclado portátil, 
que usa como saída de vídeo um apare- 
lho de TV doméstico. 

O software operacional do videotex- 
to permite não só a implementação de 
uma estrutura própria de dados, bem 
como sua consulta pelo usuário. As in- 
formações armazenadas no computador 








MICROCOMPUTADORES 


central do sistema videotexto são orga- 
nizadas em páginas. Cada página cor- 
responde a uma ou mais telas de vídeo 
contendo texto e ilustrações, ambos em 
cores. Para sua composição, utiliza-se 
um conjunto de caracteres gráficos tí- 
picos de videotexto. 

As páginas sào organizadas segundo 
uma estrutura em forma de árvore. O 
usuário pode “explorar” à vontade es- 
sa árvore, chamando à tela — por meio 
de seleções efetuadas pelo teclado — as 
diversas páginas que compõem um de- 
terminado conjunto. As opções feitas 
são enviadas ao computador central, 
que então encaminha a página solicita- 
da para o terminal de videotexto, por in- 
termédio da linha telefônica. 

O uso do videotexto é aberto a assi- 
nantes — ou seja, o usuário que dese- 
jar ter acesso ao mesmo deve pagar uma 
assinatura mensal, debitada na conta te- 
lefônica normal, além de uma taxa de 
utilização, que varia proporcionalmen- 
te ao tempo que o terminal permanece 
conectado ao sistema. 

Os dados armazenados no computa- 
dor central são fornecidos por empre- 
sas, órgãos governamentais, jornais, re- 
vistas e outras fontes, que mantêm suas 
próprias páginas de informação, atua- 
lizando-as frequentemente. 

O videotexto oferece uma enorme va- 
riedade de serviços informativos e re- 
creativos: notícias do dia, indicadores 
econômicos e cotações das bolsas, pro- 
gramação de cinemas e teatros, publi- 
cações, transportes aéreos, turismo, in- 
formações científicas e médicas, horós- 
copo, números da lista telefônica, pro- 
dutos à venda etc. Como o sistema é in- 
terativo, inclui ainda serviços em que a 
participação do usuário é mais intensa, 
tais como: videogames, troca de mensa- 
gens pessoais, anúncios classificados, re- 
serva de passagens aéreas, solicitação de 
catálogos, concursos, telecompras etc. 

O sistema é fácil de usar, fornecen- 
do ao usuário todas as instrucóes neces- 
sárias e os menus para seleção. 
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3.4 


Como” já dissemos anteriormente, 
mesmo aqueles que náo possuem um 
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computador doméstico podem se asso- 
ciar ao sistema videotexto utilizando um 
terminal alugado pela própria compa- 
nhia telefónica local por um valor mó- 
dico (náo é necessário comprá-lo). 

Entretanto, a conexáo de um micro 
ao sistema videotexto traz algumas van- 
tagens ao usuário — entre elas o acesso 
a alguns servigos de fornecimento gra- 
tuito de software, que pode ser copiado 
com grande facilidade em fita cassete ou 
disco. Dispondo de um computador, o 
usuário tem ainda a possibilidade de lis- 
tar em impressora as informações for- 
necidas pelo sistema, para exame pos- 
terior. 

Para conectar o seu micro ao siste- 
ma videotexto, basta ter: 


* uma porta serial assíncrona, do tipo 
RS-232C (se seu computador não dispõe 
de uma, você precisará comprar uma 
placa de expansão); 


* um modem de 1200 bips por 75 (exis- 
tem tipos especiais para videotexto, al- 
guns deles disponíveis também como 
placas internas de expansão); 


* um programa de emulação de termi- 
nal de videotexto, que deve ser carrega- 
do previamente na memória do seu mi- 
cro, quando quiser acessar O serviço. 


Já existem “*pacotes'” para acesso ao 
videotexto, contendo os componentes 
mencionados, para praticamente todos 
os tipos de microcomputadores nacio- 
nais. Algumas companhias telefónicas 
alugam ou vendem kits de acesso para 
os modelos mais populares, como o Ap- 
ple II e seus compatíveis. Mesmo micros 
bem simples, como o TK-90X, podem 
ser conectados ao videotexto (nào é pre- 
ciso ter uma unidade de disquete). 

Finalmente, para se beneficiar do sis- 
tema, será necessário que vocé se inscre- 
va como assinante do videotexto junto 
à companhia telefónica. Consulte-a pa- 
ra saber se o serviço está disponível em 
sua cidade e se seu micro foi credencia- 
do para acesso ao videotexto. Em caso 
de resposta afirmativa, você poderá ob- 
ter também a informação sobre onde 
conseguir o kit de acesso, para aluguel 
ou compra. 





